SpareNet Servers Advertising & Link Exchange

اطلاعیه

بستن
هیچ اطلاعیه ای هنوز ایجاد نشده است .

MD5 Hash Cracker Sample

بستن
X
 
  • فیلتر
  • زمان
  • نمایش
پاک کردن همه
نوشته‌های جدید

  • MD5 Hash Cracker Sample

    سلام شاید شما هم دوست داشته باشین یک MD5 کرکر برای خودتون راه بندازین که پسوردهای خودتونو باهاش مقایسه کنید تا در صورت برابری هش را کرک کند . امروز یه تولز ساده براتون قرار میدم که برنامه نویس با یک کد نویسی ساده یک ابزار سریع و کاربردی را آماده کرده . برای اجرای این ابزار نیاز به perl دارین .




    usage:

    perl md5.pl wordlist.txt a6fb707deb128e5f8339b247b4be3f98



    کد:
    #!/usr/bin/perl
    
    ##############################################################
    #
    #        MD5 dictionary cracker by stefo | [email protected]
    #
    #        Greetz to: d14l,baltazar | ljuska.org
    #
    #        Date of release: 07.03.2009        
    #
    ##############################################################
    
    use Digest::MD5 qw(md5_hex);
    
    my $rijecnik = @ARGV[0];
    my $md5 = @ARGV[1];
    
    if($rijecnik eq "") {
    print "\nUsage: perl md5.pl dictionary_file md5hash
    \nExample: perl md5.pl wordlist.txt a6fb707deb128e5f8339b247b4be3f98\n";
    }
    elsif($md5 eq "") {
    print "\nUsage: perl md5.pl dictionary_file md5hash
    \nExample: perl md5.pl wordlist.txt a6fb707deb128e5f8339b247b4be3f98\n";
    }
    
    open(RIJECNIK, $rijecnik) or die("Can't open the dictionary file...");
    @wordlista = <RIJECNIK>;
    close(RIJECNIK);
    
    foreach $rijec(@wordlista) {
    $rijec =~ s/\n//;
    
    $hashed = md5_hex($rijec);
    if($hashed eq $md5) {
    
    print "\nw00t! w00t! Found :D\n";
    print "MD5 hash: " . $md5 . "\n";
    print "Cracked: " . $rijec . "\n";
    
    }
    
    }

    -----------------------------SAFE MASTER---------------------------
    تاپیک هکر های تازه وارد
صبر کنید ..
X