|
Deseja expor aqui seu código/script/função do Perl comentado?
Mande um e-mail para contato@cgiclube.net
• Encriptando senhas no formato MD5.
Antes de começar a testar os códigos a seguir, instale os módulos necessários:
entre no prompt de comando e digite:
ppm
install (aqui vc poe o nome do módulo na qual você quer instalar) |
Encriptando com o módulo Digest::MD5:
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
use Digest::MD5 qw(md5 md5_hex md5_base64);
$string = "Bla bla bla";
$md5 = md5_hex($string);
print qq~
Senha encriptada: $md5
~; |
Encriptando com o módulo Crypt::PasswdMD5
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
use Crypt::PasswdMD5;
$password="senha";
$cryptedpassword = unix_md5_crypt($password, $salt);
print qq~
Senha encriptada: $cryptedpassword
~; |
Dúvidas? www.cgiclube.net/forum/
2107 visualizações.
Postado por João Gabriel em 30/01/2005.
<< Voltar
|
