Mensajes

Esta TODO bien

Aquí es cuando viene la pregunta tonta, seguro que los scripts tienen extensión PL y no PL.txt? ?

Saludos

Código (dos) [Seleccionar] Expandir

C:\>dir /s perl.exe

[file]

Tienes los archivos dentro de file? no veo una carpeta hexfiles, lo digo porque por lo que veo el interprete esta bien, sino no diría "Can't open perl script"

Saludos

Quizás la carpeta que intentas mover esta en uso, o bien no tienes permisos para escribir en la ruta de destino, muevela a otro sitio, o crea otra carpeta y muevela a D:

Saludos

¿Al final te ha servido, has podido? No recordaba que no había ningún compilador decente de perl

Así que te dejo lo siguiente, dicen que una imagen vale más que mil palabras, mi escritorio

Saludos

Es que el código no se compila, el código lo guardas con extensión PL y luego simplemente lo ejecutas por línea de comandos, algo como:

Código (dos) [Seleccionar] Expandir

C:\>perl.exe bin2hex.pl

Claro esta que depende de donde este instalado perl , sino bueno, luego los paso a exe y te los subo

Este tema me hace acordar a este otro.

Por otra parte, gracias , aunque se nota que algunos no llevan mucho tiempo en el foro , en cuanto eso cambie y conozcan mejor a otros usuarios, se daran cuenta de cuan poco se en comparación, y que quizás han tenido suerte porque han preguntado lo que podía responderles

Por mi parte creo que no podría nombrar a nadie, sin lugar a dudas hay muchos cuyo conocimiento es inmesurable y sus aportes te dejan con un ...

Personas que destacan en una u otra cosa, y a quienes intento o he intentado tomar como referencia.

Es por eso que como digo, no puedo nombrar a uno o varios, porque seguro dejaría afuera a muchos otros tantos que de algún modo me han ayudado a "aprender"

Saludos

P.D: APLAUSOS!

[perl scripts]

Bueno, al final no use ni VB ni C#, te dejo un par de perl scripts
Para descargar el interprete en caso de que no lo tengas ... :http://www.perl.org/get.html

He creado dos scripts, bin2hex y hex2bin

bin2hex

Código (perl) [Seleccionar] Expandir

my $tiempoe= time();
@files=<files/*>;

foreach $file (@files)
{
open(BIN, "<$file");
binmode(BIN);
my $buffer="";
read(BIN, $buffer, -s BIN, 0);
close(BIN);
open(BHEX,">Hex".$file.".txt")||die "No se puede crear el archivo Hex".$file.".txt\n";

foreach (split(//, $buffer))
{
my $formato=sprintf("%02x", ord($_));
print BHEX $formato." ";
}
close(BHEX);
}

my $tiempot = time()-$tiempoe;
print "Proceso Terminado\n";
print "Tiempo insumido: $tiempot seg.\n";

Para usar este script debes de tener una carpeta de nombre files en el mismo directorio. Dentro de esta carpeta van los archivos binarios que serán pasados a hexadecimal.
Además debes de tener una carpeta de nombre hexfiles, que es donde serán creados archivos de texto por cada binario convertido.

El contenido de cada txt será algo así:

4d 5a 90 00 03 00 00 00 04 00 00 00 ff ff 00 00 b8 00 00 00 00 00 00 00 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e0 00 00 00 0e 1f ba 0e 00 b4 09 cd 21 b8 01 4c cd 21 54 68 69 73 20 70 72 6f 67 72 61 6d 20 63 61 6e 6e 6f 74 20 62 65 20 72 75 6e 20 69 6e 20 44 4f 53 20 6d 6f 64 65 2e 0d 0d 0a 24 00 00 00 00 00 00 00 ec 85 5b a1 a8 e4 35 f2 a8 e4 35 f2 a8 e4 35 f2 6b eb 3a f2 a9 e4 35 f2 6b eb 55 f2 a9 e4 35 f2 6b eb 68 f2 bb e4 35 f2 a8 e4 34 f2 63 e4 35 f2 6b eb 6b f2 a9 e4 35 f2 6b eb 6a f2 bf e4 35 f2 6b eb 6f f2 a9 e4 35 f2 52 69 63 68 a8 e4 35 f2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 50 45 00 00 4c 01 03 00 c3 7c 10 41 00 00 00 00 00 00 00 00 e0 00 0f 01 0b 01 07 0a 00 78 00 00 00 96

Es decir, los valores hexadecimales "puros"

hex2bin

Código (perl) [Seleccionar] Expandir

my $tiempoe= time();
@files=<files/*>;

foreach $file (@files)
{
open(BHEX, "<$file");
my $buffer=<BHEX>;
close(BHEX);
open(BIN,">bin".$file.".bin")||die "No se puede crear el archivo bin".$file.".bin\n";
binmode(BIN);

foreach (split(" ", $buffer))
{
my $char=pack("H2",$_);
print BIN $char;
}
close(BIN);
}

my $tiempot = time()-$tiempoe;
print "Proceso Terminado\n";
print "Tiempo insumido: $tiempot seg.\n";

Al igual que el anterior, este script toma los archivos dentro de la carpeta files (archivos en hexadecimal, como los generados por bin2hex), y genera archivos binarios dentro de la carpeta binfiles.

Por poner un ejemplo:
Tienes el notepad.exe y el mspaint.exe dentro de "files", ejecutas el script "bin2hex" y este te generará dos ".txt" dentro de "hexfiles" con el contenido hexadecimal.
Ahora, si quieres convertir esos archivos de texto a binario nuevamente, los metes dentro de "files" y ejecutas "hex2bin", con lo cual se volverán a generar binarios dentro de "binfiles"

Los scripts en si son muy mejorables, pero bueno, espero te sirva y cualquier duda ya sabes

Saludos

Pero no se supone que puedes ingresar a win al menos en modo seguro? para que quieres crear la tarea del cmd?
No me digas nada, justamente le habías hecho un par de cambios al registro

Supongo que tienes el cd de win, así que intenta reparar el registro

:http://bitelia.com/2009/12/pantallas-negras-de-la-muerte-no-fueron-causadas-por-actualizaciones

Saludos

[calc.exe]

A ver si entiendo, pero entonces lo que tu quieres es regenerar otra vez el binario del cual se extrajeron los hexadecimales.

Por poner un ejemplo, tienes el calc.exe y con el Hex Workshop generas el archivo de texto con los valores hexadecimales de cada byte, pero luego quieres generar nuevamente un binario de ese texto.

Si es así, no recuerdo una tool específica para esto, pero más tarde te puedo dejar alguna improvisada que cumpla la función, en VB o Sharp dependiendo del compilador al que tenga acceso primero


Con respecto a lo anterior, el código que te he dejado es un vbs, así que solo tienes que pegarlo en el notepad y guardarlo con extensión vbs

Saludos