send
Grupo de Telegram
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
  • 1612 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • 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.     You are not allowed to view links. Register or Login "\n-- == Caesar Cipher == --\n";
  13. }
  14.  
  15. sub copyright {
  16.     You are not allowed to view links. Register or Login "\n\n-- == (C) Doddy Hackman 2014 == --\n";
  17. }
  18.  
  19. sub menu {
  20.     You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(
  21. ==============
  22. = Menu       =
  23. ==============
  24. 1 - Encode   =
  25. 2 - Decode   =
  26. 3 - Exit     =
  27. ==============
  28. );
  29.  
  30.     You are not allowed to view links. Register or Login "\n[+] Option : ";
  31.     You are not allowed to view links. Register or Login( my $op = <stdin> );
  32.  
  33.     if ( $op eq "3" ) {
  34.         copyright();
  35.         <stdin>;
  36.         You are not allowed to view links. Register or Login(1);
  37.     }
  38.  
  39.     You are not allowed to view links. Register or Login "\n[+] Enter text : ";
  40.     You are not allowed to view links. Register or Login( my $text = <stdin> );
  41.  
  42.     You are not allowed to view links. Register or Login "\n[+] Result ...\n\n";
  43.  
  44.     if ( $op eq "1" ) {
  45.         You are not allowed to view links. Register or Login cifrado_cesar($text);
  46.         <stdin>;
  47.         menu();
  48.     }
  49.     elsif ( $op eq "2" ) {
  50.         You are not allowed to view links. Register or Login 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 = You are not allowed to view links. Register or Login( //, $_[0] );
  65.  
  66.     for my $letra (@letras) {
  67.  
  68.         if ( $letra ne " " ) {
  69.  
  70.             $letrafinal = You are not allowed to view links. Register or Login( You are not allowed to view links. Register or Login($letra) + 3 );
  71.  
  72.             $letrafinal =~ s/{/a/;
  73.             $letrafinal =~ s/\|/b/;
  74.             $letrafinal =~ s/}/c/;
  75.  
  76.             You are not allowed to view links. Register or Login( @re, $letrafinal );
  77.  
  78.         }
  79.         else {
  80.             You are not allowed to view links. Register or Login( @re, " " );
  81.         }
  82.     }
  83.  
  84.     You are not allowed to view links. Register or Login @re;
  85.  
  86. }
  87.  
  88. sub descifrado_cesar($texto) {
  89.  
  90.     my @re;
  91.  
  92.     @letras = You are not allowed to view links. Register or Login( //, $_[0] );
  93.  
  94.     for my $letra (@letras) {
  95.  
  96.         if ( $letra ne " " ) {
  97.  
  98.             $letrafinal = You are not allowed to view links. Register or Login( You are not allowed to view links. Register or Login($letra) - 3 );
  99.  
  100.             $letrafinal =~ s/\^/x/;
  101.             $letrafinal =~ s/_/y/;
  102.             $letrafinal =~ s/`/z/;
  103.  
  104.             You are not allowed to view links. Register or Login( @re, $letrafinal );
  105.  
  106.         }
  107.         else {
  108.             You are not allowed to view links. Register or Login( @re, " " );
  109.         }
  110.     }
  111.  
  112.     You are not allowed to view links. Register or Login @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: You are not allowed to view links. Register or Login
#!/usr/bin/perl
« Última modificación: Noviembre 28, 2014, 04:14:21 pm por Juan »

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • 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: 2854
Ú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: 1325
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1473
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1013
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1181
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear