Как получить данные типа $4D, $5A...

[dolphin705]

p51x

Или я что то не понял или программа даёт на выходе тоько h файл вида
0x4D, 0x5A, 0x50,

а нужно

со знаком $

[Пепел Феникса]

читать файл по-байтово это школьный курс паскаля.
банальное.

function ReadAsHEX(FileName:string):string;
var F:File of byte;
     b:byte; 
begin
 AssignFile(F,FileName);
 Reset(F);
 Result:='';
 while not EoF(F) do 
  begin
   read(F,b);
   Result:=Result+'$'+IntToHEX(b,2)+',';
  end;
 Delete(Result,Length(Result),1);//в конце запятую убираем
 CloseFile(F);
end;

применяем Memo1.Text:=ReadAsHEX(<файл>);
функцию не проверял, ибо тут нет Делфи(я не дома)

p51x

Или я что то не понял или программа даёт на выходе тоько h файл вида
0x4D, 0x5A, 0x50,

а нужно

со знаком $

1)0x это Сишное(и не тока)
2)можно заменой пройтись меняя 0x на $

[dolphin705]

Спасибо Пепел Феникса,к слову в школе у меня не было паскаля))

[Пепел Феникса]

я это к тому что это базовые знания.

у меня был паскаль в школе, но к тому времени мне было скучно на уроках уже.

[Serge_Bliznykov]

честно говоря, не понял, чем файл в ресурсах не устраивает.
Ну, раз пошла такая пьянка - вот рабочий вариант под Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var TS : TStringList;
  FS : TFileStream;
  s  : string;
  i : integer;
  B : byte;
begin
  FS := TFileStream.Create('C:\WINDOWS\system32\winmine.exe', fmOpenRead );
  if FS.Size=0 then begin
        Application.MessageBox( 'Размер файла нулевой', 'Ошибка', MB_ICONSTOP or MB_OK);
        FreeAndNil(FS);
        Exit;
  end;
  TS := TStringList.Create;
  TS.Append('const Fl : array[0..'+IntToStr(FS.Size-1)+'] of byte = (');
  s := '';
  for i:=1 to FS.Size  do begin
     FS.Read(B, 1 );
     s := s + Format('$%x', [B]);
     if i<>FS.Size then s := s + ',';
     if length(s)>50 then begin
       TS.Append(s);
       s := '';
     end;
  end;
  FreeAndNil(FS);

  if length(s)>0 then TS.Append(s);
  TS.Append(');');

  TS.SaveToFile('c:\FL.inc');

  FreeAndNil(TS);

end;

p.s. ну, нужно подставить свои имена файлов или сделать интерфейсик простой...

[GunSmoker]

Все так резко кинулись давать советы автору вопроса, как сделать то, что он якобы хочет, забыв о том, что часто автор вопроса не знает, чего он хочет.

Ну-ка, кто может назвать хоть одну причину, пихать файл в константу?

[Stilet]

кто может назвать хоть одну причину, пихать файл в константу?

Я - "Пытливый ум, жаждущий открыть неведомую вселенную" )

[r9m]

>> Ну-ка, кто может назвать хоть одну причину, пихать файл в константу?
"А штоп нихто не догада-алси, что эта песня о тебеее" Например для того, чтобы файл не хранить в ресурсах, потому, что из ресурсов его дёрнуть и соответственно исследовать легче. (это вариант с малварь-кодом и прочей фигнёй). Ну это просто очень похоже на "PE в отдельной секции PE-файла". Может быть слегка муторно рассказал, но так ведут себя некоторые вирусы. Например Jakky/Vasor.A, про ручное лечение которого я писал тут: http://www.xaker.name/stati/programm...kky-vasor.html. Этот вирус прятал дроппер в отдельной секции.

На самом деле применений можно найти больше. Это просто первое, что пришло в голову. И очень уж похоже "$4D, $5A" на первый признак exe-файла, да ?

[GunSmoker]

Сообщение от r9m

это вариант с малварь-кодом и прочей фигнёй

Праавильно. Откуда что следует? Тему закрыть, автору банку.

[r9m]

Интересно будет послушать, что скажет TC.