comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] Ejemplo de Cifrado Cesar

  • 2 Respuestas
  • 1958 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Noviembre 28, 2014, 01:48:09 pm »
Un simple ejemplo de como hacer en cifrado cesar en Perl.

El codigo :

Código: Perl
  1. # !usr/bin/perl
  2. # Caesar Cipher
  3. # Coded By Doddy Hackman in the year 2014
  4.  
  5. head();
  6. menu();
  7. copyright();
  8.  
  9. # Functions
  10.  
  11. sub head {
  12.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n-- == Caesar Cipher == --\n";
  13. }
  14.  
  15. sub copyright {
  16.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n-- == (C) Doddy Hackman 2014 == --\n";
  17. }
  18.  
  19. sub menu {
  20.     No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(
  21. ==============
  22. = Menu       =
  23. ==============
  24. 1 - Encode   =
  25. 2 - Decode   =
  26. 3 - Exit     =
  27. ==============
  28. );
  29.  
  30.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Option : ";
  31.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $op = <stdin> );
  32.  
  33.     if ( $op eq "3" ) {
  34.         copyright();
  35.         <stdin>;
  36.         No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  37.     }
  38.  
  39.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Enter text : ";
  40.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $text = <stdin> );
  41.  
  42.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Result ...\n\n";
  43.  
  44.     if ( $op eq "1" ) {
  45.         No tienes permisos para ver links. Registrate o Entra con tu cuenta cifrado_cesar($text);
  46.         <stdin>;
  47.         menu();
  48.     }
  49.     elsif ( $op eq "2" ) {
  50.         No tienes permisos para ver links. Registrate o Entra con tu cuenta descifrado_cesar($text);
  51.         <stdin>;
  52.         menu();
  53.     }
  54.     else {
  55.         menu();
  56.     }
  57.  
  58. }
  59.  
  60. sub cifrado_cesar {
  61.  
  62.     my @re;
  63.  
  64.     @letras = No tienes permisos para ver links. Registrate o Entra con tu cuenta( //, $_[0] );
  65.  
  66.     for my $letra (@letras) {
  67.  
  68.         if ( $letra ne " " ) {
  69.  
  70.             $letrafinal = No tienes permisos para ver links. Registrate o Entra con tu cuenta( No tienes permisos para ver links. Registrate o Entra con tu cuenta($letra) + 3 );
  71.  
  72.             $letrafinal =~ s/{/a/;
  73.             $letrafinal =~ s/\|/b/;
  74.             $letrafinal =~ s/}/c/;
  75.  
  76.             No tienes permisos para ver links. Registrate o Entra con tu cuenta( @re, $letrafinal );
  77.  
  78.         }
  79.         else {
  80.             No tienes permisos para ver links. Registrate o Entra con tu cuenta( @re, " " );
  81.         }
  82.     }
  83.  
  84.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @re;
  85.  
  86. }
  87.  
  88. sub descifrado_cesar($texto) {
  89.  
  90.     my @re;
  91.  
  92.     @letras = No tienes permisos para ver links. Registrate o Entra con tu cuenta( //, $_[0] );
  93.  
  94.     for my $letra (@letras) {
  95.  
  96.         if ( $letra ne " " ) {
  97.  
  98.             $letrafinal = No tienes permisos para ver links. Registrate o Entra con tu cuenta( No tienes permisos para ver links. Registrate o Entra con tu cuenta($letra) - 3 );
  99.  
  100.             $letrafinal =~ s/\^/x/;
  101.             $letrafinal =~ s/_/y/;
  102.             $letrafinal =~ s/`/z/;
  103.  
  104.             No tienes permisos para ver links. Registrate o Entra con tu cuenta( @re, $letrafinal );
  105.  
  106.         }
  107.         else {
  108.             No tienes permisos para ver links. Registrate o Entra con tu cuenta( @re, " " );
  109.         }
  110.     }
  111.  
  112.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @re;
  113.  
  114. }
  115.  
  116. # The End ?
  117.  

Desconectado Juan

  • *
  • Underc0der
  • Mensajes: 159
  • Actividad:
    0%
  • Reputación 0
  • Ex-Drinky
    • Ver Perfil
« Respuesta #1 en: Noviembre 28, 2014, 04:08:20 pm »
Hola Doddy! espero que ahora no te  tomes a mal mis consejos.  :)

Es conveniente que programes con use strict, ya que tienes muchas variables sin declarar y te puedes liar con el nombre de las variables al programar.

En algunas líneas para realizar la pausa usas stdin de esta manera:

Código: Perl
  1. <STDIN>;

Puedes poner simplemente esto: <>; y te va a funcionar igual y es mas corto  :P

También tienes algunas lineas de código de más, como por ejemplo estas:

Código: Perl
  1. $letrafinal =~ s/{/a/;
  2. $letrafinal =~ s/\|/b/;
  3. $letrafinal =~ s/}/c/;

Que la puedes dejar solo en una con la función tr.

un saludo.

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
#!/usr/bin/perl
« Última modificación: Noviembre 28, 2014, 04:14:21 pm por Juan »

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« Respuesta #2 en: Noviembre 28, 2014, 04:11:56 pm »
ok , gracias por las sugerencias.

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3243
Ú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: 1518
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1142
Ú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: 1403
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1668
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d