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
  • 1207 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.     print q(
  22.  
  23.  
  24.  
  25.   @@@            @ @   @ @             @          
  26.  @   @           @    @                @          
  27. @       @@@   @@ @ @ @@@ @  @@@   @@@ @@@  @@@  @ @
  28. @      @   @ @  @@ @  @  @ @   @ @   @ @  @   @ @@
  29. @      @   @ @   @ @  @  @ @      @@@@ @  @   @ @  
  30. @      @   @ @   @ @  @  @ @     @   @ @  @   @ @  
  31.  @   @ @   @ @  @@ @  @  @ @   @ @  @@ @  @   @ @  
  32.   @@@   @@@   @@ @ @  @  @  @@@   @@ @ @@  @@@  @  
  33.  
  34.  
  35.  
  36. );
  37. }
  38.  
  39. head();
  40. print "\n[+] Options\n\n";
  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.     print "\n\n[+] Option : ";
  55.     chomp( my $op = <stdin> );
  56.     print "\n\n";
  57.     if ( $op eq 1 ) {
  58.         print "[+] String : ";
  59.         chomp( my $string = <stdin> );
  60.         print "\n\n[+] MD5 : " . Digest::MD5->md5_hex($string) . "\n\n";
  61.     }
  62.     elsif ( $op eq 2 ) {
  63.         print "[+] String : ";
  64.         chomp( my $string = <stdin> );
  65.         print "\n\n[+] Base64 : " . encode_base64($string);
  66.     }
  67.     elsif ( $op eq 3 ) {
  68.         print "[+] String : ";
  69.         chomp( my $string = <stdin> );
  70.         print "\n\n[+] Base64 Decode : " . decode_base64($string) . "\n";
  71.     }
  72.     elsif ( $op eq 4 ) {
  73.         print "[+] String : ";
  74.         chomp( my $string = <stdin> );
  75.         print "\n\n[+] Ascii : " . join ',', unpack "U*", $string;
  76.         print "\n";
  77.     }
  78.     elsif ( $op eq 5 ) {
  79.         print "[+] String : ";
  80.         chomp( my $string = <stdin> );
  81.         print "\n\n[+] Ascii decode : " . join q[], map { chr } split q[,],
  82.           $string . "\n";
  83.         print "\n";
  84.     }
  85.     elsif ( $op eq 6 ) {
  86.         print "[+] String : ";
  87.         chomp( my $string = <stdin> );
  88.         $hex = "0x";
  89.         for ( split //, $string ) {
  90.             $hex .= sprintf "%x", ord;
  91.         }
  92.         print "\n\n[+] Hex : " . $hex . "\n";
  93.     }
  94.     elsif ( $op eq 7 ) {
  95.         print "[+] String : ";
  96.         chomp( my $string = <stdin> );
  97.         $string =~ s/^0x//;
  98.         $encode = join q[], map { chr hex } $string =~ /../g;
  99.         print "\n\n[+] Hex decode : " . $encode . "\n";
  100.     }
  101.     elsif ( $op eq 8 ) {
  102.         print "[+] String : ";
  103.         chomp( my $string = <stdin> );
  104.         print "\n\n[+] URL Encode : " . uri_escape($string) . "\n";
  105.     }
  106.     elsif ( $op eq 9 ) {
  107.         print "[+] String : ";
  108.         chomp( my $string = <stdin> );
  109.         print "\n\n[+] URL Decode : " . uri_unescape($string) . "\n";
  110.     }
  111.     elsif ( $op eq 10 ) {
  112.         copyright();
  113.         exit(1);
  114.     }
  115.     else {
  116.         print "[+] Write good stupid !\n";
  117.     }
  118. }
  119.  
  120. sub clean {
  121.     my $os = $^O;
  122.     if ( $os =~ /Win32/ig ) {
  123.         system("cls");
  124.     }
  125.     else {
  126.         system("clear");
  127.     }
  128. }
  129.  
  130. sub copyright {
  131.     print "\n-- == Doddy Hackman 2012 == --\n\n";
  132.     <stdin>;
  133.     exit(1);
  134. }
  135.  
  136. # The End ?
  137.  

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3459
Ú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: 1712
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1558
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1288
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

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