Código
# !usr/bin/perl # Cifrado Murcielago # Coded By Doddy Hackman in the year 2014 head(); menu(); copyright(); # Functions sub head { } sub copyright { } sub menu { =============== = Menu = =============== 1 - Cifrar = 2 - Descifrar = 3 - Exit = =============== ); if ( $op eq "3" ) { copyright(); <stdin>; } if ( $op eq "1" ) { <stdin>; menu(); } elsif ( $op eq "2" ) { <stdin>; menu(); } else { menu(); } } sub cifrado_murcielago { $texto =~ tr/murcielagoMURCIELAGO/01234567890123456789/; } sub descifrado_murcielago { $texto =~ tr/01234567890123456789/murcielagoMURCIELAGO/; } # The End ?