[Perl] Ejemplo de Cifrado Vigenere

[BigBear]

Un simple ejemplo del cifrado Vigenere que hice usando un modulo que encontre en cpan.

El codigo :

Código (perl) [Seleccionar] Expandir


# !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 ?


Eso es todo.