[Perl Tk] Codificator 0.2

« **en:** Julio 07, 2012, 11:02:59 am »

Version Tk de este codificador.

Una imagen

El codigo

Código: Perl

#!usr/bin/perl
#Codificator 0.2
#Version Tk
#Coded By Doddy H
 
use Tk;
use Tk::Dialog;
use Digest::MD5;
use Digest::SHA1;
use MIME::Base64;
use URI::Escape;
 
if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}
 
$header = "This tool encode text in :
 
Hex
SHA1
MD5
Base64
ASCII
URL
 
 
";
 
my $color_fondo = "black", my $color_texto = "white";
 
$window = MainWindow->new( -background => "black", -foreground => "white" );
$window->geometry("380x370+80+80");
$window->title("Codificator 0.2 || Coded By Doddy H");
$window->resizable( 0, 0 );
 
$menula = $window->Frame(
    -relief     => "sunken",
    -bd         => 1,
    -background => $color_fondo,
    -foreground => $color_texto
);
my $menulnowaxm = $menula->Menubutton(
    -text             => "Options",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->No tienes permisos para ver links.
 Registrate o Entra con tu cuenta( -side => "left" );
my $aboutnowaxm = $menula->Menubutton(
    -text             => "About",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->No tienes permisos para ver links.
 Registrate o Entra con tu cuenta( -side => "left" );
my $exitnowaxm = $menula->Menubutton(
    -text             => "Exit",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->No tienes permisos para ver links.
 Registrate o Entra con tu cuenta( -side => "left" );
$menula->No tienes permisos para ver links.
 Registrate o Entra con tu cuenta( -side => "top", -fill => "x" );
 
$menulnowaxm->command(
    -label      => "Encode",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&encode
);
$menulnowaxm->command(
    -label      => "Decode",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&decode
);
$menulnowaxm->command(
    -label      => "Clean",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&clear
);
 
$aboutnowaxm->command(
    -label      => "About",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&about
);
 
$exitnowaxm->command(
    -label      => "Exit",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&exitnow
);
 
$window->Label(
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto,
    -text       => "Options : "
)->place( -x => 110, -No tienes permisos para ver links.
 Registrate o Entra con tu cuenta => 53 );
$window->Optionmenu(
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto,
    -options          => [
        [ HEX    => HEX ],
        [ ASCII  => ASCII ],
        [ BASE64 => BASE64 ],
        [ MD5    => MD5 ],
        [ SHA1   => SHA1 ],
        [ URL    => URL ]
    ],
    -variable     => \$var,
    -textvariable => \$codificacion
)->place( -x => 180, -No tienes permisos para ver links.
 Registrate o Entra con tu cuenta => 53 );
 
my $rot = $window->Text(
    -background => $color_fondo,
    -foreground => $color_texto,
    -width      => 45,
    -height     => 15
)->place( -x => 30, -No tienes permisos para ver links.
 Registrate o Entra con tu cuenta => 120 );
$rot->insert( 'end', $header );
 
MainLoop;
 
sub about {
    $window->Dialog(
        -title            => "About",
        -buttons          => ["OK"],
        -text             => "Coded By Doddy H",
        -background       => $color_fondo,
        -foreground       => $color_texto,
        -activebackground => $color_texto
    )->Show();
}
 
sub exitnow {
    No tienes permisos para ver links.
 Registrate o Entra con tu cuenta 1;
}
 
sub clear {
    $rot->No tienes permisos para ver links.
 Registrate o Entra con tu cuenta( '0.1', 'end' );
}
 
sub encode {
    $text = $rot->get( "1.0", "end" );
    No tienes permisos para ver links.
 Registrate o Entra con tu cuenta $text;
    &clear;
    if ( $codificacion eq "HEX" ) {
        $result = hexar($text);
        $rot->insert( 'end', $result );
        No tienes permisos para ver links.
 Registrate o Entra con tu cuenta $result;
    }
 
    elsif ( $codificacion eq "SHA1" ) {
        $sha1 = Digest::SHA1->new->add($text);
        my $digest = $sha1->digest;
        $rot->insert( 'end', $digest );
    }
    elsif ( $codificacion eq "BASE64" ) {
        $result = encode_base64($text);
        $rot->insert( 'end', $result );
    }
    elsif ( $codificacion eq "URL" ) {
        my $codec = Badger::Codec::URL->new();
        my $ya    = $codec->encode($text);
        $rot->insert( 'end', $ya );
    }
    elsif ( $codificacion eq "ASCII" ) {
        $result = ascii($text);
        $rot->insert( 'end', $result );
    }
    elsif ( $codificacion eq "MD5" ) {
        $digest = Digest::MD5->md5_hex($text);
        $rot->insert( 'end', $digest );
    }
    else {
        $window->messageBox( -message => "What?!\n" );
    }
}
 
sub decode {
    $text = $rot->get( "1.0", "end" );
    No tienes permisos para ver links.
 Registrate o Entra con tu cuenta $text;
    &clear;
    if ( $codificacion eq "HEX" ) {
        $result = decodera($text);
        $rot->insert( 'end', $result );
    }
 
    elsif ( $codificacion eq "SHA1" ) {
        $window->messageBox( -message =>
              "What?! , it's not possible with a function decoded\n" );
    }
    elsif ( $codificacion eq "BASE64" ) {
        $result = decode_base64($text);
        $rot->insert( 'end', $result );
    }
    elsif ( $codificacion eq "URL" ) {
        my $codec = Badger::Codec::URL->new();
        my $ya    = $codec->decode($text);
        $rot->insert( 'end', $ya );
    }
    elsif ( $codificacion eq "ASCII" ) {
        $result = ascii_de($text);
        $rot->insert( 'end', $result );
    }
    elsif ( $codificacion eq "MD5" ) {
        $window->messageBox( -message =>
              "What?! , it's not possible with a function decoded\n" );
    }
    else {
        $window->messageBox( -message => "What?!\n" );
    }
}
 
sub hexar {
    my $string = $_[0];
    $hex = '0x';
    for ( No tienes permisos para ver links.
 Registrate o Entra con tu cuenta //, $string ) {
        $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;
    }
    No tienes permisos para ver links.
 Registrate o Entra con tu cuenta $hex;
}
 
sub 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 ',', No tienes permisos para ver links.
 Registrate o Entra con tu cuenta "U*", $_[0];
}
 
sub decodera {
    $_[0] =~ s/^0x//;
    $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 } $_[0] =~ /../g;
    No tienes permisos para ver links.
 Registrate o Entra con tu cuenta $encode;
}
 
sub ascii_de {
    $_[0] = 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[,], $_[0];
    No tienes permisos para ver links.
 Registrate o Entra con tu cuenta $_[0];
}
 
# The End ?
 

Tutorial perl desde cero By: Black Poision & Painboy Iniciado por ProcessKill	Respuestas: 2 Vistas: 3158	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	Octubre 07, 2012, 06:01:39 pm por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl Iniciado por tar3kw0rm3d	Respuestas: 0 Vistas: 1600	Junio 02, 2013, 08:01:28 pm por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List Iniciado por BigBear	Respuestas: 0 Vistas: 1134	Noviembre 12, 2012, 07:32:11 pm por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL] Iniciado por SkillmaX	Respuestas: 0 Vistas: 1371	Julio 04, 2010, 10:14:31 am por SkillmaX

Esta es una respuesta al tema: [Perl Tk] Codificator 0.2 en La plantilla. Perl

[Perl Tk] Codificator 0.2

BigBear

[Perl Tk] Codificator 0.2

Similar topics (5)