Forum programmazione

[DevilAuron]

Code: Select all

# 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 " ---------------------------------------------------------------------\n";
print "                         :: Md5 MultiCracker ::                       \n";
print " ---------------------------------------------------------------------\n";
print " Author : Cod3rZ                                                      \n";
print " Email  : songforthemoment@yahoo.it                                   \n";
print " Site   : http://cod3rz.helloweb.eu                                   \n";
print " ---------------------------------------------------------------------\n";

$hash = $ARGV[0];
chomp($hash);

if(!$hash) {
print " Usage: perl md5.pl [hash]\n";
print " Usage: perl md5.pl 27d34b40d7adafe2e00c3503543e0ca9\n";
print " ---------------------------------------------------------------------\n";
}
else {
if(length($hash) != 32) {
print " This isn't a MD5 password\n";
print "---------------------------------------------------------------------"; }
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";
print " ---------------------------------------------------------------------"; }
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 ";
print "---------------------------------------------------------------------";
} 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";
print " ---------------------------------------------------------------------";
}
else {
print " Password Not Cracked\n";
print " ---------------------------------------------------------------------"; }
} } } }

fatto tempo fa