[oz] MD5 crack perl

[Danzel]

(02-09-2011 11:18 AM)Liyan oz Wrote:  Assalamualaikum,, tadi jalan2 di anak2 haxor eh nemu ini..

ini perl md5 cracker.. mainan buat temen2 di DC ini, wowoowkk

kalo repost,, delete aja ya..

yang mau bantuin ane buat .NET protector PM aja,, terusin SCnya,,

males ngetik,, wkwkwk

Code:

#!/usr/bin/perl

use strict;
use warnings;
use Digest::MD5 qw(md5_hex);

sub usage(){

print "\n\t******** ATH Md5 cracker! *********\n\n";
print "\t  Usage: $0 <hash-file> <wordlist>\n\n";
print "\t**************************************\n\n";
print "\t[ Powered by Devilzc0der oz ]\n\n";


}

my $hashplace=shift;
my $wlistplace=shift;

if(!$wlistplace){
   usage();
   exit;
}
   open(HASH,$hashplace) || die "Could not open hash: $!\n";
      chomp(my $hash=<HASH>);
   close(HASH);

if(length($hash)!=32){
   die "\t$hash is not a valid md5-hash!\n";
}
if($hash !~ /\d|[a-f]{32}/g){
   die "\t$hash is not a valid md5-hash!\n";
}
   open(WLIST,$wlistplace) || die "Could not open wordlist: $!\n";

while(<WLIST>){
   chomp($_);
   chomp(my $md5=md5_hex($_));
   print "$md5 != $hash\n";
   if($md5 eq $hash){
      die "\tHash successfully cracked!\n\n\t$hash == $_\n\n";
   }
}
close(WLIST);

print "Hash not found in wordlist\n";

hehehe,, ini perl md5 cracker,,

kalo mau ganti tinggal edit ininya

Code:

print "\n\t******** ATH Md5 cracker! *********\n\n";
print "\t  Usage: $0 <hash-file> <wordlist>\n\n";
print "\t**************************************\n\n";
print "\t[ Powered by Devilzc0der oz ]\n\n";

huhuy,,, enaknya kalo bisa dapat SC terus main2 dech..

wassalam

idk what u ppl are writing here . coz i not understand indonesian language .. but changin copyright of a tool it's a bad way

this is a tool from old darkc0de forum
and here it's original source

Code:

#!/usr/bin/perl

use strict;
use warnings;
use Digest::MD5 qw(md5_hex);

sub usage(){

print "\n\t******** Splash Md5 cracker! *********\n\n";
print "\t  Usage: $0 <hash-file> <wordlist>\n\n";
print "\t**************************************\n\n";

}

my $hashplace=shift;
my $wlistplace=shift;

if(!$wlistplace){
   usage();
   exit;
}
   open(HASH,$hashplace) || die "Could not open hash: $!\n";
      chomp(my $hash=<HASH>);
   close(HASH);

if(length($hash)!=32){
   die "\t$hash is not a valid md5-hash!\n";
}
if($hash !~ /\d|[a-f]{32}/g){
   die "\t$hash is not a valid md5-hash!\n";
}
   open(WLIST,$wlistplace) || die "Could not open wordlist: $!\n";

while(<WLIST>){
   chomp($_);
   chomp(my $md5=md5_hex($_));
   print "$md5 != $hash\n";
   if($md5 eq $hash){
      die "\tHash successfully cracked!\n\n\t$hash == $_\n\n";
   }
}
close(WLIST);

print "Hash not found in wordlist\n";

[Super Moderator]

hmm,,need confirmation from oz himself,but i don't know this tool from your forum and has copyrighted

[Fauzi Topan]

(12-21-2011 10:05 PM)Danzel Wrote:  .. but changin copyright of a tool it's a bad way

Agree

[anko_kum4ru]

sorry br0o..
I very don't agree to change copyright..
maybe we could wait for an explanation of Liyan oz ...