um jeito simples de testar é rodar (em Linux/Unix) o comando:<br><br>$ echo &#39;texto-inicial&#39; |md5sum<br>5e08602128f3f642da84abb1dfbf1360  -<br><br>Cheers,<br>Russo<br><br><div class="gmail_quote">2010/1/30 Ricardo Stock <span dir="ltr">&lt;<a href="mailto:ricardostock@bol.com.br">ricardostock@bol.com.br</a>&gt;</span><br>

<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Ola Para todos da lista.<br>
<br>
Estou tentando aprender a usar o MD5, no CPAN encontrei os modulos<br>
<br>
Digest::MD5 e<br>
Digest::MD5::Reverse onde os mesmos estão instalados<br>
<br>
Fiz um código para tentar aprender, segue o techo<br>
<br>
está é a função que recebe o texto e o criptografa<br>
#######################################################<br>
   my $fonte=param(&#39;fonte&#39;);<br>
   my $md5=Digest::MD5-&gt;new;<br>
   $md5-&gt;add($fonte);<br>
<br>
   print &quot;$fonte criptografado usando MD5 &lt;p&gt;\n&quot;;<br>
<br>
   print &quot;Em base64&lt;br&gt;\n&quot;;<br>
   print $md5-&gt;b64digest,&quot;&lt;p&gt;&quot;;<br>
<br>
   print &quot;Em Hexadecimal&lt;br&gt;&quot;;<br>
   $fonte=$md5-&gt;hexdigest;<br>
   print &quot;$fonte&lt;p&gt;\n&quot;;<br>
###########################################################<br>
Até aqui não ha warnings ou erros, e executa normalmente. mas não consigo<br>
descriptografar o texto,  me apresentando um erro neste techo<br>
<br>
<br>
   print &quot;Texto Original&lt;br&gt;\n&quot;;<br>
   my $plaintext=reverse_md5($md5); &lt;-- Nesta linha ---- Undefined<br>
subroutine &amp;main::reverse_md5 called<br>
   print &quot;$plaintext&quot;;<br>
<br>
<br>
Não consegui achar nada no google que tirasse minha dúvida. Também nao<br>
entendi bem o que é uma operação destruitva no metodo.<br>
Outra coisa, como saber se meu hash está correto ?<br>
<br>
Este foi o retorno quando o valor da variavel $fonte era ricardo<br>
Em base64<br>
ZyByAFTp0k+/bCCoMf8ofg<br>
<br>
Em Hexadecimal<br>
d41d8cd98f00b204e9800998ecf8427e<br>
<br>
<br>
<br>
Fico no aguardo de qualquer ajuda.<br>
<br>
Obrigado<br>
<br>
Ricardo Stock<br>
<a href="mailto:ricardostock@bol.com.br" target="_blank">ricardostock@bol.com.br</a><br>
<br>
_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</blockquote></div><br><br clear="all"><br>-- <br>Alexei Znamensky [russoz_gmail_com] [<a href="http://russoz.wordpress.com">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz">www.flickr.com/photos/alexeiz</a>]<br>

&quot;Though we live in trying times, we&#39;re the ones who have to try&quot;<br>