Un simple ejemplo del cifrado Vigenere que hice usando un modulo que encontre en cpan.
El codigo :
Eso es todo.
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 {
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 ?