comment
IRC Chat
play_arrow
  3. [Perl] Ejemplo de Cifrado Murcielago
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 Murcielago

  • 8 Respuestas
  • 3549 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 Murcielago

« en: Noviembre 21, 2014, 10:11:36 am »
Un simple ejemplo en Perl sobre como realizar el cifrado Murcielago.

Código: Perl
  1. # !usr/bin/perl
  2. # Cifrado Murcielago
  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-- == Cifrado Murcielago == --\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 - Cifrar    =
  25. 2 - Descifrar =
  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_murcielago($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_murcielago($text);
  51.         <stdin>;
  52.         menu();
  53.     }
  54.     else {
  55.         menu();
  56.     }
  57.  
  58. }
  59.  
  60. sub cifrado_murcielago {
  61.     my $texto = No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  62.     $texto =~ tr/murcielagoMURCIELAGO/01234567890123456789/;
  63.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $texto;
  64. }
  65.  
  66. sub descifrado_murcielago {
  67.     my $texto = No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  68.     $texto =~ tr/01234567890123456789/murcielagoMURCIELAGO/;
  69.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $texto;
  70. }
  71.  
  72. # The End ?
  73.  
En línea

Desconectado Juan

  • *
  • Underc0der
  • Mensajes: 159
  • Actividad:
    0%
  • Reputación 0
  • Ex-Drinky
    • Ver Perfil
Re:[Perl] Ejemplo de Cifrado Murcielago
« Respuesta #1 en: Noviembre 24, 2014, 02:51:54 pm »
De 70 líneas a 22 y hace exactamente lo mismo.

Código: Perl
  1. #!/usr/bin/perl
  2.  
  3. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n-- == Cifrado Murcielago == --\n";
  4.  
  5. menu:
  6.  
  7. No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(===============\n= Menu        =\n===============\n1 - Cifrar    =\n2 - Descifrar =\n3 - Exit      =\n===============\n);
  8.  
  9. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Option : ";
  10. No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $op = <stdin> );
  11.  
  12. No tienes permisos para ver links. Registrate o Entra con tu cuenta if ( $op eq "3");
  13.  
  14. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Enter text : ";
  15. No tienes permisos para ver links. Registrate o Entra con tu cuenta($_ = <stdin>);
  16.  
  17. $_ =~ tr/murcielagoMURCIELAGO/01234567890123456789/ and No tienes permisos para ver links. Registrate o Entra con tu cuenta if ($op eq "1");
  18. $_ =~ tr/01234567890123456789/murcielagoMURCIELAGO/ and No tienes permisos para ver links. Registrate o Entra con tu cuenta if ($op eq "2");
  19.      
  20. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n-- == (C) Doddy Hackman 2014 == --\n";
  21.        
  22. No tienes permisos para ver links. Registrate o Entra con tu cuenta menu;
  23.  
En línea

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
Re:[Perl] Ejemplo de Cifrado Murcielago
« Respuesta #2 en: Noviembre 24, 2014, 04:08:47 pm »
en ningun momento busque la reduccion de codigo en el script , igual gracias por comentar.
En línea

Desconectado Juan

  • *
  • Underc0der
  • Mensajes: 159
  • Actividad:
    0%
  • Reputación 0
  • Ex-Drinky
    • Ver Perfil
Re:[Perl] Ejemplo de Cifrado Murcielago
« Respuesta #3 en: Noviembre 24, 2014, 04:18:06 pm »
Pero... hacer hacer algo tan simple es un poco absurdo que lo hagas con funciones :-\
En línea

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
Re:[Perl] Ejemplo de Cifrado Murcielago
« Respuesta #4 en: Noviembre 24, 2014, 04:23:37 pm »
no le veo absurdo solo le agregue funciones de mas al script porque quize , es un simple ejemplo no estamos en una competencia de codigos xD.
En línea

Desconectado kid_goth

  • *
  • Underc0der
  • Mensajes: 201
  • Actividad:
    0%
  • Reputación 3
  • Tu conocimiento se limita cuando dices NO PUEDO...
    • Ver Perfil
    • DC Projects
    • Email
Re:[Perl] Ejemplo de Cifrado Murcielago
« Respuesta #5 en: Noviembre 24, 2014, 04:24:40 pm »
A mi parecer mejor programar bien que por programar... el codigo de Doddy es obviamente mas organizado y legible para quienes inician en la prog, ademas el uso de goto? naaaaa. Juan a veces no es tanto lo simple que sea, sino lo que pueda aportar para otras cosas, y aunque el código en si, hasta en 1 sola linea en bash lo haces si lo necesitaras. Lo que importa es que quien lo tome (me imagino mas por practica o por ejemplo) al menos vaya aprendiendo de funciones y esas cosas....

Saludos
En línea
No tienes permisos para ver links. Registrate o Entra con tu cuenta

Acepta con humildad y aprecio que en la vida la muerte es inevitable y amarás ésta, adorando la muerte

Desconectado LKI

  • *
  • Underc0der
  • Mensajes: 61
  • Actividad:
    0%
  • Reputación 0
  • |Un día sin aprender nada, es un día perdido..|
    • Ver Perfil
    • Email
Re:[Perl] Ejemplo de Cifrado Murcielago
« Respuesta #6 en: Noviembre 24, 2014, 05:04:27 pm »
Citar
"Cualquier tonto puede escribir código que un ordenador entiende. Los buenos programadores escriben código que los humanos pueden entender."  Martin Fowler 


Citar
"Los programas deben ser escritos para que la gente los lea y sólo incidentalmente, para que las máquinas los ejecuten."                        Abelson / Sussman

Citar
"Medir el progreso de la programación por líneas de código es como medir el progreso en la construcción de aviones por el peso."                  Bill Gates
En línea
Ser mejor cada día es mi meta

 =LKI=

Desconectado Juan

  • *
  • Underc0der
  • Mensajes: 159
  • Actividad:
    0%
  • Reputación 0
  • Ex-Drinky
    • Ver Perfil
Re:[Perl] Ejemplo de Cifrado Murcielago
« Respuesta #7 en: Noviembre 24, 2014, 05:12:25 pm »
No creo que mi código sea ilegible, de hecho lo veo mas leigle que el otro, ya que lo puedes leer y entender sin dar vueltas por el código.
En línea

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
Re:[Perl] Ejemplo de Cifrado Murcielago
« Respuesta #8 en: Noviembre 25, 2014, 11:05:42 am »
pensa lo que quieras Juan nadie se opone xD , igual si tan legible es tu codigo la proxima vez identalo y evita estos chorizos largos :

Código: Perl
  1. No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(===============\n= Menu        =\n===============\n1 - Cifrar    =\n2 - Descifrar =\n3 - Exit      =\n===============\n);
  2. $_ =~ tr/murcielagoMURCIELAGO/01234567890123456789/ and No tienes permisos para ver links. Registrate o Entra con tu cuenta if ($op eq "1");

Espero que sea el fin de esta discusion sin sentido xD.

Saludos.
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: 3150 		Ú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: 1468 		Ú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: 1600 		Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

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

Iniciado por BigBear

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