Kullanıcıların Dikkatine!

Konularda yapılan kısaltmalı ve geçiştirilmiş mesajlar (adsadas, haha, sjsksjsdjks, asdsd, nokta, random, sayı vb.) yasaklanma sebebidir. Mağduriyet yaşanmaması için bu duruma dikkat etmelisiniz.

Daha Fazlası

Hacktivizm Online

Hacktivizm sitesi hack kültürünü benimsemiş kişiler tarafından 2020 yılında kuruldu. Kuruluş amacı Türkiye'nin en büyük hack forumu olmak ve bilgi alışverişinde bulunmaktır.

Daha Fazlası

Konu Açarken Dikkat Edilmesi Gerekenler

Forumda oluşan / oluşması öngörülen görüntü kirliliğine engel olmak ve başlıkların daha temiz dil ile açılması amacıyla kurallarımıza bazı bağımlı / bağımsız maddeler eklemek durumundayız.

Daha Fazlası
  • Forum yönetim ekibiyle iletişime geçmek istiyorsanız Sorun & Öneriler kategorisini kullanınız, özel mesajlara destek verilmemektedir. Sitemizde Bakım çalışması devam etmektedir...

Hack Tools Perl dili ile MD5 şifre kıran tool yazmak

Oğuz

Elmas
Katılım
19 Aralık 2020
Mesajlar
346
Tepkime puanı
470
Konum
Çanakkale / Türkiye
İlgi Alanlarınız
Teknoloji, Kişisel Blog ve daha niceleri.
Cinsiyet
  1. Erkek
Windows için strawberly perl linux için apt install perl kurulu olmasi gerekmektedir.
programi kendiniz yazmiş gibi kullanabilirsiniz. :)

Perl:
#!usr/bin/perl


print q{
         __  __ _       _ __  __ ____  ____
        |  \/  (_)_ __ (_)  \/  |  _ \| ___|
        | |\/| | | '_ \| | |\/| | | | |___ \
        | |  | | | | | | | |  | | |_| |___) |
        |_|  |_|_|_| |_|_|_|  |_|____/|____/
         Coder: SyberCodeV1 & sybercodev1.blogspot.com
};

print "1) MD5 Oluştur\n";
print "2) MD5 Kır\n";
my $cmd;
print "Lütfen Yapılacak Olan İşlemi Seçiniz: ";
$cmd = <STDIN>;

if ($cmd > 2) {
     print "Hatalı Komut!\n";
     }

if ($cmd == 1) {
     use Digest::MD5 qw( md5_hex );
     my $md5x;
     print "\nMD5 Oluşturacak Kelimeyi Girin ÖRN: SyberCodeV1 : ";
     $md5x = <STDIN>;
     chomp($md5x);
     print "Buyrun MD5 Kodunuz: ", md5_hex("$md5x"), "\n\n";
     }

if ($cmd == 2) {

@char = ('a','b','c','d','e','f','g','h','i','j',
'k','l','m','n','o','p','q','r','s','t',
'u','v','w','x','y','z','A','B','C','D','E',
'F','G','H','I','J','K','L','M','N','O',
'P','Q','R','S','T','U','V','W','X','Y','Z',
' ','1','2','3','4','5','6','7','8','9',
'0','`','-','=','~','!','@','#','$','%',
'^','&','*','(',')','_','+','{','}','|',
':','"','<','>',);
$CharToUse = 62;
getmd5();

sub getmd5 {
print "\nKırılacak Olan MD5 Listesini Giriniz. (list.txt):\n";
chomp($list = <STDIN>); print "\n\n";
testarg();
}

sub testarg {
open(F, $list) || die ("\nDosyayı bulamadım lütfen ls çekip .txt dosyasını doğru giriniz (list.txt)\n");
@md5 = <F>;
$length11 = @md5;
if (!<A>){
open(A, ">>bulunan.txt") || die ("\nYazmak İçin Dosya Açılmıyor!!!!!\n");
}
makelist()
}

sub makelist {
for ($br = 1; $br <= 12; $br++) {
for ($len1 = 0; $len1 <= $CharToUse; $len1++) {
$word[1] = $char[$len1];
if ($br <= 1) {
  AddToList(@word);
 }
else {
for ($len2 = 0; $len2 <= $CharToUse; $len2++) {
 $word[2] = $char[$len2];
 if ($br <= 2) {
  AddToList(@word);
 }
else {
for ($len3 = 0; $len3 <= $CharToUse; $len3++) {
$word[3] = $char[$len3];
if ($br <= 3) {
AddToList(@word);
}
else {
for ($len4 = 0; $len4 <= $CharToUse; $len4++) {
$word[4] = $char[$len4];
if ($br <= 4) {
AddToList(@word);
}
else {
for ($len5 = 0; $len5 <= $CharToUse; $len5++) {
$word[5] = $char[$len5];
if ($br <= 5) {
AddToList(@word);
}
else {
for ($len6 = 0; $len6 <= $CharToUse; $len6++) {
$word[6] = $char[$len6];
if ($br <= 6) {
AddToList(@word);
}
else {
for ($len7 = 0; $len7 <= $CharToUse; $len7++) {
$word[7] = $char[$len7];
if ($br <= 7) {
AddToList(@word);
}
else {
for ($len8 = 0; $len8 <= $CharToUse; $len8++) {
$word[8] = $char[$len8];
if ($br <= 8) {
AddToList(@word);
}
else {
for ($len9 = 0; $len9 <= $CharToUse; $len9++) {
$word[9] = $char[$len9];
if ($br <= 9) {
AddToList(@word);
}
else {
for ($len10 = 0; $len10 <= $CharToUse; $len10++) {
$word[10] = $char[$len10];
if ($br <= 10) {
AddToList(@word);
}
else {
for ($len11 = 0; $len11 <= $CharToUse; $len11++) {
$word[11] = $char[$len11];
if ($br <= 11) {
AddToList(@word);
}
else {
for ($len12 = 0; $len12 <= $CharToUse; $len12++) {
$word[12] = $char[$len12];
if ($br <= 12) {
AddToList(@word);
}
else {
for ($len13 = 0; $len13 <= $CharToUse; $len13++) {
$word[13] = $char[$len13];
if ($br <= 13) {
AddToList(@word);
}
else {
for ($len14 = 0; $len14 <= $CharToUse; $len14++) {
$word[14] = $char[$len14];
if ($br <= 14) {
AddToList(@word);
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}



sub AddToList {

my (@entry) = @_;
my ($test) = join "", @entry;
my ($m) = md5_hex "$test";
print ("$m = $test\n");
for ($a = 0; $a <= $length11; $a++)
{
     chomp($md5[$a]);
 if ($m eq $md5[$a]){

  print "\n\n\nDostum MD5 kodunu kırdım ==> \t[ $test ]\n\n";
  print A "$m = $test\n";
  splice(@md5, $a, 1);
  if (!$md5[0]) { exit(); }
 }
}
}
}

MiniMD5 diye bir banner yaptığım için sorun çıkabilir kodda ama figlet {tool ismi} yazarak kendiniz yapmış gibi kullanabilirsiniz.

kullanımı: perl minimd5.pl

kırılacak olan MD5 şifrelemesini "nano list.txt" diyerek kaydetmeniz gerekmektedir.

Toolu kullandığınızdan beri kırdığı dosyaları bulunan.txt den ulaşabilirsiniz.


Teşekkür ederim

orjinal hali
 

Oğuz

Elmas
Katılım
19 Aralık 2020
Mesajlar
346
Tepkime puanı
470
Konum
Çanakkale / Türkiye
İlgi Alanlarınız
Teknoloji, Kişisel Blog ve daha niceleri.
Cinsiyet
  1. Erkek
up
 

Nevermind

Elmas
Katılım
15 Şubat 2023
Mesajlar
1,407
Tepkime puanı
9,659
Konum
403 Forbidden
İlgi Alanlarınız
Hesapların
Cinsiyet
  1. Erkek
Windows için strawberly perl linux için apt install perl kurulu olmasi gerekmektedir.
programi kendiniz yazmiş gibi kullanabilirsiniz. :)

Perl:
#!usr/bin/perl


print q{
         __  __ _       _ __  __ ____  ____
        |  \/  (_)_ __ (_)  \/  |  _ \| ___|
        | |\/| | | '_ \| | |\/| | | | |___ \
        | |  | | | | | | | |  | | |_| |___) |
        |_|  |_|_|_| |_|_|_|  |_|____/|____/
         Coder: SyberCodeV1 & sybercodev1.blogspot.com
};

print "1) MD5 Oluştur\n";
print "2) MD5 Kır\n";
my $cmd;
print "Lütfen Yapılacak Olan İşlemi Seçiniz: ";
$cmd = <STDIN>;

if ($cmd > 2) {
     print "Hatalı Komut!\n";
     }

if ($cmd == 1) {
     use Digest::MD5 qw( md5_hex );
     my $md5x;
     print "\nMD5 Oluşturacak Kelimeyi Girin ÖRN: SyberCodeV1 : ";
     $md5x = <STDIN>;
     chomp($md5x);
     print "Buyrun MD5 Kodunuz: ", md5_hex("$md5x"), "\n\n";
     }

if ($cmd == 2) {

@char = ('a','b','c','d','e','f','g','h','i','j',
'k','l','m','n','o','p','q','r','s','t',
'u','v','w','x','y','z','A','B','C','D','E',
'F','G','H','I','J','K','L','M','N','O',
'P','Q','R','S','T','U','V','W','X','Y','Z',
' ','1','2','3','4','5','6','7','8','9',
'0','`','-','=','~','!','@','#','$','%',
'^','&','*','(',')','_','+','{','}','|',
':','"','<','>',);
$CharToUse = 62;
getmd5();

sub getmd5 {
print "\nKırılacak Olan MD5 Listesini Giriniz. (list.txt):\n";
chomp($list = <STDIN>); print "\n\n";
testarg();
}

sub testarg {
open(F, $list) || die ("\nDosyayı bulamadım lütfen ls çekip .txt dosyasını doğru giriniz (list.txt)\n");
@md5 = <F>;
$length11 = @md5;
if (!<A>){
open(A, ">>bulunan.txt") || die ("\nYazmak İçin Dosya Açılmıyor!!!!!\n");
}
makelist()
}

sub makelist {
for ($br = 1; $br <= 12; $br++) {
for ($len1 = 0; $len1 <= $CharToUse; $len1++) {
$word[1] = $char[$len1];
if ($br <= 1) {
  AddToList(@word);
 }
else {
for ($len2 = 0; $len2 <= $CharToUse; $len2++) {
 $word[2] = $char[$len2];
 if ($br <= 2) {
  AddToList(@word);
 }
else {
for ($len3 = 0; $len3 <= $CharToUse; $len3++) {
$word[3] = $char[$len3];
if ($br <= 3) {
AddToList(@word);
}
else {
for ($len4 = 0; $len4 <= $CharToUse; $len4++) {
$word[4] = $char[$len4];
if ($br <= 4) {
AddToList(@word);
}
else {
for ($len5 = 0; $len5 <= $CharToUse; $len5++) {
$word[5] = $char[$len5];
if ($br <= 5) {
AddToList(@word);
}
else {
for ($len6 = 0; $len6 <= $CharToUse; $len6++) {
$word[6] = $char[$len6];
if ($br <= 6) {
AddToList(@word);
}
else {
for ($len7 = 0; $len7 <= $CharToUse; $len7++) {
$word[7] = $char[$len7];
if ($br <= 7) {
AddToList(@word);
}
else {
for ($len8 = 0; $len8 <= $CharToUse; $len8++) {
$word[8] = $char[$len8];
if ($br <= 8) {
AddToList(@word);
}
else {
for ($len9 = 0; $len9 <= $CharToUse; $len9++) {
$word[9] = $char[$len9];
if ($br <= 9) {
AddToList(@word);
}
else {
for ($len10 = 0; $len10 <= $CharToUse; $len10++) {
$word[10] = $char[$len10];
if ($br <= 10) {
AddToList(@word);
}
else {
for ($len11 = 0; $len11 <= $CharToUse; $len11++) {
$word[11] = $char[$len11];
if ($br <= 11) {
AddToList(@word);
}
else {
for ($len12 = 0; $len12 <= $CharToUse; $len12++) {
$word[12] = $char[$len12];
if ($br <= 12) {
AddToList(@word);
}
else {
for ($len13 = 0; $len13 <= $CharToUse; $len13++) {
$word[13] = $char[$len13];
if ($br <= 13) {
AddToList(@word);
}
else {
for ($len14 = 0; $len14 <= $CharToUse; $len14++) {
$word[14] = $char[$len14];
if ($br <= 14) {
AddToList(@word);
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}



sub AddToList {

my (@entry) = @_;
my ($test) = join "", @entry;
my ($m) = md5_hex "$test";
print ("$m = $test\n");
for ($a = 0; $a <= $length11; $a++)
{
     chomp($md5[$a]);
 if ($m eq $md5[$a]){

  print "\n\n\nDostum MD5 kodunu kırdım ==> \t[ $test ]\n\n";
  print A "$m = $test\n";
  splice(@md5, $a, 1);
  if (!$md5[0]) { exit(); }
 }
}
}
}

MiniMD5 diye bir banner yaptığım için sorun çıkabilir kodda ama figlet {tool ismi} yazarak kendiniz yapmış gibi kullanabilirsiniz.

kullanımı: perl minimd5.pl

kırılacak olan MD5 şifrelemesini "nano list.txt" diyerek kaydetmeniz gerekmektedir.

Toolu kullandığınızdan beri kırdığı dosyaları bulunan.txt den ulaşabilirsiniz.


Teşekkür ederim

orjinal hali
Güzel olmuş eline sağlık
 

Konuyu görüntüleyen kullanıcılar:

Hukuksal Sorunlar İçin[email protected]
For Legal Problems[email protected]
Hacktivizm.Org
Hacktivizm.Org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Hacktivizm.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Hacktivizm saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Hacktivizm üyelerinin yaptığı bireysel hack faaliyetlerinden Hacktivizm sorumlu değildir. Sitelerinize Hacktivizm ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz. Sitemizde yer alan içerikler hakkındaki şikayetlerinizi Buradan iletişime geçerek bildirebilirsiniz. Please Report Abuse, DMCA, Scamming, Harassment, Crack or any Illegal Activities to [email protected]
Hack Forum
Hacktivizm, 2020 yılında kurulmuş bir siber güvenlik forum sitesidir aynı zamanda hack forumu,hack sitesi,hack forum ve Türk hack forumudur. Hack forum aramalarında ilk sayfada olan bu hack forum sitesi gün geçtikçe gelişmektedir. Hack Forum kelimesinin anlamı ise, hacker kültürü ve bilgisayar güvenliği ile ilgili tartışmalara adanmış bir İnternet forumudur. Web sitesi, analiz şirketi Alexa Internet tarafından web trafiği açısından "Hacking" kategorisinde bir numaralı web sitesi olarak yer almaktadır.

Telefon Takip - İphone Hackleme - PDF Şifre Kırma - Telefon Hackleme - İnstagram Hesap Çalma - Twitter Hesap Çalma - Facebook Hesap Çalma - Wifi Şifre Kırma - Telefon Şifresi Kırma

Hacktivizm Twitter Hacktivizm Youtube Hacktivizm İnstagram Hacktivizm Telegram

Üst