./c0de/perl/md5multi.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
# Perl                                               
# Md5 MultiCracker                                   
# Author : Cod3rZ                                    
# Usage : perl md5.pl [hash]                         
# Usage: perl md5.pl 27d34b40d7adafe2e00c3503543e0ca9
# Thanks to GrabberGhost                             
 
use LWP::UserAgent;
use HTTP::Request::Common;
 
system("cls");
print q{ ---------------------------------------------------------------------
                         :: Md5 MultiCracker ::
 ---------------------------------------------------------------------
 Author : Cod3rZ
 Email  : [email protected]
 Site   : http://cod3rz.helloweb.eu
 ---------------------------------------------------------------------
};
$hash = $ARGV[0];
chomp($hash);
 
   if(!$hash) {
print q{ Usage: perl md5.pl [hash]
 Usage: perl md5.pl 27d34b40d7adafe2e00c3503543e0ca9
 ---------------------------------------------------------------------
};
} else {
if(length($hash) != 32) { print " This isn't a MD5 password\n ---------------------------------------------------------------------"; }
else {
 
$lwp = LWP::UserAgent->new;
 
#Milw0rm
 
$ua = $lwp->request(POST 'http://www.milw0rm.com/cracker/search.php',
[
hash => "$hash",
Submit => 'Submit',
]);
@content = split(/[n]/, $ua->content);
@password = split( /[><]/, $content[46]);
if($password[1]) { print " Password cracked: $password[1] \n ---------------------------------------------------------------------"; }
else {
 
 
#Rednoize
 
$red = $lwp->request(GET 'http://md5.rednoize.com/?p&s=md5&q='.$hash);
$content = $red->content;
if($content) {
print " Password cracked : $content \n ---------------------------------------------------------------------";
} else {
 
 
#GdataOnline
 
$gdo = $lwp->request(GET 'http://gdataonline.com/qkhash.php?mode=xml&hash='.$hash);
@content = split(/<result>/, $gdo->content);
@password = split( /[><]/, $content[1]);
if(@password[0]) {
print " Password cracked: @password[0]\n ---------------------------------------------------------------------";
}
else { print " Password Not Cracked\n ---------------------------------------------------------------------"; }
 } } } }
 
# [25/12/2007] - http://cod3rz.helloweb.eu

Back