
07.02.2008, 00:55
|
|
Участник форума
Регистрация: 16.06.2006
Сообщений: 179
С нами:
10475029
Репутация:
135
|
|
Скрипт для расшифровки MD5
PHP код:
# 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 : songforthemoment@yahoo.it
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 {
$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 ---------------------------------------------------------------------"; }
} } }
|
|
|