[Cascavel-pm] MD5 -> Fazer o Reverse

[Ricardo Stock]

Ola Para todos da lista.

Estou tentando aprender a usar o MD5, no CPAN encontrei os modulos

Digest::MD5 e
Digest::MD5::Reverse onde os mesmos estão instalados

Fiz um código para tentar aprender, segue o techo

está é a função que recebe o texto e o criptografa
#######################################################
    my $fonte=param('fonte');
    my $md5=Digest::MD5->new;
    $md5->add($fonte);

    print "$fonte criptografado usando MD5 <p>\n";

    print "Em base64<br>\n";
    print $md5->b64digest,"<p>";

    print "Em Hexadecimal<br>";
    $fonte=$md5->hexdigest;
    print "$fonte<p>\n";
###########################################################
Até aqui não ha warnings ou erros, e executa normalmente. mas não consigo
descriptografar o texto,  me apresentando um erro neste techo


    print "Texto Original<br>\n";
    my $plaintext=reverse_md5($md5); <-- Nesta linha ---- Undefined
subroutine &main::reverse_md5 called
    print "$plaintext";


Não consegui achar nada no google que tirasse minha dúvida. Também nao
entendi bem o que é uma operação destruitva no metodo.
Outra coisa, como saber se meu hash está correto ?

Este foi o retorno quando o valor da variavel $fonte era ricardo
Em base64
ZyByAFTp0k+/bCCoMf8ofg

Em Hexadecimal
d41d8cd98f00b204e9800998ecf8427e



Fico no aguardo de qualquer ajuda.

Obrigado

Ricardo Stock
ricardostock em bol.com.br