Welcome To t0k3k Miring Crew Official Forum
Welcome To t0k3k Miring Crew Official Forum

Silahkan Klik Login Untuk Masuk Di Forum
Atau Klik Register Untuk Menjadi Member Di t0k3k Miring Crew
Welcome To t0k3k Miring Crew Official Forum
Welcome To t0k3k Miring Crew Official Forum

Silahkan Klik Login Untuk Masuk Di Forum
Atau Klik Register Untuk Menjadi Member Di t0k3k Miring Crew
Welcome To t0k3k Miring Crew Official Forum
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Welcome To t0k3k Miring Crew Official Forum


 
IndeksPortalGalleryLatest imagesPencarianPendaftaranLogin

 

 Perl md5 & SHA1 password hash cracker

Go down 
4 posters
PengirimMessage
edelweize
Admin
Admin
edelweize


Jumlah posting : 255
Points : 401
Reputation : 0
Join date : 26.02.10
Age : 30
Lokasi : In This Forum

Perl md5 & SHA1 password hash cracker Empty
PostSubyek: Perl md5 & SHA1 password hash cracker   Perl md5 & SHA1 password hash cracker I_icon_minitimeWed 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
Kembali Ke Atas Go down
https://t0k3kmiringcrew.forummotion.com/
takecy
V.I.P Member
V.I.P Member



Jumlah posting : 33
Points : 36
Reputation : 1
Join date : 02.03.10
Age : 35
Lokasi : ponorogo

Perl md5 & SHA1 password hash cracker Empty
PostSubyek: Re: Perl md5 & SHA1 password hash cracker   Perl md5 & SHA1 password hash cracker I_icon_minitimeWed Apr 07, 2010 2:52 am

Bad Mood Bad Mood
Kembali Ke Atas Go down
http://ponorogozone.com
Bboy_maverick
Crew Member
Crew Member
Bboy_maverick


Jumlah posting : 99
Points : 124
Reputation : 0
Join date : 08.03.10
Age : 31
Lokasi : manado

Perl md5 & SHA1 password hash cracker Empty
PostSubyek: Re: Perl md5 & SHA1 password hash cracker   Perl md5 & SHA1 password hash cracker I_icon_minitimeThu Apr 08, 2010 9:49 pm

wew master carding hebat bner ,,,
ajarin donk Good Mood Good Mood Good Mood Other Mood
Kembali Ke Atas Go down
http://www.microlighthangar.com/forum/messages.asp?iMsg=171&
loex
Calon Penduduk Forum
Calon Penduduk Forum
loex


Jumlah posting : 3
Points : 3
Reputation : 0
Join date : 31.07.11
Lokasi : soekabumie™

Perl md5 & SHA1 password hash cracker Empty
PostSubyek: Re: Perl md5 & SHA1 password hash cracker   Perl md5 & SHA1 password hash cracker I_icon_minitimeSun Jul 31, 2011 4:20 pm

maaf ane nubie pakek notepad kah buat nya ??
Kembali Ke Atas Go down
Sponsored content





Perl md5 & SHA1 password hash cracker Empty
PostSubyek: Re: Perl md5 & SHA1 password hash cracker   Perl md5 & SHA1 password hash cracker I_icon_minitime

Kembali Ke Atas Go down
 
Perl md5 & SHA1 password hash cracker
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» hacker itu pembuat dan cracker itu perusak
» Advance Password Generator Version 2.0 [SRC][GUI]

Permissions in this forum:Anda tidak dapat menjawab topik
Welcome To t0k3k Miring Crew Official Forum :: Miscellaneous Zone :: Coding And Programming-
Navigasi: