[Perl] Ejemplo de Cifrado Vigenere

. A simple example of Vigenere encryption made ​​using a module cpan I found in the code:

# !usr/bin/perl# Vigenere Cipher# Coded By Doddy Hackman in the year 2014use Crypt::Vigenere;head();menu();copyright();# Functionssub 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 ?

That's all. 

Transfork

Đam mê công nghệ, lập trình web, game đua xe và nhiều thứ khác. Thích học hỏi, tìm tòi nhiều kiến thức hay bổ ích. Thích chia sẽ cho mọi người, bạn bè về những kiến thức học được.