#!/usr/bin/perl -w
#Precisa do módulo Digest-MD5 que pode ser encontrado em:
#http://search.cpan.org/src/GAAS/Digest-MD5-2.36/MD5.pm
#->ppm install http://search.cpan.org/src/GAAS/Digest-MD5-2.36/MD5.pm
#Coded by _Dr4k0_
#BrazLab
use Digest::MD5 qw(md5_hex);
system ("cls");
print ">=========================================================\n";
print "Md5 Encryptor\nCoded by _Dr4k0_ a.k.a. BrazLab and Atk33\n";
print "Contact:irc.gigachat.net #Atk33\n";
print "\n";
print "Version 1.0\n";
print ">=========================================================\n";
print "Quantidade de senhas para ser criptografada:\n";
$x=<STDIN>;
chomp $x;
for ($y=0;$y<$x;$y++){
print "Escreva o password para ser criptografado: ";
$pass = <STDIN>;
chomp $pass;
print "Criptografado: <'$pass'>: " . md5_hex("$pass") . "\n\n";}
aeeeeeeeeee =]
muito bom kra.. se trata desse código aqui akele ki vc falava no MSN? ^^
parabens aew =]
Citação de: "Quicky"aeeeeeeeeee =]
muito bom kra.. se trata desse código aqui akele ki vc falava no MSN? ^^
parabens aew =]
ele mesmo mais mudei varias coisas..agora to melhorano ele ainda mais e logo logo fica pronto..
Parabêns dr4k0! ficou legal...