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] HexNow 0.1

  • 4 Respuestas
  • 2301 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Marzo 09, 2013, 01:42:58 pm »
Un simple script para convertir el codigo de un archivo en hexadecimal , muy util para un proyecto que tengo en mente.
El script es una traduccion a perl del famoso programa getbytes.py hecho por hecky neobits.

El codigo :

Código: Perl
  1. #!usr/bin/perl
  2. #HexNow 0.1
  3. #Coded By Doddy H
  4. #Script based in getbytes.py made by hecky neobits
  5. #Thanks to hecky neobits & explorer(perlenespanol)
  6.  
  7. use Getopt::Long;
  8. use File::Basename;
  9. use Cwd;
  10.  
  11. No tienes permisos para ver links. Registrate o Entra con tu cuenta( getcwd() );
  12.  
  13. GetOptions(
  14.     "hex=s"      => \$hex,
  15.     "each=s"     => \$hexeach,
  16.     "output=i"   => \$output,
  17.     "savefile=s" => \$savefile
  18. );
  19.  
  20. head();
  21.  
  22. if ($hex) {
  23.  
  24.     my $code_final;
  25.  
  26.     if ($hexeach) {
  27.  
  28.         my $st = No tienes permisos para ver links. Registrate o Entra con tu cuenta "H*", getcontent($hex);
  29.         my $reco;
  30.  
  31.         for ( my $num = 0 ; $num <= No tienes permisos para ver links. Registrate o Entra con tu cuenta($st) - 1 ; $num += $hexeach ) {
  32.             my $final = No tienes permisos para ver links. Registrate o Entra con tu cuenta $st, $num, $hexeach;
  33.             $reco .= $final . "\n";
  34.         }
  35.  
  36.         $code_final = $reco;
  37.  
  38.     }
  39.     else {
  40.         $code_final = No tienes permisos para ver links. Registrate o Entra con tu cuenta "H*", getcontent($hex);
  41.     }
  42.  
  43.     if ( $output eq "1" ) {
  44.  
  45.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Encoding ....\n";
  46.  
  47.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[Start]\n\n";
  48.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $code_final;
  49.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[End]\n";
  50.  
  51.     }
  52.  
  53.     if ($savefile) {
  54.         savefile( $savefile, $code_final );
  55.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Result generated in : $savefile\n";
  56.     }
  57.     else {
  58.         my $div = basename($hex);
  59.         if ( $div =~ /(.*)\.(.*)/ ) {
  60.             my $listo = $1 . "_hex.txt";
  61.             savefile( $listo, $code_final );
  62.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Result generated in : $listo\n";
  63.         }
  64.     }
  65.  
  66.     copyright();
  67.  
  68. }
  69.  
  70. sub head {
  71.     No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(
  72.  
  73.              _____
  74.       ,----/,--.   `.
  75.     /    '. `-'     \         Program Name : HexNow
  76.     | ____ \      '`|_        Version : 0.1
  77.     \'.--._/` _     \ '.       Author : Doddy H
  78.          /'-|/ \|`\|-`  \       Script based in getbytes.py made by hecky neobits  
  79.          /   /       \   |     Thanks to hecky neobits
  80.          |  ;    '`  |  .'
  81.          '. |;;      ;  /
  82.          \ \ ;     / ,'        Examples :
  83.            ;--,   .,--,
  84.         __||=|=|./|=|=||___   perl hexnow.pl -No tienes permisos para ver links. Registrate o Entra con tu cuenta imagen.jpg
  85.           `'-'-'  `-'-'`      perl hexnow.pl -hex imagen.jpg -each 5
  86.      ______________________  perl hexnow.pl -hex imagen.jpg -output 1
  87.          /'/ /  \ \ \         perl hexnow.pl -hex imagen.jpg -savefile test.txt
  88.         / '.';  ; \ ' \
  89.        '-/   | ; | ; \-'
  90.          \_| |   | |_/        The End ?
  91.            `-'\_/`-'
  92.  
  93. );
  94. }
  95.  
  96. sub copyright {
  97.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n(C) Doddy Hackman 2013\n";
  98.     No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  99. }
  100.  
  101. sub getcontent {
  102.  
  103.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( FILE, $_[0] );
  104.     No tienes permisos para ver links. Registrate o Entra con tu cuenta(FILE);
  105.     my @lines = <FILE>;
  106.     No tienes permisos para ver links. Registrate o Entra con tu cuenta FILE;
  107.  
  108.     $code = No tienes permisos para ver links. Registrate o Entra con tu cuenta "", @lines;
  109.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $code;
  110.  
  111. }
  112.  
  113. sub savefile {
  114.  
  115.     if ( -f $_[0] ) {
  116.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( $_[0] );
  117.     }
  118.  
  119.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( SAVE, ">>" . $_[0] );
  120.     No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE $_[1];
  121.     No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE;
  122. }
  123.  
  124. #The End ?
  125.  

Desconectado neobits

  • *
  • Underc0der
  • Mensajes: 17
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« Respuesta #1 en: Marzo 09, 2013, 05:07:33 pm »
Probado...muy bueno   ;D

Gracias por la mención...Aunque ese código lo hice cuando estaba aprendiendo python...Ahora estoy con ruby y lo haria con ruby...pero la verdad para mi me funciona lo que es mas fácil, rápido y asequible...Es por ello que ahora lo hago siempre con bash,,,

Obtener todos los bytes en una sola línea:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
$xxd -p archivo | tr -d "\n"
Obtener los bytes, cada n bytes:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
$xxd -p -c n archivo
Donde n es cada cuantos bytes queremos por columna....Ej de cada 5 bytes:
Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
$xxd -p -c 5 archivo
De nuevo gracias por la mención...Pronto en mi blog personal en la siguiente entrada que saldra pronto, usare justamente xxd y los separare cada byte (de una manera diferente, a las aqui mostradas) en una linea para meterlo en un arreglo...Todo en bash...  8) ::)

Saludos ;)
« Última modificación: Marzo 09, 2013, 05:09:08 pm por neobits »

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« Respuesta #2 en: Marzo 09, 2013, 05:20:49 pm »
ja , no sabia que estabas registrado en este foro , en 2 semanas voy a hacer un manual sobre como hacer un joiner en perl como vos hiciste en python.

Desconectado TeNeX

  • *
  • Underc0der
  • Mensajes: 41
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #3 en: Marzo 09, 2013, 07:20:49 pm »
Ese hecky deberia hacer un libro de "python desde cero hasta forensics" pero se cotiza

Desconectado neobits

  • *
  • Underc0der
  • Mensajes: 17
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« Respuesta #4 en: Marzo 10, 2013, 01:12:39 am »
Citar
ja , no sabia que estabas registrado en este foro , en 2 semanas voy a hacer un manual sobre como hacer un joiner en perl como vos hiciste en python.

Doddy :P para que vea que tengo: "Amazing skills tracking in the web" :P Bueno no, solo me avisaron por ahi que viera esto XD....Lo importante no es el lenguaje, sino la idea...ese articulo lo escribi para mostrar lo sencillo que es, ocultar malware de una manera muy burda...y claro, por que pablo y juanan de flu-project me lo pidieron XD

Citar
Ese hecky deberia hacer un libro de "python desde cero hasta forensics" pero se cotiza

Jaja para nada, no se python... en serio, solo hice lo básico, y tampoco forense...ni me cotizo xD

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1252
Ú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: 1600
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1103
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear