Kali ini aku mahu ajar korang bagaimana nak crack md5 hash menggunakan perl script. Sebelum itu perl script ialah salah satu programming languange yg digunakan berdasarkan interface command prompt. dan md5 hash pula sebuah checksum (berangka perwakilan) yang dihasilkan secara matematik dan unik identiti bagi sesebuah aplikasi, atau pengumpulan data. Untuk menjalankan perl, anda hendaklah muat turun perisian Perl ini di halamannya sendiri.
Cara2 Menjalankan Md5 Hash Bruter Menggunakan Perl Script :
1.) First download sahaja persian perl di halaman webnya. Klik untuk muat turun.
2.) Pasang perisian perl ini pada pc anda dan biarkan semuanya secara default. Dalam kata lain anda terus menekan butang "OK".
3.) Copy script md5 hash cracker bruter dibawah pada notepad anda dan savekan sebagai "MD5Hash.pl" atau nama lain bagi memudahkan untuk anda menaip (Jangan letak space pada script)
#!/usr/bin/perl
######################################################
# MD5 Hash Bruter v4.0 by Puri #
# www.Coders.tk #
######################################################
# ___ ___ ___
# /\ \ /\ \ /\ \
# /::\ \ \:\ \ /::\ \ ___
# /:/\:\__\ \:\ \ /:/\:\__\ /\__\
# /:/ /:/ / ___ \:\ \ /:/ /:/ / /:/__/
# /:/_/:/ / /\ \ \:\__\ /:/_/:/__/___ /::\ \
# \:\/:/ / \:\ \ /:/ / \:\/:::::/ / \/\:\ \__
# \::/__/ \:\ /:/ / \::/~~/~~~~ ~~\:\/\__\
# \:\ \ \:\/:/ / \:\~~\ \::/ /
# \:\__\ \::/ / \:\__\ /:/ /
# \/__/ \/__/ \/__/ \/__/
# ___ ___ ___
# /\__\ /\ \ /\__\
# /:/ _/_ /::\ \ /:/ _/_ ___
# /:/ /\ \ /:/\:\ \ /:/ /\__\ /\__\
# /:/ /::\ \ /:/ \:\ \ /:/ /:/ / /:/ /
# /:/_/:/\:\__\ /:/__/ \:\__\ /:/_/:/ / /:/__/
# \:\/:/ /:/ / \:\ \ /:/ / \:\/:/ / /::\ \
# \::/ /:/ / \:\ /:/ / \::/__/ /:/\:\ \
# \/_/:/ / \:\/:/ / \:\ \ \/__\:\ \
# /:/ / \::/ / \:\__\ \:\__\
# \/__/ \/__/ \/__/ \/__/
#
$ver = "01";
$dbgtmr = "1"; #Intervall of showing the current speed + lastpassword in seconds.
if ($dbgtmr<=0){ die "Set dbgtmr to a value >=1 !\n";};
use Digest::MD5 qw(md5_hex);
use Time::HiRes qw(gettimeofday);
if ($ARGV[0]=~"a") {
$alpha = "abcdefghijklmnopqrstuvwxyz";}
if ($ARGV[0]=~"b") {
$alpha = $alpha. "ABCDEFGHIJKLMNOPQRSTUVWXYZ";}
if ($ARGV[0]=~"c") {
$alpha = $alpha."1234567890";}
if ($ARGV[0]=~"d") {
$alpha = $alpha. "!\"\$%&/()=?-.:\\*'-_:.;,";}
if ($alpha eq "" or $ARGV[3] eq "") {usage();};
print "\n";
if (length($ARGV[3]) != 32) { die "Not Valid Md5, please check your MD5 Hash and Fix it!\n";};
print "Selected Charset: '$alpha\'\n";
print "Going to Crack '$ARGV[3]'...\n";
for (my $t=$ARGV[1];$t<=$ARGV[2];$t++){
crack ($t);
}
sub usage{
print "\n######################################################\n# MD5 Hash Bruter v4.0 by Puri www.coders.tk #\n";
print "###################################################### \n";
print "\n";
print "Use: *.pl [charset] [mincount] [maxcount] [MD5]\n";
print "You Can Also Mix Charset like: ac..\n";
print "\n";
print " a = abcdefghijklmnopqrstuvwxyz\n";
print " b = ABCDEFGHIJKLMNOPQRSTUVWXYZ\n";
print " c = 1234567890\n";
print " d = !\$%&/()=?-.:\\*'-_:.;,\n";
print " \n";
print "EXAMPLE: ./*.pl a 3 6 d78b6f30225cdc811adfe8d4e7c9fd34\n";
die "\n";
}
sub crack{
$CharSet = shift;
@RawString = ();
for (my $i =0;$i<$CharSet;$i++){ $RawString[i] = 0;}
$Start = gettimeofday();
do{
for (my $i =0;$i<$CharSet;$i++){
if ($RawString[$i] > length($alpha)-1){
if ($i==$CharSet-1){
print "No Results $CharSet Char.\n";
$cnt=0;
return false;
}
$RawString[$i+1]++;
$RawString[$i]=0;
}
}
###################################################
$ret = "";
for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . substr($alpha,$RawString[$i],1);}
$hash = md5_hex($ret);
$cnt++;
$Stop = gettimeofday();
if ($Stop-$Start>$dbgtmr){
$cnt = int($cnt/$dbgtmr);
print "$cnt hashes\\second.\tLast Pass '$ret\'\n";
$cnt=0;
$Start = gettimeofday();
}
print "$ARGV[3] -> $hash ($ret)\n";
if ($ARGV[3] eq $hash){
print "\n";
print " #########################################\n";
print " Password: $ret \n";
print " #########################################\n";
die "\n Password Found, Mission Complete. (PuriSoft)\n";
}
###################################################
#checkhash($CharSet)."\n";
$RawString[0]++;
}while($RawString[$CharSet-1]<length($alpha));
}
sub checkhash{
$CharSet = shift;
$ret = "";
for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . substr($alpha,$RawString[$i],1);}
$hash = md5_hex($ret);
$cnt++;
$Stop = gettimeofday();
if ($Stop-$Start>$dbgtmr){
$cnt = int($cnt/$dbgtmr);
print "$cnt hashes\\second.\tLast Pass '$ret\'\n";
$cnt=0;
$Start = gettimeofday();
}
if ($ARGV[3] eq $hash){
die "\n Password Found, Mission Complete. PW= $ret\n";
}
}
4. ) Buka "My Computer", dan kemudian klik pada "Local Disk (C :/)". Di sana, anda akan melihat sebuah folder bernama "Perl". Buka folder itu, dan dalam "Perl", anda akan melihat folder lain pula bernama "bin". Buka folder "bin" tersebut. Sekarang anda perlu copy sahaja "MD5Hash.pl" kedalam folder "bin".
5.) Apa yang perlu anda lakukan sekarang ialah bukak command prompt anda (CMD) dan menukar direktori pada command prompt anda kepada Perl/bin direktori. Untuk melakukannya, taip cd C:\Perl\bin dan tekan enter.
6.) Sekarang anda berada di Perl/bin direktori, seterusnya anda perlu mengakses fail "MD5Hash.pl" untuk menjalankan perl script tersebut. Taip kata arahan berikut ke dalam command prompt perl MD5Hash.pl
7.) Sekarang masukkan md5 hash yg korang dapat dari mana2 forum. Seperti contoh yang diberikan dalam script, taipkan Md5Hash.pl a 3 6 d78b6f30225cdc811adfe8d4e7c9fd34
Nota : *.pl [charset] [mincount] [maxcount] [MD5]
*.pl = Nama Fail script anda (MD5Hash.pl)
[charset] = Anda boleh gabungkan kesemua sekali jika password yang hendak dicrack menggunakan salah satu char di bawah. (abcd)
a = abcdefghijklmnopqrstuvwxyz
b = ABCDEFGHIJKLMNOPQRSTUVWXYZ
c = 1234567890
d = !$%&/()=?-.:\*'-_:.;,
[mincount] = min bilangan password
[maxcount] = max bilangan password
[MD5] = Md5 korang dapat (d78b6f30225cdc811adfe8d4e7c9fd34)
8.) Tekan "Enter" dan tunggu sahaja proses mengcrack md5 hash smpai selesai.
p/s : Mungkin agak susah nk phm kalu org xbiasa dengan perl ni lagi. huhu. blaja pelan2 ye ;D. btw nnti aku senaraikan pulk web2 yang boleh crack md5 hash ni. gud luck =)
TinyPaste bunyinya agak sama dengan TinyURL. Dengan TinyURL ianya mampu mengubah URL yang panjang ke URL yang pendek, sementara TinyPaste mampu mengubah teks yang panjang menjadi sebuah URL. Kadang-kadang, ketika anda ingin menghantar beberapa mesej kepada rakan anda melalui Client IM seperti YM atau MSN, ianya mengehadkan panjang maksimum untuk setiap perbualan. Jadi, anda mungkin perlu untuk memisahkan satu mesej ke mesej yang berbeza. Hal ini sangat mengganggu dan juga memakan waktu.
TinyPaste mozilla addons membolehkan anda mengklik kanan pada setiap teks yang dipilih untuk menyimpannya. Menyajikan secara automatik dengan link teks untuk anda berkongsi dengan pengguna lain. Terdapat 3 langkah sahaja untuk menggunakannya. Sila lihat dibawah :
TinyPaste Bookmarklet membolehkan anda untuk highlightkan teks pada pelayar anda dan menyisipkannya dengan mengklik bookmark.
