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] Codificator version consola

  • 0 Respuestas
  • 1063 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 03, 2011, 10:06:35 pm »
Un simple codificador

Soportes :


  • Hex encode/decode
  • MD5 encode
  • Base64 encode/decode
  • ASCII encode/decode
  • URL encode/decode
Código: Perl
  1. #!usr/bin/perl
  2. #Codificator version consola (C) Doddy Hackman 2011
  3. #This tool encode in :
  4. #
  5. #Hex
  6. #MD5
  7. #Base64
  8. #ASCII
  9. #URL
  10. #
  11. #
  12.  
  13. use Digest::MD5;
  14. use Digest::SHA1;
  15. use MIME::Base64;
  16. use URI::Escape;
  17.  
  18. sub head {
  19. No tienes permisos para ver links. Registrate o Entra con tu cuenta("cls");
  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.  
  23.  
  24.   @@@            @ @   @ @             @          
  25.  @   @           @    @                @          
  26. @       @@@   @@ @ @ @@@ @  @@@   @@@ @@@  @@@  @ @
  27. @      @   @ @  @@ @  @  @ @   @ @   @ @  @   @ @@
  28. @      @   @ @   @ @  @  @ @      @@@@ @  @   @ @  
  29. @      @   @ @   @ @  @  @ @     @   @ @  @   @ @  
  30.  @   @ @   @ @  @@ @  @  @ @   @ @  @@ @  @   @ @  
  31.   @@@   @@@   @@ @ @  @  @  @@@   @@ @ @@  @@@  @  
  32.  
  33.  
  34.  
  35. );
  36. }
  37.  
  38. head();
  39. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Options\n\n";
  40. No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(
  41. 1 - MD5 encode
  42. 2 - Base64 encode
  43. 3 - Base64 decode
  44. 4 - Ascii encode
  45. 5 - Ascii decode
  46. 6 - Hex encode
  47. 7 - Hex decode
  48. 8 - URL encode
  49. 9 - URL decode
  50. 10 - Exit
  51.  
  52. );
  53. while(true) {
  54. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Option : ";
  55. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $op = <stdin>);
  56. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  57. if ($op eq 1) {
  58. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] String : ";
  59. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $string = <stdin>);
  60. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] MD5 : ".Digest::MD5->md5_hex($string)."\n\n";
  61. }
  62. elsif ($op eq 2) {
  63. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] String : ";
  64. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $string = <stdin>);
  65. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Base64 : ".encode_base64($string);
  66. }
  67. elsif ($op eq 3) {
  68. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] String : ";
  69. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $string = <stdin>);
  70. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Base64 Decode : ".decode_base64($string)."\n";
  71. }
  72. elsif ($op eq 4) {
  73. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] String : ";
  74. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $string = <stdin>);
  75. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Ascii : ".No tienes permisos para ver links. Registrate o Entra con tu cuenta ',',No tienes permisos para ver links. Registrate o Entra con tu cuenta "U*",$string;
  76. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n";
  77. }
  78. elsif ($op eq 5) {
  79. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] String : ";
  80. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $string = <stdin>);
  81. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Ascii decode : ".No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta[], No tienes permisos para ver links. Registrate o Entra con tu cuenta { No tienes permisos para ver links. Registrate o Entra con tu cuenta } No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta[,],$string."\n";
  82. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n";
  83. }
  84. elsif ($op eq 6) {
  85. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] String : ";
  86. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $string = <stdin>);
  87. $hex = "0x";
  88. for (No tienes permisos para ver links. Registrate o Entra con tu cuenta //,$string) {
  89. $hex .= No tienes permisos para ver links. Registrate o Entra con tu cuenta "%x", No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  90. }
  91. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Hex : ".$hex."\n";
  92. }
  93. elsif ($op eq 7) {
  94. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] String : ";
  95. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $string = <stdin>);
  96. $string =~ s/^0x//;
  97. $encode = No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta[], No tienes permisos para ver links. Registrate o Entra con tu cuenta { No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta } $string =~ /../g;
  98. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Hex decode : ".$encode."\n";
  99. }
  100. elsif ($op eq 8) {
  101. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] String : ";
  102. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $string = <stdin>);
  103. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] URL Encode : ".uri_escape($string)."\n";
  104. }
  105. elsif ($op eq 9) {
  106. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] String : ";
  107. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $string = <stdin>);
  108. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] URL Decode : ".uri_unescape($string)."\n";
  109. }
  110. elsif ($op eq 10) {
  111. copyright();
  112. No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  113. }
  114. else {
  115. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Write good stupid !\n";
  116. }
  117. }
  118.  
  119. sub copyright {
  120. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n-- == Doddy Hackman 2011 == --\n\n";
  121. }
  122.  
  123. # ¿The End ?
  124.  

Ejemplo de uso


Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta




  @@@            @ @   @ @             @
 @   @           @    @                @
@       @@@   @@ @ @ @@@ @  @@@   @@@ @@@  @@@  @ @
@      @   @ @  @@ @  @  @ @   @ @   @ @  @   @ @@
@      @   @ @   @ @  @  @ @      @@@@ @  @   @ @
@      @   @ @   @ @  @  @ @     @   @ @  @   @ @
 @   @ @   @ @  @@ @  @  @ @   @ @  @@ @  @   @ @
  @@@   @@@   @@ @ @  @  @  @@@   @@ @ @@  @@@  @




[+] Options


1 - MD5 encode
2 - Base64 encode
3 - Base64 decode
4 - Ascii encode
5 - Ascii decode
6 - Hex encode
7 - Hex decode
8 - URL encode
9 - URL decode
10 - Exit



[+] Option :
« Última modificación: Julio 17, 2011, 03:39:42 am por Sthefano02 »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3161
Ú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: 1476
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[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
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1253
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

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