El codigo :
Código
# !usr/bin/perl # Vigenere Cipher # Coded By Doddy Hackman in the year 2014 use Crypt::Vigenere; head(); menu(); copyright(); # Functions sub head { } sub copyright { } sub menu { =============== = Menu = =============== 1 - Encode = 2 - Decode = 3 - Exit = =============== ); if ( $op eq "3" ) { copyright(); <stdin>; } $tool = Crypt::Vigenere->new($key); if ( $op eq "1" ) { <stdin>; menu(); } elsif ( $op eq "2" ) { <stdin>; menu(); } else { menu(); } } # The End ?
Eso es todo.