Как выбрать случайную строку из текстового файла?

[3D Hunter]

все, вспомнил чем мне не понравился StringList, потому что это набор строк и их придется шифровать каждую и они в файле хоть и зашифрованные но будет понятно что это строки с текстом.

Из-за незнания так можно и Delphi удалить. Свойство Text юзать не пробовали? Тип String у него, к слову. И содержит оно весь текст, который и разбит по строкам разделителем, который находится в свойстве LineBreak. Учим мат. часть.
Далее, что значит не расшифровывать файл? На диске чтоли? А кто такое вообще делает? Вы загрузили строку вашу бинарную в оперативку и химичите там с ней как угодно, а файл на винте уже не нужен то в общем.
Шифрование можно любое, даже самое элементарное. Берем первый символ к примеру, и его ксорим с каждым следующим, получаем новую строку, в которой первый символ будет незашифрованный. И тогда размер такой строки будет совпадать с размером исходной. Элементарные вещи должны быть элементарными, не более.

[JekaDefer]

Всё работает, только б я внес в Base64 зависимость от длинны шифруемой строки так чтоб каждый последующий символ шифровался на длину строки-1. так бы не отслеживались последовательности при одинаковых данных.Прикольно,странно но я просматривал это и не помню что мне не понравилось..

procedure TForm1.Button1Click(Sender: TObject);
Var
  Sl: TStringList;
begin
  Sl := TStringList.Create;
  Sl.Text:= base64_encode(memo1.text);
  Sl.SaveToFile('1.txt');
  memo1.clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
  Sl: TStringList;
begin
  Sl := TStringList.Create;
  Sl.LoadFromFile('1.txt');
  memo1.Text := base64_decode(Sl.text);
end;

[JekaDefer]

3D Hunter почитай о чем вообще разговор идет и разберись кому что надо.. а то кому ты пишешь я хз

[3D Hunter]

Мне разбираться не нужно Прочти пост #17, не твой скажешь? потому по TStringList и написал. Базар фильтруют здесь) И ничего, что ты в чужой теме оффтоп развел по своим вопросам? Создавай свою тему и вперед, а то бедный Юсуп офигел наверно и не появляется