Un simple ejemplo del cifrado Vigenere que hice usando un modulo que encontre en cpan.
El codigo :
# !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 {
===============
= Menu =
===============
1 - Encode =
2 - Decode =
3 - Exit =
===============
);
chomp( my $op = <stdin> );
if ( $op eq "3" ) {
copyright();
<stdin>;
}
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 ?
Eso es todo.