Tweet
Fala galera...
Estou aqui disponibilizando uma ferramenta, que eu mesmo criei, que identifica o tipo de criptografia usada na hash.
A ferramenta é bem básica, só funciona com 12 tipos de hash diferentes, mas já ajuda...
Espero que vocês gostem!
Estou aqui disponibilizando uma ferramenta, que eu mesmo criei, que identifica o tipo de criptografia usada na hash.
A ferramenta é bem básica, só funciona com 12 tipos de hash diferentes, mas já ajuda...
Espero que vocês gostem!
Código:
#!/usr/bin/perl
use strict;
use warnings;
print "\t\t\t\t ******\n";
print "\t\t\t\tWelcome to \n";
print "\t\t\t What the Crypto???\n";
print "\t Coded by: Sub7 (http://www.sub7hacking.4sql.net)\n";
print "\tBy: ** White Collar Group ** (http://www.wcgroup.host56.com)\n";
print "\t\t\t\t ******\n\n";
sleep 2;
print "Hash => ";
chomp (my $hash = <STDIN>);
if(length($hash) == 32 && $hash !~ /[A-Z]/){
print "Seu hash é do tipo: MD5\n\n";
}elsif(length($hash) == 28 && $hash =~ /\w/){
print "Seu hash é do tipo: MD5 (Base64)\n\n";
}elsif(length($hash) == 26 && $hash =~ /\w/){
print "Seu hash é do tipo: MD5 (Unix)\n\n";
}elsif(length($hash) == 29 && $hash =~ /\w/){
print "Seu hash é do tipo: MD5 (APR)\n\n";
}elsif(length($hash) == 40 && $hash !~ /[A-Z]/){
print "Seu hash é do tipo: SHA-1 (HMAC)\n\n";
}elsif(length($hash) == 11 && $hash =~ /\w/){
print "Seu hash é do tipo: Base 64";
}elsif(length($hash) == 13 && $hash =~ /\w/){
print "Seu hash é do tipo: Des (Unix)";
}elsif(length($hash) == 8 && $hash !~ /[A-Z0-9]/){
print "Seu hash é do tipo: rot_13";
}elsif(length($hash) == 65 && $hash !~ /[A-Z]/){
print "Seu hash é do tipo: SHA256";
}elsif(length($hash) == 97 && $hash !~ /[A-Z]/){
print "Seu hash é do tipo: SHA384";
}elsif(length($hash) == 130 && $hash !~ /[A-Z]/){
print "Seu hash é do tipo: SHA512";
}elsif(length($hash) == 16 && $hash !~ /[A-Z]/){
print "Seu hash é do tipo: MySQL";
}
Comment