Способ шифрования и дешифрования пароля

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 var
   s: String[255];
   c: array[0..255] of Byte absolute s;
   i: Integer;
 begin
   {encode}

   s := 'SwissDelphiCenter.ch';
   for i := 1 to Ord(s[0]) do c[i] := 23 xor c[i];
   Label1.Caption := s;

   {Decode}

   s := Label1.Caption;
   for i := 1 to Length(s) do s[i] := Char(23 xor Ord(c[i]));
   Label2.Caption := s;
 end;

Here's the translation of the text into Russian:

Это простой пример реализации шифра Цезаря в Delphi, который является типом замены шифром, где каждый символ в тексте на открытом языке "сдвигается" на определенное количество мест вниз алфавита.

Процедура Button1Click зашифровывает и расшифровывает строку с помощью операции XOR (исключающего или) с фиксированным значением ключа, равным 23. Вот шаг за шагом, что она делает:

Шифрование

1. Переменной s присваивается строка 'SwissDelphiCenter.ch'.
2. Байтовый массив c объявляется и инициализируется содержимым s. Это создает копию оригинальной строки в памяти.
3. Процедура проходит по каждому символу i в массиве c, начиная с 1 (поскольку функция Ord Delphi возвращает код ASCII для первого символа).
4. Для каждого символа значение XOR-ится с 23 с помощью выражения c[i] := 23 xor c[i];. Это эффективно "замораживает" символ.
5. Оригинальная строка отображается в лейбле (Label1.Caption).

Расшифровка

1. Текст из лейбла Label1 (который содержит зашифрованную строку) присваивается переменной s.
2. Цикл проходит по каждому символу i в строке s, начиная с 1.
3. Для каждого символа значение XOR-ится с 23 снова с помощью выражения s[i] := Char(23 xor Ord(c[i]));. Это эффективно "размораживает" символ.
4. Расшифровка строки отображается в другом лейбле (Label2.Caption).

Альтернативное решение

Пока это реализация проста и легко понятна, она имеет некоторые ограничения:

• Она работает только с ASCII-символами (0-127).
• Она использует фиксированное значение ключа 23, что делает ее уязвимой для brute-force атак.

Более безопасный подход бы заключался в использовании случайного ключа для каждого операции шифрования/расшифровки или в использовании более сложного алгоритма шифрования, такого как AES. Кроме того, использование библиотеки OpenSSL может обеспечить более надежную и проверенную на практике реализацию криптографических операций в Delphi.

Вот обновленная версия кода, которая использует случайный ключ:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String[255];
  c: array[0..255] of Byte absolute s;
  i, key: Integer;
begin
   {Generate a random key}
  Randomize;
  key := Random(256);

   {Encode}

  s := 'SwissDelphiCenter.ch';
  for i := 1 to Ord(s[0]) do c[i] := key xor c[i];
  Label1.Caption := s;

   {Decode}

  s := Label1.Caption;
  for i := 1 to Length(s) do s[i] := Char(key xor Ord(c[i]));
  Label2.Caption := s;
end;

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

В статье описывается способ шифрования и дешифрования пароля с помощью алгоритма XOR, используя встроенный тип данных Byte и функцию Ord для работы с символами строки.

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

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

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