Arkadaşlar merhaba bugünki konumuzda başlıkta gördüğünüz gibi "MD5 Şifre Kırıcı PERL Yöntemi" md5 kırmak zordur fakat sağlam wordlist'in oldukdan sonra çocuk oyuncağı herneyse konumuz geçelim.
┣┅→ İlk olarak konu altında verdiğim perl kodlarını .pl şeklinde kaydedin.
┣┅→ Cmd'yi açıyoruz ve sırasıyla "cd desktop > perl kaydettiğinizisim.pl (md5.pl)" daha sonra enter'e basıyoruz.
┣┅→ Kırmak istediğiniz md5'i yapıştırıyorsunuz,örnek;"db01e1c7b1e0a218a3fa81d3ca2a3491" ben md5 yaptım ve şifresi "kibrisli" ve enter'e basıyoruz.
┣┅→ Masaüstüne kaydettiğiniz wordlist'iniz yani şifrelerinizi .txt biçiminde yazıyoruz örnek "hack.txt" ve enter'e bastığımız zaman taramaya başlıyor ben sadece kibrisli koydum gösterme amaçlı şifrem olduğu için.
┣┅→ Ve artık şifrelerimizi taramaya başlıyor ve gördüğünüz gibi şifre kibrisli çıktı ;
~~~~~~PERL KODLARI ~~~~~~
Kod:
#!/user/bin/perl
use Digest::MD5 qw(md5 md5_hex md5_base64);
use Term::ANSIColor;
use Win32::Console::ANSI;
system('cls');
system('title hash Cracker v1.0 by TurkHackTeam.Org');
print color 'bold green';
print" [+]===================[+]\n";
print" [+] Hash cracker [+]\n";
print" [+] DIKKAT KIBRISLI [+]\n";
print" [+] TurkHackTeam.Org [+]\n";
print" [+]===================[+]\n";
print color 'bold yellow';
print" \n[Kirmak istediginiz MD5 =>]";$h=<STDIN>;
chomp $h;
print "\n [word list=>]";
$fil = <STDIN> ;
chomp $fil;
my $file = $fil;
open (file, " <$file") || die "n0 file f0und !";
my @file = <file>;
foreach $vf(@file)#
{
chomp $vf;
$k=md5_hex($vf);
if($k == $h ){
print color 'bold red';
print "\n[+] Cracked ====> $vf\n";
exit
}else{
print color 'bold green';
print"$h =/= $vf\n";
}
}
Son düzenleme: