Шифрование текста (Delphi 7)

[YaricZ]

Delphi 7

Необходимо написать алгоритм шифрования текста. Этот текстовый файл - переменная. Моно использовать что-то вроде

Код: [Выделить]

var file;
Edit.loadfromfile(file + '.txt');
Можно загружать его в steam, т.е. поток командой fsopen.

Уважаемые знатоки, внимание, вопрос.
Помогите с кодом шифровщика\дешифровщика (можно без ключа) для работы с вышеописанным ресурсом (любой вариант). Думаю, это должна быть функция с переменной file;

Заранее спасибо.

[doGma]

Вот исходник консольного проекта для шифрования текстового файла методом простого XOR-шифрования...
Идея похожа ...

Код: (delphi) [Выделить]

program Crypt;
{$APPTYPE CONSOLE}

uses Windows;

var
  key, text, longkey, result : string;
  i : integer;
  toto, c : char;
  F : TextFile;
begin
  writeln('Enter the key:');
  readln(key);
  writeln('Enter the text:');
  readln(text);

  for i := 0 to (length(text) div length(key)) do
    longkey := longkey + key;

  for i := 1 to length(text) do
  begin
    // XOR алгоритм
    toto := chr((ord(text[i]) xor ord(longkey[i])));
    result := result + toto;
  end;
  writeln('The crypted text is:');
  writeln(result);
  write('Should i save it to result.txt ?');
  read(c);
  if c in ['Y','y'] then
  begin
    AssignFile(F,'result.txt');
    Rewrite(F);
    Writeln(F,result);
    CloseFile(F);
  end;
end.Если будут какие вопросы - пиши;)

[YaricZ]

Спасибо, вечером поразбираю! Думаю, вопросы появятся !

[Nikitian]

Открытие:

Код: [Выделить]

var
        temp:string;
begin
if opendialog1.Execute then
        begin
        f:=opendialog1.FileName;
        memo1.Lines.LoadFromFile(f);
        InputQuery ('Пароль:','',pass);
        if memo1.Text<>'' then
                begin
                GenerateLMDKey(Key128, SizeOf(Key128), pass);
                try
                        temp := RDLEncryptStringCBCEx(memo1.text, Key128, 16, false);
                        form1.Caption:='my Encoder - '+f;
                except
                        showmessage('Это не зашифрованный файл!');
                        f:='';
                        try
                        close;
                        except
                        end;
                end;
                memo1.Text:=temp;
                end;
        end
else
        close;

Сохранение:

Код: [Выделить]

GenerateLMDKey(Key128, SizeOf(Key128), pass);
        temp:=RDLEncryptStringCBCEx(memo1.text, Key128, 16, true);
        memo1.text:=temp;
        memo1.Lines.SaveToFile(f);
Шифрование алгоритмами: Blowfish, RSA, MD5, SHA-1, DES, triple-DES, Rijndael, & digital signing of messages
Набор компонентов tplockbox