Autor Tema: [Perl] Ejemplo de Cifrado Vigenere (Leído 3201 veces)

BigBear · « **en:** Diciembre 13, 2014, 03:23:12 pm »

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

El codigo :

Código: Perl

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

Starfield: el juego que revolucionará el espacio y la tecnología

Autor Tema: [Perl] Ejemplo de Cifrado Vigenere (Leído 3201 veces)

BigBear

[Perl] Ejemplo de Cifrado Vigenere