Solved

Exe to binary string

Posted on 2003-11-07
4
1,234 Views
Last Modified: 2012-05-04
Hey all! I have a small problem.

I need to convert a win32 executable to a binary string, that will be displayed in a memo, in the following format: 00,032,234,123,etc,etc,etc

Could someone help me? If you make a function, where i input the path to the file, and it returns it as one long string, that'd be great. Oh, the max filesize would be around 2/3 MB... But if you can make it work for any file, that'd be great!
0
Comment
Question by:Otis_04
  • 2
4 Comments
 
LVL 2

Expert Comment

by:Kalroth
ID: 9706777
I just wrote some code that should do it for you.
It's smart in the sense that it doesn't use any buffering, apart from the result string and it should be fairly fast too.

Basically it allocates the string, loads the file in the upper half of the string and then converts the raw data in the upper half to heximal text in the lower half.

Good luck with your project!

(** CODE **)
function FileToHexString(const Filename: String): String;
var
  InputFile : TFileStream;
  InputSize : Integer;
  Middle : PChar;
  Counter : Integer;

  // Taken from KOL, http://xcl.cjb.net/
  function HexDigit( B : Byte ) : Char;
  asm
     CMP  AL,9
     JA   @@1
     ADD  AL,30h-41h+0Ah
  @@1:
     ADD  AL,41h-0Ah
  end;

begin
  if FileExists(Filename) then
  begin
    InputFile := TFileStream.Create(Filename, fmOpenRead);
    try
      InputSize := InputFile.Size;
      // Set length of result, to avoid
      // .. slow dynamic allocation in a loop.
      SetLength(result,InputSize*2);
      // Read the file into the HIGH half
      // .. of the result buffer
      // The buffer will look something like this:
      // |................DATADATADATADATA|
      Middle := @result[InputSize+1];
      InputFile.Read(Middle^,InputSize);
      // Now lets loop through the buffer and
      // .. convert raw data from the middle to
      // .. heximal data in the beginning
      for Counter := 0 to InputSize-1 do
      begin
        result[(Counter*2)+1] := HexDigit((Ord(Middle[Counter]) shr 4) and $F);
        result[(Counter*2)+2] := HexDigit(Ord(Middle[Counter]) and $F);
      end;
    finally
      InputFile.Free;
    end;
  end;
end;
(** /CODE**)
0
 

Author Comment

by:Otis_04
ID: 9708349
WOW... Uhm, when i run that, and put the results of converting calculator into a memo, i get this:

ÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏ

etc.... theres alot more than that though... I need it to be binary string... I need it to give me the binary string, so i can insert it into a vbs, because the vbs creates a exe from the binary string. Here is the array i need to put it into:

array= array(77,90,68,1,5,0,2,0,32,0,33,0,255,255,117,0,0,2,0,0,153,0,0,0,62,0,0,0... etc)

I want to put the binary string in that array, replacing the old one... maybe if you seperate the values with a comma too, that'd be great.
0
 

Author Comment

by:Otis_04
ID: 9709383
Well, i found my wqays in another language, thanks alot though :D
0
 

Accepted Solution

by:
SiC_O earned 50 total points
ID: 9711226
Well, Otis_04, you tried in vb, you tried in delphi, just give up. Wait for someone else to code it for you.
0

Featured Post

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

776 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question