facebook facebook twitter rss

MD5 Cracker V 1.0 [PHP]&[perl]

Author: hamza killer , Published: 23-03-2014
MD5 Cracker V 1.0 [PHP]&[perl] :
php:
===
<?
error_reporting(0);
set_time_limit(0);
ini_set('memory_limit', '640000M');
/*
@hamza killer ùù
sec4all.org/cc/
to: HawQal Dz - black-id - Top Gastro<3 - Ji Nx - linuxdz
exploit4arab.net
sec4all.org/cc/
sec4ever.com
*/
echo"
[+]===================[+]
[+] MD5 Cracker V 1.0 [+]
[+] @hamza killer [+]
[+] MaDe in Dz [+]
[+]===================[+]
";
echo"\n [word list(you can add it from url http://xx.com/word.txt)=>] ";
$wh =trim(fgets(STDIN,1024));
$k=@file_get_contents($wh);
$hash=@explode("\r\n",$k);
$count =@count($hash);
if($k){
echo"
[+] wordlist loaded \n
[+] loaded $count linge \n
";
}else{
echo "[-] no file found ";
exit();
}
echo"
[put your hash =>]";
$hh=trim(fgets(STDIN,1024));
echo"[+] n0w Start brut \n";
foreach($hash as $hy ){

$k=md5($hy);
if($k == $hh)
{
echo"[+]".$hh.":".$hy."==>Found";
$f=fopen("hamza.txt","a+");
fwrite($f,"$hh => $hy\n");
fclose($f);
@system('hamza.txt');
exit();
}else{
echo"[-]".$hh.":".$hy."==>error\n";
}
}

?>
PERL :
====
#!/user/bin/perl
## MD5 Cracker V 1.0 v1.0 perl version using world list
## php version :http://pastebin.com/wAQFiCRy
## to: HawQal Dz - black-id - Top Gastro<3 - Ji Nx - linuxdz
## @hlyzidi@gmail.com
## exploit4arab.net - sec4all.org/cc/ - sec4ever.com
## simple tuto 4ui http://www.gulfup.com/?5oe28U
use Digest::MD5 qw(md5 md5_hex md5_base64);
use Term::ANSIColor;
use Win32::Console::ANSI;


system('cls');
system('title hash Cracker v1.0 by hamza killer');
print color 'bold green';
print" [+]===================[+]\n";
print" [+] MD5 Cracker V 1.0 [+]\n";
print" [+] hamza killer [+]\n";
print" [+] MAde in Dz [+]\n";
print" [+]===================[+]\n";
print color 'bold yellow';

print" \n[put your hash =>]";$h=<STDIN>;
chomp $h;
print "\n [word list=>]";
$fil = <STDIN> ;
chomp $fil;
my $file = $fil;
open (file, " <$file") || die "n0 file f0und !";
my @file = <file>;
foreach $vf(@file)#
{
chomp $vf;
$k=md5_hex($vf);
if($k == $h ){
print color 'bold red';

print "\n[+] Cracked ====> $vf\n";
exit
}else{
print color 'bold green';

print"$h =/= $vf\n";
}
}

Like us on Facebook :