elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Perl] Ejemplo de Cifrado Vigenere
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Perl] Ejemplo de Cifrado Vigenere  (Leído 2,213 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Perl] Ejemplo de Cifrado Vigenere
« en: 13 Diciembre 2014, 15:23 pm »

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

El codigo :

Código
  1. # !usr/bin/perl
  2. # Vigenere Cipher
  3. # Coded By Doddy Hackman in the year 2014
  4.  
  5. use Crypt::Vigenere;
  6.  
  7. head();
  8. menu();
  9. copyright();
  10.  
  11. # Functions
  12.  
  13. sub head {
  14.    print "\n-- == Vigenere Cipher == --\n";
  15. }
  16.  
  17. sub copyright {
  18.    print "\n\n-- == (C) Doddy Hackman 2014 == --\n";
  19. }
  20.  
  21. sub menu {
  22.    print qq(
  23. ===============
  24. = Menu        =
  25. ===============
  26. 1 - Encode    =
  27. 2 - Decode    =
  28. 3 - Exit      =
  29. ===============
  30. );
  31.  
  32.    print "\n[+] Option : ";
  33.    chomp( my $op = <stdin> );
  34.  
  35.    if ( $op eq "3" ) {
  36.        copyright();
  37.        <stdin>;
  38.        exit(1);
  39.    }
  40.  
  41.    print "\n[+] Enter text : ";
  42.    chomp( my $text = <stdin> );
  43.  
  44.    print "\n[+] Enter Key : ";
  45.    chomp( my $key = <stdin> );
  46.  
  47.    print "\n[+] Result ...\n\n";
  48.  
  49.    $tool = Crypt::Vigenere->new($key);
  50.  
  51.    if ( $op eq "1" ) {
  52.        print $tool->encodeMessage($text);
  53.        <stdin>;
  54.        menu();
  55.    }
  56.    elsif ( $op eq "2" ) {
  57.        print $tool->decodeMessage($text);
  58.        <stdin>;
  59.        menu();
  60.    }
  61.    else {
  62.        menu();
  63.    }
  64.  
  65. }
  66.  
  67. # The End ?
  68.  

Eso es todo.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Sigamos con la historia: Cifrado Vigènere « 1 2 »
Criptografía
Aberroncho 10 17,432 Último mensaje 7 Octubre 2010, 20:40 pm
por Aberroncho
Duda con un ejemplo simple en Perl
Scripting
skan 3 3,062 Último mensaje 19 Mayo 2010, 13:08 pm
por skan
[Perl] Ejemplo de Cifrado Murcielago
Scripting
BigBear 0 1,972 Último mensaje 21 Noviembre 2014, 14:11 pm
por BigBear
[Perl] Ejemplo de Cifrado Cesar
Scripting
BigBear 0 2,124 Último mensaje 28 Noviembre 2014, 17:48 pm
por BigBear
Ayuda !! Cifrado vigenere
Programación C/C++
Alejan_dro 1 1,738 Último mensaje 26 Marzo 2019, 10:04 am
por CalgaryCorpus
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines