Foro - Perl en Español

por **BigBear** » 2013-03-06 11:38 @527

explorer escribiste:
Doddy escribiste:Necesito hacer un script en Perl que me ayude a decodificar hex como lo hace el script en Python en la parte "decode('hex')".

¿ Alguien sabe cómo lograr el mismo resultado ?
Estas son dos maneras de hacerlo:

Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
$cadena = '45645cbeaae75cac487b59bcadcbae';

$texto .= chr hex $1 while $cadena =~ /(..)/g;

$texto = pack "H*", $cadena;

Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
(La parte del hexdump es solo para comprobar que lo hace bien).
(Obviamente, el pack() es mucho más óptimo que el bucle while).
(Ejemplos sacados de perldoc perlpacktut, y en la Web).

Humm, ojalá tuviera tu experiencia. Te quería preguntar cómo hago lo inverso. Me refiero a codificar en hexadecimal que es lo contrario a esto.

¿ Me podrías dar un ejemplo ?

        f = open(sys.argv[2],"rb")
        lee = f.read()
        leehex = lee.encode("hex")
        longitud = len(leehex)
        for i in range (0,longitud-1,int(sys.argv[1])):
                final = leehex[i:i+int(sys.argv[1])]
                print final
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Quiero pasarlo a Perl pero lo único que no entiendo es el for y cómo guarda la variable final.

¿ vos entendés esas líneas de Python ?

por **explorer** » 2013-03-06 12:47 @574

Lo que hace ese código es leer el archivo en modo binario, pasarlo a hexadecimal, y leer la cadena hexadecimal cada cierto número de caracteres, para sacarlos en pantalla.

Lo que hace el for se puede escribir así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for (my $i = 0; $i <= $longitud-1; $i += $ARGV[1]) {
    my $final = substr $leehex, $i, $ARGV[1];
    say $final;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2013-03-09 11:45 @531

El proyecto avanzo algo, pero gracias a tu ayuda, el código del inicio está aquí:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
#HexNow 0.1
#Coded By Doddy H
#Script based in getbytes.py made by hecky neobits
#Thanks to hecky neobits & explorer(perlenespanol)
 
use Getopt::Long;
use File::Basename;
use Cwd;
 
chdir( getcwd() );
 
GetOptions(
    "hex=s"      => \$hex,
    "each=s"     => \$hexeach,
    "output=i"   => \$output,
    "savefile=s" => \$savefile
);
 
head();
 
if ($hex) {
 
    my $code_final;
 
    if ($hexeach) {
 
        my $st = unpack "H*", getcontent($hex);
        my $reco;
 
        for ( my $num = 0 ; $num <= length($st) - 1 ; $num += $hexeach ) {
            my $final = substr $st, $num, $hexeach;
            $reco .= $final . "\n";
        }
 
        $code_final = $reco;
 
    }
    else {
        $code_final = unpack "H*", getcontent($hex);
    }
 
    if ( $output eq "1" ) {
 
        print "\n\n[+] Encoding ....\n";
 
        print "\n[Start]\n\n";
        print $code_final;
        print "\n\n[End]\n";
 
    }
 
    if ($savefile) {
        savefile( $savefile, $code_final );
        print "\n[+] Result generated in : $savefile\n";
    }
    else {
        my $div = basename($hex);
        if ( $div =~ /(.*)\.(.*)/ ) {
            my $listo = $1 . "_hex.txt";
            savefile( $listo, $code_final );
            print "\n[+] Result generated in : $listo\n";
        }
    }
 
    copyright();
 
}
 
sub head {
    print qq(
 
             _____ 
      ,----/,--.   `. 
     /    '. `-'     \         Program Name : HexNow 
     | ____ \      '`|_        Version : 0.1
     \'.--._/` _     \ '.       Author : Doddy H
          /'-|/ \|`\|-`  \       Script based in getbytes.py made by hecky neobits  
         /   /       \   |     Thanks to hecky neobits
         |  ;    '`  |  .' 
         '. |;;      ;  / 
          \ \ ;     / ,'        Examples :
           ;--,   .,--, 
        __||=|=|./|=|=||___   perl hexnow.pl -hex imagen.jpg
          `'-'-'  `-'-'`      perl hexnow.pl -hex imagen.jpg -each 5 
      ______________________  perl hexnow.pl -hex imagen.jpg -output 1
          /'/ /  \  \ \          perl hexnow.pl -hex imagen.jpg -savefile test.txt
         / '.';  ; \ ' \ 
        '-/   | ; | ; \-' 
          \_| |   | |_/        The End ? 
            `-'\_/`-' 
 
);
}
 
sub copyright {
    print "\n(C) Doddy Hackman 2013\n";
    exit(1);
}
 
sub getcontent {
 
    open( FILE, $_[0] );
    binmode(FILE);
    my @lines = <FILE>;
    close FILE;
 
    $code = join "", @lines;
    return $code;
 
}
 
sub savefile {
 
    if ( -f $_[0] ) {
        unlink( $_[0] );
    }
 
    open( SAVE, ">>" . $_[0] );
    print SAVE $_[1];
    close SAVE;
}
 
#The End ?
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Cualquier sugerencia para mejorar el código, decidla.

por **explorer** » 2013-03-09 17:23 @766

En los comentarios debería aparecer una explicación de los argumentos que se le pueden pasar al programa. Y un ejemplo tampoco estaría mal.

La función getcontent() se podría escribir así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub getcontent {
    my $file = shift;
    my $code;
    {
        local $/;                          # activar modo aspiradora
        open  my $FILE, '<', $file or die "ERROR: Can't open file $file: $!\n";
        binmode  $FILE;
        $code = <$FILE>;
        close    $FILE;
    }
    return $code;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El die() es necesario porque no usas autodie, claro.

Sigo pensando que haces programas demasiado largos... Lo del loro... quizás se entienda en el mundo Windows, pero en el mundo UNIX/Linux sería objeto de burla y escarnio, debido a que tu programa no podría ser entubado con otro

por **BigBear** » 2013-03-31 16:55 @746

Gracias por la ayuda, explorer, el proyecto está terminado.

Una imagen del generador:
Imagen

Pueden bajar el programa desde aca.

Foro - Perl en Español

Joiner

Re: Decodificar hex en Python y Perl

Publicidad

Re: Joiner

Re: Joiner

Re: Joiner

Re: Joiner

Re: Joiner

Re: Joiner

¿Quién está conectado?