edelweize Admin
Jumlah posting : 255 Points : 401 Reputation : 0 Join date : 26.02.10 Age : 30 Lokasi : In This Forum
| Subyek: Perl md5 & SHA1 password hash cracker Wed Apr 07, 2010 2:51 am | |
| jangan lupa untuk di compile ke perl [.pl] - Code:
-
#!/usr/bin/perl use threads; use Digest::MD5 qw(md5_hex); use Digest::SHA1 qw(sha1_hex); use Encode qw(encode_utf8); use Benchmark; use threads::shared; my $check :shared; $finish=$ARGV[1]; $start=$ARGV[0]; $chrs=ord($ARGV[2]); $chrf=ord($ARGV[3])+1; $type = $ARGV[4]; $mhash = $ARGV[5]; if(length($mhash) == 0){ print "*******************************************************************\n"; print "* ZZZZZ 333 RRRR 000 CCC 000 RRRR EEEE *\n"; print "* Z 3 R R 0 00 C 0 00 R R E *\n"; print "* Z 33 RRRR 0 0 0 C 0 0 0 RRRR EEE *\n"; print "* Z 3 R R 00 0 C 00 0 R R E *\n"; print "* ZZZZZ 333 R RR 000 CCC 000 R RR EEEE *\n"; print "* *\n"; print "* *\n"; print "* perl md5 brute forcer *\n"; print "* created by Z3r0c0re and R4vax *\n"; print "* supported types:md5 and sha1 *\n"; print "* usage: crack.pl <minlen> <maxlen> <type> <chrs> <chrf> <hash> *\n"; print "* e.g. crack.pl 1 4 a z md5 098f6bcd4621d373cade4e832627b4f6 *\n"; print "* e.g. crack.pl 1 4 0 z md5 098f6bcd4621d373cade4e832627b4f6 *\n"; print "* *\n"; print "*******************************************************************\n\n"; exit; }else{ @thread = (0); for($pl=$start;$pl<=$finish;$pl++){ push(@pass,$chrs); } print "******** starting crack *********\n"; print "******* genarating threads *******\n"; for($th1=$start;$th1<=$finish;$th1++){ push(@thread,threads->new(\&passgen,$th1)); } for($th1=1;$th1<=($finish-$start+1);$th1++){ $thread[$th1]->join; } } sub passgen{ $start = $_[0]; $finish = $_[0]; push(@pass,0); $total = 0; for($l1=$start;$l1<=$finish;$l1++){ $t0 = Benchmark->new; $t2 = time(); $t4 = Benchmark->new; do{ if($check eq "true"){ last; last; } $total += ($chrf-$chrs); for($l2=$chrs;$l2<=$chrf;$l2++){ $pass[$l1] = $l2; $hash = chr($pass[$l1]) . $hash1; $ehash = sendpass($hash); if($ehash eq $mhash){ print "\nHASH:" . $ehash; print "\nPASS:" . $hash . "\n"; $t1 = Benchmark->new; $td = timediff($t1, $t0); print "the hash was cracked in:",timestr($td),"\n"; $check = "true"; last; } } $hash1 = ""; for($l4=$l1;$l4>=1;$l4--){ if($pass[$l4] >= $chrf){ $pass[$l4] = $chrs; $pass[$l4-1] += 1; } if($l4 eq $l1){ }else{ $hash1 .= chr($pass[$l4]); } } }until($total eq ($chrf-$chrs)**$l1); $t1 = Benchmark->new; $t3 = time(); $td1 = timediff($t1, $t0); if($t3-$t2 > 0){ $time1 = (($chrf-$chrs)**$l1)/($t3-$t2) . " per second"; }else{ $time1 = (($chrf-$chrs)**$l1) . " in less than a second "; } print "Genarated " . $time1 . "\n"; print "Genarated " . (($chrf-$chrs)**$l1) . " hashes in",timestr($td1), "\n"; } } sub sendpass{ if($type eq 'md5'){ $ehash = md5_hex($hash); } elsif($type eq 'sha1'){ $ehash = sha1_hex($hash); } return $ehash; } Coding By z3r0c0r3 | |
|
takecy V.I.P Member
Jumlah posting : 33 Points : 36 Reputation : 1 Join date : 02.03.10 Age : 35 Lokasi : ponorogo
| Subyek: Re: Perl md5 & SHA1 password hash cracker Wed Apr 07, 2010 2:52 am | |
| | |
|
Bboy_maverick Crew Member
Jumlah posting : 99 Points : 124 Reputation : 0 Join date : 08.03.10 Age : 31 Lokasi : manado
| Subyek: Re: Perl md5 & SHA1 password hash cracker Thu Apr 08, 2010 9:49 pm | |
| | |
|
loex Calon Penduduk Forum
Jumlah posting : 3 Points : 3 Reputation : 0 Join date : 31.07.11 Lokasi : soekabumie™
| Subyek: Re: Perl md5 & SHA1 password hash cracker Sun Jul 31, 2011 4:20 pm | |
| maaf ane nubie pakek notepad kah buat nya ??
| |
|
Sponsored content
| Subyek: Re: Perl md5 & SHA1 password hash cracker | |
| |
|