file->HEX HEX->BIN

[kakawkin]

Собственно задание дал препод:
1. Получить HEX данные из файла .exe и сохранить hex код в 1.txt
2. Данный HEX преобразовать в бинарный и записать в test.exe
Т.е. некое копирование файла происходит

[Serge_Bliznykov]

решение первой части задачи.

program Project4;

{$APPTYPE CONSOLE}
uses
  SysUtils,
  Classes;

const
  FileExecutableName = 'файл.exe';
  TextFileName = '1.txt';
  MaxByteInString = 16;
var
  ts : TStringList;
  tf : TFileStream;
  OneByte : byte;
  s : string;
  kByteInStringCount : integer;
begin
  if not FileExists(FileExecutableName) then WriteLn('#Error! File ',FileExecutableName,' not found!')
  else begin
     try
       try
         tf := TFileStream.Create(FileExecutableName, fmOpenRead or fmShareDenyNone);
         ts := TStringList.Create;

         kByteInStringCount := 0;
         s := '';
         while tf.Position < tf.Size do begin
           tf.Read(OneByte, 1);
           s := s + IntToHex( OneByte, 2 ) + ' ';
           inc(kByteInStringCount);
           if kByteInStringCount>=MaxByteInString then begin
              ts.Append( s );
              kByteInStringCount := 0;
              s := '';
           end;
         end;

         {допишем остаток (последнюю строку}
         if kByteInStringCount>0 then
              ts.Append( s );

         {сохраним результат в текстовый файл }
         ts.SaveToFile(TextFileName);


       except
         WriteLn('#Error! File ',FileExecutableName,' cannot be read!');
       end;
     finally
       FreeAndNil(ts);
       FreeAndNil(tf);
     end;
  end;
end.