Consulta sobre un programita Perl.

[Jorge R.Colaccini]

Amigos listeros,

En otra lista en la cual estoy suscripto, hay un listero que firma,

#!/usr/bin/perl
$_='IyEvdXNyL2Jpbi9wZXJsCnByaW50ICdqdXN0IGFub3RoZXIgcGVybCBoYWNrZXInOwo';
tr|A-Za-z0-9+/| -_|;print unpack "u",chr(24+length).$_;

Si uno ejecuta esa firma (obviamente con Perl), obtiene
#!/usr/bin/perl
print 'just another perl hacker';

Entiendo que la linea de codigo "tr[A-Z.....$_;" desencripta la cadena
guardada en $_.

Algun EXPERTO de la lista, podria informarle a este NOVATO, si se puede (y
por ende como es) hacer la funcion inversa, es decir, partiendo de una
cadena en "humano", pasar a la cadena encriptada?

Les anticipo que lo consulte con el autor de la firma, y me mando
olimpicamente a CPAN, Base64. Ahi encontre un programa relativamente
complejo para hacerlo, y yo pienso que podria hacerse con solo una linea de
codigo, aplicando la inversa la linea de codigo antes mostrada.

Saludos.
----------------------------------------
Jorge R. Colaccini
E-mail: gralpaz@satlink.com
Rosario, Santa Fe, Argentina
----------------------------------------