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 Tk] Codificator 0.2

  • 0 Respuestas
  • 1165 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:59 am »
Version Tk de este codificador.

Una imagen



El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #Codificator 0.2
  3. #Version Tk
  4. #Coded By Doddy H
  5.  
  6. use Tk;
  7. use Tk::Dialog;
  8. use Digest::MD5;
  9. use Digest::SHA1;
  10. use MIME::Base64;
  11. use URI::Escape;
  12.  
  13. if ( $^O eq 'MSWin32' ) {
  14.     use Win32::Console;
  15.     Win32::Console::Free();
  16. }
  17.  
  18. $header = "This tool encode text in :
  19.  
  20. Hex
  21. SHA1
  22. MD5
  23. Base64
  24. ASCII
  25. URL
  26.  
  27.  
  28. ";
  29.  
  30. my $color_fondo = "black", my $color_texto = "white";
  31.  
  32. $window = MainWindow->new( -background => "black", -foreground => "white" );
  33. $window->geometry("380x370+80+80");
  34. $window->title("Codificator 0.2 || Coded By Doddy H");
  35. $window->resizable( 0, 0 );
  36.  
  37. $menula = $window->Frame(
  38.     -relief     => "sunken",
  39.     -bd         => 1,
  40.     -background => $color_fondo,
  41.     -foreground => $color_texto
  42. );
  43. my $menulnowaxm = $menula->Menubutton(
  44.     -text             => "Options",
  45.     -underline        => 1,
  46.     -background       => $color_fondo,
  47.     -foreground       => $color_texto,
  48.     -activebackground => $color_texto
  49. )->You are not allowed to view links. Register or Login( -side => "left" );
  50. my $aboutnowaxm = $menula->Menubutton(
  51.     -text             => "About",
  52.     -underline        => 1,
  53.     -background       => $color_fondo,
  54.     -foreground       => $color_texto,
  55.     -activebackground => $color_texto
  56. )->You are not allowed to view links. Register or Login( -side => "left" );
  57. my $exitnowaxm = $menula->Menubutton(
  58.     -text             => "Exit",
  59.     -underline        => 1,
  60.     -background       => $color_fondo,
  61.     -foreground       => $color_texto,
  62.     -activebackground => $color_texto
  63. )->You are not allowed to view links. Register or Login( -side => "left" );
  64. $menula->You are not allowed to view links. Register or Login( -side => "top", -fill => "x" );
  65.  
  66. $menulnowaxm->command(
  67.     -label      => "Encode",
  68.     -background => $color_fondo,
  69.     -foreground => $color_texto,
  70.     -command    => \&encode
  71. );
  72. $menulnowaxm->command(
  73.     -label      => "Decode",
  74.     -background => $color_fondo,
  75.     -foreground => $color_texto,
  76.     -command    => \&decode
  77. );
  78. $menulnowaxm->command(
  79.     -label      => "Clean",
  80.     -background => $color_fondo,
  81.     -foreground => $color_texto,
  82.     -command    => \&clear
  83. );
  84.  
  85. $aboutnowaxm->command(
  86.     -label      => "About",
  87.     -background => $color_fondo,
  88.     -foreground => $color_texto,
  89.     -command    => \&about
  90. );
  91.  
  92. $exitnowaxm->command(
  93.     -label      => "Exit",
  94.     -background => $color_fondo,
  95.     -foreground => $color_texto,
  96.     -command    => \&exitnow
  97. );
  98.  
  99. $window->Label(
  100.     -font       => "Impact",
  101.     -background => $color_fondo,
  102.     -foreground => $color_texto,
  103.     -text       => "Options : "
  104. )->place( -x => 110, -You are not allowed to view links. Register or Login => 53 );
  105. $window->Optionmenu(
  106.     -background       => $color_fondo,
  107.     -foreground       => $color_texto,
  108.     -activebackground => $color_texto,
  109.     -options          => [
  110.         [ HEX    => HEX ],
  111.         [ ASCII  => ASCII ],
  112.         [ BASE64 => BASE64 ],
  113.         [ MD5    => MD5 ],
  114.         [ SHA1   => SHA1 ],
  115.         [ URL    => URL ]
  116.     ],
  117.     -variable     => \$var,
  118.     -textvariable => \$codificacion
  119. )->place( -x => 180, -You are not allowed to view links. Register or Login => 53 );
  120.  
  121. my $rot = $window->Text(
  122.     -background => $color_fondo,
  123.     -foreground => $color_texto,
  124.     -width      => 45,
  125.     -height     => 15
  126. )->place( -x => 30, -You are not allowed to view links. Register or Login => 120 );
  127. $rot->insert( 'end', $header );
  128.  
  129. MainLoop;
  130.  
  131. sub about {
  132.     $window->Dialog(
  133.         -title            => "About",
  134.         -buttons          => ["OK"],
  135.         -text             => "Coded By Doddy H",
  136.         -background       => $color_fondo,
  137.         -foreground       => $color_texto,
  138.         -activebackground => $color_texto
  139.     )->Show();
  140. }
  141.  
  142. sub exitnow {
  143.     You are not allowed to view links. Register or Login 1;
  144. }
  145.  
  146. sub clear {
  147.     $rot->You are not allowed to view links. Register or Login( '0.1', 'end' );
  148. }
  149.  
  150. sub encode {
  151.     $text = $rot->get( "1.0", "end" );
  152.     You are not allowed to view links. Register or Login $text;
  153.     &clear;
  154.     if ( $codificacion eq "HEX" ) {
  155.         $result = hexar($text);
  156.         $rot->insert( 'end', $result );
  157.         You are not allowed to view links. Register or Login $result;
  158.     }
  159.  
  160.     elsif ( $codificacion eq "SHA1" ) {
  161.         $sha1 = Digest::SHA1->new->add($text);
  162.         my $digest = $sha1->digest;
  163.         $rot->insert( 'end', $digest );
  164.     }
  165.     elsif ( $codificacion eq "BASE64" ) {
  166.         $result = encode_base64($text);
  167.         $rot->insert( 'end', $result );
  168.     }
  169.     elsif ( $codificacion eq "URL" ) {
  170.         my $codec = Badger::Codec::URL->new();
  171.         my $ya    = $codec->encode($text);
  172.         $rot->insert( 'end', $ya );
  173.     }
  174.     elsif ( $codificacion eq "ASCII" ) {
  175.         $result = ascii($text);
  176.         $rot->insert( 'end', $result );
  177.     }
  178.     elsif ( $codificacion eq "MD5" ) {
  179.         $digest = Digest::MD5->md5_hex($text);
  180.         $rot->insert( 'end', $digest );
  181.     }
  182.     else {
  183.         $window->messageBox( -message => "What?!\n" );
  184.     }
  185. }
  186.  
  187. sub decode {
  188.     $text = $rot->get( "1.0", "end" );
  189.     You are not allowed to view links. Register or Login $text;
  190.     &clear;
  191.     if ( $codificacion eq "HEX" ) {
  192.         $result = decodera($text);
  193.         $rot->insert( 'end', $result );
  194.     }
  195.  
  196.     elsif ( $codificacion eq "SHA1" ) {
  197.         $window->messageBox( -message =>
  198.               "What?! , it's not possible with a function decoded\n" );
  199.     }
  200.     elsif ( $codificacion eq "BASE64" ) {
  201.         $result = decode_base64($text);
  202.         $rot->insert( 'end', $result );
  203.     }
  204.     elsif ( $codificacion eq "URL" ) {
  205.         my $codec = Badger::Codec::URL->new();
  206.         my $ya    = $codec->decode($text);
  207.         $rot->insert( 'end', $ya );
  208.     }
  209.     elsif ( $codificacion eq "ASCII" ) {
  210.         $result = ascii_de($text);
  211.         $rot->insert( 'end', $result );
  212.     }
  213.     elsif ( $codificacion eq "MD5" ) {
  214.         $window->messageBox( -message =>
  215.               "What?! , it's not possible with a function decoded\n" );
  216.     }
  217.     else {
  218.         $window->messageBox( -message => "What?!\n" );
  219.     }
  220. }
  221.  
  222. sub hexar {
  223.     my $string = $_[0];
  224.     $hex = '0x';
  225.     for ( You are not allowed to view links. Register or Login //, $string ) {
  226.         $hex .= You are not allowed to view links. Register or Login "%x", You are not allowed to view links. Register or Login;
  227.     }
  228.     You are not allowed to view links. Register or Login $hex;
  229. }
  230.  
  231. sub ascii {
  232.     You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login ',', You are not allowed to view links. Register or Login "U*", $_[0];
  233. }
  234.  
  235. sub decodera {
  236.     $_[0] =~ s/^0x//;
  237.     $encode = You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login[], You are not allowed to view links. Register or Login { You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login } $_[0] =~ /../g;
  238.     You are not allowed to view links. Register or Login $encode;
  239. }
  240.  
  241. sub ascii_de {
  242.     $_[0] = You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login[], You are not allowed to view links. Register or Login { You are not allowed to view links. Register or Login } You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login[,], $_[0];
  243.     You are not allowed to view links. Register or Login $_[0];
  244. }
  245.  
  246. # The End ?
  247.  

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3005
Ú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: 1410
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1236
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1330
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

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