O código é simples, eu dei uma traduzida nele por auto só pra simplificar. (só traduzi uma frase kkkk).
Enfim, pra quem nao sabe usar...
Vai ser necessário baixar algum programa que 'leia' perl.
Podem encontrar aqui, Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
1º Abra o bloco de notas
2º Cole o codigo e salve em c:\perl\bin com o nome de hash.pl
3º Abra o Prompt de Comando ( iniciar > executar > Digita CMD e Tecle Enter )
4º va ate a pasta onde ta o hash.pl (usando o comando 'cd')
5º digite perl hash.pl
Código:
#!/usr/bin/perl print(" #XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX# # EDITADO POR: SheldonCooper # # Criado por: Amin Shokohi (Pejvak) # #XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX# "); print("Por favor insira a hash\n"); print("Hash = "); $hash=<stdin>; chomp($hash); $a=length($hash); hc(); sub hc{ if($a=='8'){ print("\nThis Hash e ADLER32 OU CRC-32 OR GHash-32"); } if($a=='4'){ print("\nThis Hash e CRC-16 OU CRC-16-CCITT OR FCS-16"); } if($a=='13'){ print("\nThis Hash e DES(Unix)"); } if($a=='40'){ print("\nThis Hash e Sha-1 OU MySQL v5.x"); } if($a=='28'){ print("\nThis Hash e SHA-1(Base64)"); } if($a=='46'){ print("\nThis Hash e SHA-1(Django)"); } if($a=='64'){ print("\nThis Hash e SHA-256"); } if($a=='56'){ print("\nThis Hash e SHA-224"); } if($a=='96'){ print("\nThis Hash e SHA-384"); } if($a=='128'){ print("\nThis Hash e SHA-512 OU Whirlpool"); } if($a=='48'){ print("\nThis Hash e Haval-192"); } if($a=='224'){ print("\nThis Hash e Haval-224"); } if($a=='34'){ print("\nThis Hash e MD5(Unix) OU MD5(phpBB3) OR MD5(Wordpress)"); } if($a=='32'){ print("\nThis Hash e MD5 OU MD4 OU MD2"); } if($a=='16'){ print("\nThis Hash e MySQL Under 5"); } if($a=='57'){ print("\nThis Hash e Snefru"); try(); } if($a=='57'){ print("\nThis Hash e Snefru OR Gost"); try(); } }
Comment