[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');

[NumLock]

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

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

[Marvel]

вот про это я и писал, про ручной метод ))))

[Marvel]

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

Вообщем я знаю что там за слово)))
З.Ы. Здесь слово из 11 символов

так скажи нам слово, что бы мы голову себе не ломали или не пудри нам мозги, своих забот хватает. Будет слово - будет ответ на твой вопрос, скорее всего...

P.S.: если не знаешь слова, то тебе сюда: http://forum.insidepro.com/ - тут помогут я думаю

[Konrad]

Вы хоть на даты смотрели?
Зачем поднимать тему 7-ми месячной давности?

[Marvel]

x_O извеняюсь ))) но мож кому и понадобицца HexStrToFile ))))