./c0de/perl/md5search.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.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
use strict;
use warnings;
use LWP 5.64;
my $browser = LWP::UserAgent->new;
 
my $t = LWP::UserAgent->new() or die "Browser Failed\n";
$t->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');
 
 
 print "[*] MD5 Search By XShimeX\n";
 print "[*] List Site You Can Search\n";
 print "[*] (1 = http://www.md5decrypter.com) (2 = http://www.md5oogle.com)\n";
 print "[*] (3 = http://passcracking.ru/) (4 = http://www.hashchecker.com)\n";
 print "[*] Example : 1 for http://www.md5decrypter.com\n";
 print "[*] Enter the Site : ";
 chomp (my $site=<STDIN>);;
 print "[*] Insert MD5 : ";
 chomp (my $text=<STDIN>);;
 
 
sub md5google(){
my $crack = "http://www.md5oogle.com/decrypt.php?input=$text&meta=01";
my $request = $t->request(HTTP::Request->new(GET=>$crack));
 
 
my $c = $request->content =~ /<b>Result: (.*?)<\/b>/;
if ($c) {
print "[*] Password: $1\n";
}else {
print "[*] Failed, Crack Not Found";
}
}
 
sub md5decrypter(){
my $url = 'http://www.md5decrypter.com/index.php';
my $response = $browser->post( $url,
[ "hash" => $text
]
);
die "$url error: ", $response->status_line
unless $response->is_success;
die "Weird content type at $url -- ", $response->content_type
unless $response->content_type eq 'text/html';
if( $response->content =~ /Normal Text: <\/b>(.+)/ ) {
print "[*] Password: $1\n";
} else {
print "[*] Failed, Crack Not Found\n";
}
}
 
sub passcracking(){
my $url = 'http://passcracking.ru/index.php';
my $response = $browser->post( $url,
[ "datafromuser" => $text
]
);
die "$url error: ", $response->status_line
unless $response->is_success;
die "Weird content type at $url -- ", $response->content_type
unless $response->content_type eq 'text/html';
if( $response->content =~ /<td bgcolor=#FF0000>(.+)<\/td><td>/ ) {
print "[*] Password: $1\n";
} else {
print "[*] Failed, Crack Not Found\n";
}
}
 
sub hashchecker(){
my $url = 'http://www.hashchecker.com/index.php';
my $response = $browser->post( $url,
[ "search_field" => $text
]
);
die "$url error: ", $response->status_line
unless $response->is_success;
die "Weird content type at $url -- ", $response->content_type
unless $response->content_type eq 'text/html';
if( $response->content =~ /<li>$text is <b>(.+)<\/b>/ ) {
print "[*] Password: $1\n";
} else {
print "[*] Failed, Crack Not Found\n";
}
}
 
 
if (!$site) {
print "[*] Please enter the site you want to Search MD5\n";
exit;
}
 
if (!$text){
print "[*] Please enter your MD5\n";
exit;
}
 
if ($site == '1') {
md5decrypter();
}
 
if ($site == '2') {
md5google();
}
 
if ($site == '2') {
md5google();
}
 
if ($site == '3'){
passcracking();
}
 
if ($site == '4'){
hashchecker();
}
 
 

Back