comment
IRC Chat
play_arrow
  3. [Perl] Ejemplo de Cifrado Vigenere
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.
« anterior próximo »
Páginas: [1]   Ir Abajo

[Perl] Ejemplo de Cifrado Vigenere

  • 0 Respuestas
  • 1297 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] Ejemplo de Cifrado Vigenere

« en: Diciembre 13, 2014, 11:23:06 am »
Un simple ejemplo del cifrado Vigenere que hice usando un modulo que encontre en cpan.

El codigo :

Código: Perl
  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.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n-- == Vigenere Cipher == --\n";
  15. }
  16.  
  17. sub copyright {
  18.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n-- == (C) Doddy Hackman 2014 == --\n";
  19. }
  20.  
  21. sub menu {
  22.     No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(
  23. ===============
  24. = Menu        =
  25. ===============
  26. 1 - Encode    =
  27. 2 - Decode    =
  28. 3 - Exit      =
  29. ===============
  30. );
  31.  
  32.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Option : ";
  33.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $op = <stdin> );
  34.  
  35.     if ( $op eq "3" ) {
  36.         copyright();
  37.         <stdin>;
  38.         No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  39.     }
  40.  
  41.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Enter text : ";
  42.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $text = <stdin> );
  43.  
  44.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Enter Key : ";
  45.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $key = <stdin> );
  46.  
  47.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Result ...\n\n";
  48.  
  49.     $tool = Crypt::Vigenere->new($key);
  50.  
  51.     if ( $op eq "1" ) {
  52.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $tool->encodeMessage($text);
  53.         <stdin>;
  54.         menu();
  55.     }
  56.     elsif ( $op eq "2" ) {
  57.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $tool->decodeMessage($text);
  58.         <stdin>;
  59.         menu();
  60.     }
  61.     else {
  62.         menu();
  63.     }
  64.  
  65. }
  66.  
  67. # The End ?
  68.  

Eso es todo.
« Última modificación: Diciembre 13, 2014, 11:24:51 am por Doddy »
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

 Respuestas: 2
Vistas: 3156 		Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

 Respuestas: 1
Vistas: 1470 		Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

 Respuestas: 0
Vistas: 1250 		Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

 Respuestas: 0
Vistas: 1103 		Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

 Respuestas: 0
Vistas: 1371 		Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX