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 0.2

  • 0 Respuestas
  • 1105 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 07, 2012, 11:02:45 am »
Nueva version de este script para codificar y decodificar en :

  • Hex
  • SHA1
  • MD5 (solo encode)
  • Base64
  • ASCII
  • URL


El codigo

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

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3158
Ú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: 1474
Ú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] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1273
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1252
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear