Criptografia Em Perl

[Guest ViperRR]

Ola, amigos..esse é meu 1ºpost aqui e to precisando de uma graaaaaaaande ajuda

To precisando de ajuda pra fazer um programa que peça uma frase, dai criptografe a frase e imprima a frase criptografada, em PERL...alguém pode me ajudar, por favor?

Estou precisando dos códigos mesmo sabe?

Muito obrigado

[GhP]

#!/usr/bin/perl

print "Content-type: text/html\n\n";

$msg = "essa é uma mensagem normal";

$novamsg = crypt($msg, mmssgg);

print "Mensagemn: $msg<br>Mensagem criptografada: $novamsg";

espero ter ajudado

abraços