Un simple ejemplo en Perl sobre como realizar el cifrado Murcielago.

# !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 ?