Шифрование текста по введенному паролю

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

Автор: Danger
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Шифрование текста

Процедура шифрует текст основываясь на введенном пароле.

Зависимости: Windows, SysUtils, Classes
Автор:       Danger, robinzon2000@pochtamt.ru, Киев
Copyright:   Danger
Дата:        04 мая 2002 г.
***************************************************** }

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;

Программа на Delphi, которая шифрует и дешифрует текст с помощью метода, основанного на пароле. Процедура Code принимает три параметра: исходный текст для шифрования или дешифровки, используемый пароль для шифрования/дешифровки, и булевский флаг, указывающий, нужно ли кодировать (шифровать) или декодировать (дешифровать).

Вот шаги, которые выполняет код:

1. Он рассчитывает длину пароля.
2. Если пароль пуст, процедура выходит из себя.
3. В зависимости от параметра decode, он устанавливает переменную sign в значение -1 для дешифровки или 1 для кодировки.
4. Он проходит по каждому символу исходного текста и применяет простой метод шифрования/дешифровки, похожий на Цезарев шифр, используя соответствующий символ из пароля (переключаясь к началу пароля, если необходимо).

Пример использования демонстрирует, как использовать эту процедуру:

• Button1Click: Шифрует текст в Memo1 с помощью пароля, введенного в Edit1.
• Button2Click: Дешифрует зашифрованный текст в Memo1 с помощью того же пароля.

Implemented code is relatively simple and not secure for sensitive data, as it uses a fixed offset for each character based on the password. For more robust encryption, consider using established algorithms like AES or RSA.

Here are some suggestions for improvement:

• Use a more secure method of encryption, such as AES.
• Consider adding error handling for cases where the input text or password is invalid.
• If you're planning to use this code in a production environment, make sure to follow proper security guidelines and best practices for data encryption and decryption.

As an aside, it's interesting to note that the program has been attributed to Danger and robinzon2000@pochtamt.ru, with a copyright date of May 4th, 2002. It's possible that this code was part of a larger project or community effort at the time!

Шифрование текста по введенному паролю - программа на языке Delphi, которая шифрует или дешифрует текст на основе введенного пароля.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Шифрование ::