inkognito
asked on
Hex Converter
I would like to know, if someone could help me with, converting a say, exe-file into a hex number file. Sort of like Ultra Edit.
Hello Inkognito,
First run thrue your text file, and get all the chars, then send them thrue this
converter.
function Dec2Hex(Dec: byte): string;
var Hi: byte;
Low: byte;
begin
Hi:=Dec div 16;
result:=inttostr(Hi);
Low:=Dec mod 16;
case Low of
10: result:=result+'A';
11: result:=result+'B';
12: result:=result+'C';
13: result:=result+'D';
14: result:=result+'E';
15: result:=result+'F';
else result:=result+inttostr(Lo w);
end;
end;
I hope this helps, otherwise, giv me a comment.
Smilly
First run thrue your text file, and get all the chars, then send them thrue this
converter.
function Dec2Hex(Dec: byte): string;
var Hi: byte;
Low: byte;
begin
Hi:=Dec div 16;
result:=inttostr(Hi);
Low:=Dec mod 16;
case Low of
10: result:=result+'A';
11: result:=result+'B';
12: result:=result+'C';
13: result:=result+'D';
14: result:=result+'E';
15: result:=result+'F';
else result:=result+inttostr(Lo
end;
end;
I hope this helps, otherwise, giv me a comment.
Smilly
ASKER
The link you posted, seems to be very good, for future looking, though at writing time, I haven't had the time to look through the whole page, but I'll just hope for the best. Cuz the problems, is more or less, (problably due to my insufficent detailed question), that I need a fast converter from ASCII(string, dec) to Hex. I've used a BlockRead function, that could barley convert 1 Kb large Txt-filez, but it went so slow, that the program crashed, so I neede a simple / or not, version that won't hang it self, when filez up to a meg are read...
I hope you understand my prolem, somehow better so that you can help me...?!
I hope you understand my prolem, somehow better so that you can help me...?!
Here is a very fast conversion function, is that what you need?
Function Byte2Hex(Number: Byte) : String;
Begin
Ch1 := Number SHR 4;
Ch2 := Number - (Ch1 SHL 4); Byte2Hex := Hexa[Ch1]+Hexa[Ch2];
End;
Function Byte2Hex(Number: Byte) : String;
Begin
Ch1 := Number SHR 4;
Ch2 := Number - (Ch1 SHL 4); Byte2Hex := Hexa[Ch1]+Hexa[Ch2];
End;
ASKER
Could you please implement (is it spelled this way?), this function in a little for ... loop, which would go through the whole file. Not that I'm totally bonkers, just don't have the time to try and wait for a result taht could work without too much trouble. And since you're obviously not a new-beginner which I'm Please Help Me!!!!!!!(Am I deperate?)
Sounds like a assignment to me. But OK
Download hexview from http://www.belhard.minsk.by/delphi/D20F5.HTM
Last answer...
Download hexview from http://www.belhard.minsk.by/delphi/D20F5.HTM
Last answer...
You can find one ...\Borland\Delphi #\Demos\RESXPLOR
look at hexdump.pas
Rick
look at hexdump.pas
Rick
ASKER
Well I just have to start by thanking Mirkwood, for the suggestions on my problem, however, I visited the site,
http://www.belhard.minsk.by/delphi/D20F5.HTM, which had a perfect
HexViewer for my purposes, but it didn't have a complete code. Cuz it requested a THexDump component that I didn't find in the Zip-archive, so I'm getting desperate! Please someone out there...
http://www.belhard.minsk.by/delphi/D20F5.HTM, which had a perfect
HexViewer for my purposes, but it didn't have a complete code. Cuz it requested a THexDump component that I didn't find in the Zip-archive, so I'm getting desperate! Please someone out there...
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
http://www.csd.net/~cgadd/knowbase/maincat.htm
You find all the examples you need
Hex to bin,
bin to hex.
dec to bin