Un simple ejemplo en Perl sobre como realizar el cifrado Murcielago.
Código:
# !usr/bin/perl
# Cifrado Murcielago
# Coded By Doddy Hackman in the year 2014
head();
menu();
copyright();
# Functions
sub head {
print "\n-- == Cifrado Murcielago == --\n";
}
sub copyright {
print "\n\n-- == (C) Doddy Hackman 2014 == --\n";
}
sub menu {
print qq(
===============
= Menu =
===============
1 - Cifrar =
2 - Descifrar =
3 - Exit =
===============
);
print "\n[+] Option : ";
chomp( my $op = <stdin> );
if ( $op eq "3" ) {
copyright();
<stdin>;
exit(1);
}
print "\n[+] Enter text : ";
chomp( my $text = <stdin> );
print "\n[+] Result ...\n\n";
if ( $op eq "1" ) {
print cifrado_murcielago($text);
<stdin>;
menu();
}
elsif ( $op eq "2" ) {
print descifrado_murcielago($text);
<stdin>;
menu();
}
else {
menu();
}
}
sub cifrado_murcielago {
my $texto = shift;
$texto =~ tr/murcielagoMURCIELAGO/01234567890123456789/;
return $texto;
}
sub descifrado_murcielago {
my $texto = shift;
$texto =~ tr/01234567890123456789/murcielagoMURCIELAGO/;
return $texto;
}
# The End ?