• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: DecryptFileRC5

есть текстовый файл он зашифрован  EncryptFileRC5..
нужно получить сам текст  фала в TStringList  но уже расшифрованный...

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: DecryptFileRC5

может расшифровать
загрузить
и зашифровать обратно?

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: DecryptFileRC5

так я получаю текст

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
str:TStringList;
i:integer;
begin
  str:=TStringList.Create;
  DecryptFileRC5(ExtractFilePath (ParamStr (0))+'\12.txt','12');
  str.LoadFromFile(ExtractFilePath (ParamStr (0))+'\12.txt');
  EncryptFileRC5(ExtractFilePath (ParamStr (0))+'\12.txt','12');
  for i:=0 to str.Count-1 do
      Form1.Memo1.Lines.Add(str[i]);
end;

но шифрованный файл получить не могу..