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


 
IndeksPortalCalendarGalleryFAQPencarianAnggotaGroupPendaftaranLogin

Share | 
 

 Perl md5 & SHA1 password hash cracker

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
edelweize
Admin
Admin


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

PostSubyek: 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

_________________


Regards,

edelweize
Kembali Ke Atas Go down
Lihat profil user http://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 : 28
Lokasi : ponorogo

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

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


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

PostSubyek: Re: Perl md5 & SHA1 password hash cracker   Thu 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
Lihat profil user http://www.microlighthangar.com/forum/messages.asp?iMsg=171&
loex
Calon Penduduk Forum
Calon Penduduk Forum


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

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

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




PostSubyek: Re: Perl md5 & SHA1 password hash cracker   Today at 3:55 pm

Kembali Ke Atas Go down
 
Perl md5 & SHA1 password hash cracker
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» CSS: Merubah gambar dan teks password register

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