Delphi-Help

Шифрование текста

Метод основан на сложении текста и пароля: "мой текст" + "пароль" = ('м'+'п')('о'+'а')... То есть каждый символ получают путем сложения соответствующих символов текста и пароля. Под "сложением символов" я подразумеваю сложение номеров этих символов. Обычно пароль длиннее текста, поэтому его размножают: "парольпар".

Чтобы расшифровать текст, нужно проделать обратную операцию, то есть из текста вычесть пароль.

При нажатии на Button1 эта программа шифрует текст из Memo1 при помощи пароля из Edit1. Результат сохраняется в строку s. Для наглядности зашифрованный текст также помещается в Memo1. При нажатии на Button2 текст из s расшифровывается. Если Вы нажмете Button1 два раза подряд, получится зашифрованный зашифрованный текст. Вернуть начальный текст можно будет двумя нажатиями на Button2. Но, поскольку в результате шифрования в строке могут появится

var

  s: string;

procedure Code(var text: string; password: string;

  decode: boolean);

var

  i, PasswordLength: integer;

  sign: shortint;

begin

  PasswordLength := length(password);

  if PasswordLength = 0 then Exit;

  if decode

    then sign := -1

    else sign := 1;

  for i := 1 to Length(text) do

    text[i] := chr(ord(text[i]) + sign *

      ord(password[i mod PasswordLength + 1]));

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  s := Memo1.Text;

  code(s, Edit1.Text, false);

  Memo1.Text := s;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  code(s, Edit1.Text, true);

  Memo1.Text := s;

end;