Показать сообщение отдельно

  #288  
Старый 07.02.2008, 00:55
FraiDex
Участник форума
Регистрация: 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 ---------------------------------------------------------------------"; } 
 } } } 
 
Ответить с цитированием