12-20-2011, 04:28 PM
siang om - om semua , saya cuma mau sharing sebuah script untuk crack password tipe MD5 .
saya bikin thread ini karena kemaren saya hampir frustasi ga bisa cracking password , eh nemu ini di tetangga . dan berhasil . langsung aja om . copy script perl-nya
save dengan file bruteforce.pl
Ket :
Input MD5: Masukkan pass Md5
Input Type [k/B/a/c] :
k : huruf kecil
B: huruf Besar
a : Angka
c: symbol seperti `/."][!#
example :
Uploaded with ImageShack.us
semoga bermanfaat . kalo ga bermanfaat delete aja om .
regards , dumbastish
sumber
saya bikin thread ini karena kemaren saya hampir frustasi ga bisa cracking password , eh nemu ini di tetangga . dan berhasil . langsung aja om . copy script perl-nya
PHP Code:
#!/usr/bin/perl
print "\################################################\ n";
print "MD5 BRUTEFORCE V_1.0 - MAKASSAR ETHICAL HACKER\n";
print "Author : eXpL01t3r\n";
print "contact : exploiter\@makassarhacker.com\n";
print "\################################################\ n";
use Digest::MD5 qw(md5_hex);
print "Input MD5: ";
$md5=<STDIN>;
chop($md5);
print "Input Type [k/B/a/c]: ";
$type=<STDIN>;
chop($type);
print "Input Ke: ";
$k=<STDIN>;
chop($k);
print "Input Sampai: ";
$p=<STDIN>;
chop($p);
if ($type=~"k") {$char = "abcdefghijklmnopqrstuvwxyz";}
if ($type=~"B") {$char = $char. "ABCDEFGHIJKLMNOPQRSTUVWXYZ";}
if ($type=~"a") {$char = $char."1234567890";}
if ($type=~"c") {$char = $char. "!\"\$%&/()=?-.:\\*'-_:.;,";}
sub cari{
@tampung = ();
$shift = shift;
for ($i =0;$i<$shift;$i++){ $tampung[i] = 0;}
do{
for ($i =0;$i<$shift;$i++){
if ($tampung[$i] > length($char)-1){
if ($i==$shift-1){
print "Password Tidak Ditemukan.\n";
$a=0;
return false;
}
$tampung[$i+1]++;
$tampung[$i]=0;
}
}
$pass = "";
for ($i =0;$i<$shift;$i++){ $pass = $pass . substr($char,$tampung[$i],1);}
$enkripsi = md5_hex($pass);
$a++;
print "$pass -> $enkripsi -> $md5 \n";
if ($md5 eq $enkripsi){
die "\n Password Cracked = $pass\n";
}
$tampung[0]++;
}while($tampung[$shift-1]<length($char));
}
for ($x=$k;$x<=$p;$x++){
cari($x);
}
save dengan file bruteforce.pl
Ket :
Input MD5: Masukkan pass Md5
Input Type [k/B/a/c] :
k : huruf kecil
B: huruf Besar
a : Angka
c: symbol seperti `/."][!#
example :
PHP Code:
root@dumbastish:~/perl# perl md5bruteforce.pl
################################################
MD5 BRUTEFORCE V_1.0 - MAKASSAR ETHICAL HACKER
Author : eXpL01t3r
contact : exploiter@makassarhacker.com
################################################
Input MD5: F03194E2140292A2D218EFA14BEDCA0E
Input Type [k/B/a/c]: k
Input Ke: 3
Input Sampai: 4
Uploaded with ImageShack.us
semoga bermanfaat . kalo ga bermanfaat delete aja om .
regards , dumbastish
sumber
i am back | ketika merasa kurang pintar, disaat itulah anda pintar.