Problema con Rot13
Publicado: 2017-03-18 07:53 @370
Hola, estoy tratando de codificar en Rot13 una variable string, pero no puedo porque solo me devuelve el número 1 como resultado de la función
Este es el código:
¿ Cuál es el problema ?
Este es el código:
Using perl Syntax Highlighting
- use Crypt::Rot13;
- my $php_code = "echo 'hi world'; ?>";
- print "Rot13 : ".encrypt_rot13($php_code)."\n\n";
- sub encrypt_rot13 {
- my $text = shift;
- my $rot13 = new Crypt::Rot13;
- $rot13->charge($text);
- return $rot13->rot13();
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
¿ Cuál es el problema ?