MD5 Cracker Ataque por Wordlist

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87

#!/usr/bin/perl use strict; use warnings; use Digest::MD5 qw(md5_hex); sub usage(){ print "nt******** Splash Md5 cracker! *********nn"; print "t Usage: $0 <hash-file> <wordlist>nn"; print "t**************************************nn"; } 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 != $hashn"; if($md5 eq $hash){ die "tHash successfully cracked!nnt$hash == $_nn"; } } close(WLIST); print "Hash not found in wordlistn";