Алгоритм шифрования

[Simply-Art]

А момент сохранения в файл где? Наверно я туплю, но как стринг сохранить в файл? Желательно быстрый алгоритм

[alexBlack]

2 Simply-Art
Непонятно. Вижу в списке сообщений, что твое сообщение последнее 11:24, а самогО сообщения нет.

Странно. Как только добавил свое сообщение, сразу появилось еще одно.
Ну, ладно. В какой файл:

В текстовый:
assign(F, 'C:\text.dat'); rewrite(F);
writeLn(F, S);
close(F);

в ini
F := TINIFile.Create(...
F.WriteString(....

в поток
F := TFileStream.Create( ....
F.Write(S[0], length(S)+1);

[Simply-Art]

Вы бы сами на практике
попробовали бы прежде
чем писать. Первый
способ работает в 40%
случаях, остальное
вообще не корректно
сохраняет. Если у вас все
корректно, то выложите
исходник.

[alexBlack]

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

procedure TForm1.FormCreate(Sender: TObject);
var S:ShortString;   //
    F:TFileStream;
    L : byte;
begin
   S := CT('testStringОченьДлиннаяСтрокапарлыдврплдавыоплаволыпжkeykeykeykey', 'key'); // шифровать
   F := TFileStream.Create('C:\text.dat', fmCreate);
   F.Write(S[0], length(S));
   F.free;

   S := '';

   // Чтение и расшифровка
   F := TFileStream.Create('C:\text.dat', fmOpenRead);
   F.read(L, 1);
   S[0] := chr(L);
   F.Read(S[1], L);
   F.free;
   S := CT(S, 'key'); // расшифровать
   ShowMessage(S);
end;

[Simply-Art]

Этот вариант не подходит. Тексты будут по несколько метров шифроваться и сохранятся, процедуру я запихаю в отдельный поток это не проблема. ShortString явно не катит. Вот примерная схема. Ввод текста в мемо, текст из мемо посылаем в процедуру (скорей всего даже в функцию), там он проходит шифровку с помощью уже коректного алгоритма ( CT(memo.lines.text, 'key'); ) затем он там же (в процедуре) сохраняется в файл (сохраняется уже шифрованый текст). Вот пожалуй и всё. При открытии я думаю уж сам сделаю по аналогии (возможно и не сделаю )
ЗЫ уровень моей подготовки - детсадовский знаю Delphi поверхностно.