[Perl] Codificator version consola

  • 0 Respuestas
  • 1709 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 version consola

  • en: Julio 03, 2011, 10:06:35 pm
Un simple codificador

Soportes :


  • Hex encode/decode[/li]
  • MD5 encode[/li]
  • Base64 encode/decode[/li]
  • ASCII encode/decode[/li]
  • URL encode/decode[/li]


    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. system("cls");
    20.  
    21.  
    22.  
    23.   @@@            @ @   @ @             @          
    24.  @   @           @    @                @          
    25. @       @@@   @@ @ @ @@@ @  @@@   @@@ @@@  @@@  @ @
    26. @      @   @ @  @@ @  @  @ @   @ @   @ @  @   @ @@
    27. @      @   @ @   @ @  @  @ @      @@@@ @  @   @ @  
    28. @      @   @ @   @ @  @  @ @     @   @ @  @   @ @  
    29.  @   @ @   @ @  @@ @  @  @ @   @ @  @@ @  @   @ @  
    30.   @@@   @@@   @@ @ @  @  @  @@@   @@ @ @@  @@@  @  
    31.  
    32.  
    33.  
    34. );
    35. }
    36.  
    37. head();
    38. print "\n</li><li type="square"> Options\n\n";[/li][/list]
    39. 1 - MD5 encode
    40. 2 - Base64 encode
    41. 3 - Base64 decode
    42. 4 - Ascii encode
    43. 5 - Ascii decode
    44. 6 - Hex encode
    45. 7 - Hex decode
    46. 8 - URL encode
    47. 9 - URL decode
    48. 10 - Exit
    49.  
    50. );
    51. while(true) {
    52. print "\n\n</li><li type="square"> Option : ";[/li][/list]
    53. chomp(my $op = <stdin>);
    54. print "\n\n";
    55. if ($op eq 1) {
    56. print "</li><li type="square"> String : ";[/li][/list]
    57. chomp(my $string = <stdin>);
    58. print "\n\n</li><li type="square"> MD5 : ".Digest::MD5->md5_hex($string)."\n\n";[/li][/list]
    59. }
    60. elsif ($op eq 2) {
    61. print "</li><li type="square"> String : ";[/li][/list]
    62. chomp(my $string = <stdin>);
    63. print "\n\n</li><li type="square"> Base64 : ".encode_base64($string);[/li][/list]
    64. }
    65. elsif ($op eq 3) {
    66. print "</li><li type="square"> String : ";[/li][/list]
    67. chomp(my $string = <stdin>);
    68. print "\n\n</li><li type="square"> Base64 Decode : ".decode_base64($string)."\n";[/li][/list]
    69. }
    70. elsif ($op eq 4) {
    71. print "</li><li type="square"> String : ";[/li][/list]
    72. chomp(my $string = <stdin>);
    73. print "\n\n</li><li type="square"> Ascii : ".join ',',unpack "U*",$string;[/li][/list]
    74. print "\n";
    75. }
    76. elsif ($op eq 5) {
    77. print "</li><li type="square"> String : ";[/li][/list]
    78. chomp(my $string = <stdin>);
    79. print "\n\n</li><li type="square"> Ascii decode : ".join q[], map { chr } split q[,],$string."\n";[/li][/list]
    80. print "\n";
    81. }
    82. elsif ($op eq 6) {
    83. print "</li><li type="square"> String : ";[/li][/list]
    84. chomp(my $string = <stdin>);
    85. $hex = "0x";
    86. for (split //,$string) {
    87. $hex .= sprintf "%x", ord;
    88. }
    89. print "\n\n</li><li type="square"> Hex : ".$hex."\n";[/li][/list]
    90. }
    91. elsif ($op eq 7) {
    92. print "</li><li type="square"> String : ";[/li][/list]
    93. chomp(my $string = <stdin>);
    94. $string =~ s/^0x//;
    95. $encode = join q[], map { chr hex } $string =~ /../g;
    96. print "\n\n</li><li type="square"> Hex decode : ".$encode."\n";[/li][/list]
    97. }
    98. elsif ($op eq <img src="https://underc0de.org/foro/Smileys/default/cool.gif" alt="8&#41;" title="Cool" class="smiley" /> {
    99. print "</li><li type="square"> String : ";[/li][/list]
    100. chomp(my $string = <stdin>);
    101. print "\n\n</li><li type="square"> URL Encode : ".uri_escape($string)."\n";[/li][/list]
    102. }
    103. elsif ($op eq 9) {
    104. print "</li><li type="square"> String : ";[/li][/list]
    105. chomp(my $string = <stdin>);
    106. print "\n\n</li><li type="square"> URL Decode : ".uri_unescape($string)."\n";[/li][/list]
    107. }
    108. elsif ($op eq 10) {
    109. copyright();
    110. exit(1);
    111. }
    112. else {
    113. print "</li><li type="square"> Write good stupid !\n";[/li][/list]
    114. }
    115. }
    116.  
    117. sub copyright {
    118. print "\n-- == Doddy Hackman 2011 == --\n\n";
    119. }
    120.  
    121. # ¿The End ?
    122.  

    Ejemplo de uso


    Código: [Seleccionar]




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




  • Options[/li][/list]


    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 :[/li]
« Última modificación: Julio 17, 2011, 03:39:42 am por Sthefano02 »

 

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
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

Respuestas: 0
Vistas: 4374
Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 2606
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[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