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
  • 2259 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. You are not allowed to view links. Register or Login( 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 = You are not allowed to view links. Register or Login "H*", getcontent($hex);
  29.         my $reco;
  30.  
  31.         for ( my $num = 0 ; $num <= You are not allowed to view links. Register or Login($st) - 1 ; $num += $hexeach ) {
  32.             my $final = You are not allowed to view links. Register or Login $st, $num, $hexeach;
  33.             $reco .= $final . "\n";
  34.         }
  35.  
  36.         $code_final = $reco;
  37.  
  38.     }
  39.     else {
  40.         $code_final = You are not allowed to view links. Register or Login "H*", getcontent($hex);
  41.     }
  42.  
  43.     if ( $output eq "1" ) {
  44.  
  45.         You are not allowed to view links. Register or Login "\n\n[+] Encoding ....\n";
  46.  
  47.         You are not allowed to view links. Register or Login "\n[Start]\n\n";
  48.         You are not allowed to view links. Register or Login $code_final;
  49.         You are not allowed to view links. Register or Login "\n\n[End]\n";
  50.  
  51.     }
  52.  
  53.     if ($savefile) {
  54.         savefile( $savefile, $code_final );
  55.         You are not allowed to view links. Register or Login "\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.             You are not allowed to view links. Register or Login "\n[+] Result generated in : $listo\n";
  63.         }
  64.     }
  65.  
  66.     copyright();
  67.  
  68. }
  69.  
  70. sub head {
  71.     You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(
  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 -You are not allowed to view links. Register or Login 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.     You are not allowed to view links. Register or Login "\n(C) Doddy Hackman 2013\n";
  98.     You are not allowed to view links. Register or Login(1);
  99. }
  100.  
  101. sub getcontent {
  102.  
  103.     You are not allowed to view links. Register or Login( FILE, $_[0] );
  104.     You are not allowed to view links. Register or Login(FILE);
  105.     my @lines = <FILE>;
  106.     You are not allowed to view links. Register or Login FILE;
  107.  
  108.     $code = You are not allowed to view links. Register or Login "", @lines;
  109.     You are not allowed to view links. Register or Login $code;
  110.  
  111. }
  112.  
  113. sub savefile {
  114.  
  115.     if ( -f $_[0] ) {
  116.         You are not allowed to view links. Register or Login( $_[0] );
  117.     }
  118.  
  119.     You are not allowed to view links. Register or Login( SAVE, ">>" . $_[0] );
  120.     You are not allowed to view links. Register or Login SAVE $_[1];
  121.     You are not allowed to view links. Register or Login 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: You are not allowed to view links. Register or Login
$xxd -p archivo | tr -d "\n"
Obtener los bytes, cada n bytes:

Código: You are not allowed to view links. Register or Login
$xxd -p -c n archivo
Donde n es cada cuantos bytes queremos por columna....Ej de cada 5 bytes:
Código: You are not allowed to view links. Register or Login
$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: 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] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1095
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear