Цитата:
Сообщение от 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');