[Marvel]

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

А каким образом Вы это сделали?

а чего там делать, можно взять шестнадцатеричный редактор и вбить все значения вручную, а можно перевести HEX значения в десятичную систему (читать по 2 байта из строки), потом через функцию Chr преобразовывать в текстовые символы и записывать каждый байт в файл, вот готовая процедура:

Код:

procedure HexStrToFile(hex_str,out_file: string);
var
  tmp: string;
  i,cnt: integer;
  f: file;
  buf: char;
begin
  tmp := '';
  cnt := 0;

  AssignFile(f, out_file);
  Rewrite(f, 1);

  for i:=1 to Length(hex_str) do
  begin
    Inc(cnt);
    tmp := tmp + hex_str[i];
    if cnt > 1 then
    begin
      buf := Chr(StrToInt('$'+tmp));
      BlockWrite(f,buf,1);
      cnt := 0;
      tmp := '';
      continue;
    end;
  end;
  
  CloseFile(f);
end;

сильно не пинать, писалось очень быстро и только для этого случая)))

использовать так:

Код:

HexStrToFile('a980393b228182fabf8568ae5e2b53fdc19c405939b5e7af','file.txt');