Código: Seleccionar todo

# !usr/bin/perl
# Vigenere Cipher
# Coded By Doddy Hackman in the year 2014

use Crypt::Vigenere;

head();
menu();
copyright();

# Functions

sub head {
    print "\n-- == Vigenere Cipher == --\n";
}

sub copyright {
    print "\n\n-- == (C) Doddy Hackman 2014 == --\n";
}

sub menu {
    print qq(
===============
= Menu        =
===============
1 - Encode    =
2 - Decode    =
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[+] Enter Key : ";
    chomp( my $key = <stdin> );

    print "\n[+] Result ...\n\n";

    $tool = Crypt::Vigenere->new($key);

    if ( $op eq "1" ) {
        print $tool->encodeMessage($text);
        <stdin>;
        menu();
    }
    elsif ( $op eq "2" ) {
        print $tool->decodeMessage($text);
        <stdin>;
        menu();
    }
    else {
        menu();
    }

}

# The End ?