[Perl] Codificator 0.2

  • 0 Respuestas
  • 1890 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] Codificator 0.2

  • en: Julio 07, 2012, 11:02:45 am
Nueva version de este script para codificar y decodificar en :

  • Hex[/li]
  • SHA1[/li]
  • MD5 (solo encode)[/li]
  • Base64 [/li]
  • ASCII[/li]
  • URL[/li][/list]

    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</li><li type="square"> Options\n\n";[/li][/list]
    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</li><li type="square"> Option : ";[/li][/list]
    55.     chomp( my $op = <stdin> );
    56.     print "\n\n";
    57.     if ( $op eq 1 ) {
    58.         print "</li><li type="square"> String : ";[/li][/list]
    59.         chomp( my $string = <stdin> );
    60.         print "\n\n</li><li type="square"> MD5 : " . Digest::MD5->md5_hex($string) . "\n\n";[/li][/list]
    61.     }
    62.     elsif ( $op eq 2 ) {
    63.         print "</li><li type="square"> String : ";[/li][/list]
    64.         chomp( my $string = <stdin> );
    65.         print "\n\n</li><li type="square"> Base64 : " . encode_base64($string);[/li][/list]
    66.     }
    67.     elsif ( $op eq 3 ) {
    68.         print "</li><li type="square"> String : ";[/li][/list]
    69.         chomp( my $string = <stdin> );
    70.         print "\n\n</li><li type="square"> Base64 Decode : " . decode_base64($string) . "\n";[/li][/list]
    71.     }
    72.     elsif ( $op eq 4 ) {
    73.         print "</li><li type="square"> String : ";[/li][/list]
    74.         chomp( my $string = <stdin> );
    75.         print "\n\n</li><li type="square"> Ascii : " . join ',', unpack "U*", $string;[/li][/list]
    76.         print "\n";
    77.     }
    78.     elsif ( $op eq 5 ) {
    79.         print "</li><li type="square"> String : ";[/li][/list]
    80.         chomp( my $string = <stdin> );
    81.         print "\n\n</li><li type="square"> Ascii decode : " . join q[], map { chr } split q[,],[/li][/list]
    82.           $string . "\n";
    83.         print "\n";
    84.     }
    85.     elsif ( $op eq 6 ) {
    86.         print "</li><li type="square"> String : ";[/li][/list]
    87.         chomp( my $string = <stdin> );
    88.         $hex = "0x";
    89.         for ( split //, $string ) {
    90.             $hex .= sprintf "%x", ord;
    91.         }
    92.         print "\n\n</li><li type="square"> Hex : " . $hex . "\n";[/li][/list]
    93.     }
    94.     elsif ( $op eq 7 ) {
    95.         print "</li><li type="square"> String : ";[/li][/list]
    96.         chomp( my $string = <stdin> );
    97.         $string =~ s/^0x//;
    98.         $encode = join q[], map { chr hex } $string =~ /../g;
    99.         print "\n\n</li><li type="square"> Hex decode : " . $encode . "\n";[/li][/list]
    100.     }
    101.     elsif ( $op eq 8 ) {
    102.         print "</li><li type="square"> String : ";[/li][/list]
    103.         chomp( my $string = <stdin> );
    104.         print "\n\n</li><li type="square"> URL Encode : " . uri_escape($string) . "\n";[/li][/list]
    105.     }
    106.     elsif ( $op eq 9 ) {
    107.         print "</li><li type="square"> String : ";[/li][/list]
    108.         chomp( my $string = <stdin> );
    109.         print "\n\n</li><li type="square"> URL Decode : " . uri_unescape($string) . "\n";[/li][/list]
    110.     }
    111.     elsif ( $op eq 10 ) {
    112.         copyright();
    113.         exit(1);
    114.     }
    115.     else {
    116.         print "</li><li type="square"> Write good stupid !\n";[/li][/list]
    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.  

 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

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

Iniciado por BigBear

Respuestas: 0
Vistas: 2599
Ú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: 3017
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 2560
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear