ШИФР ВИЖЕНЕРА DELPHI
Шифр Виженера - это один из наиболее известных методов шифрования, позволяющий зашифровать сообщение с использованием ключа-слова, которое повторяется до тех пор, пока оно не будет иметь ту же длину, что и само сообщение. Шифр Виженера в Delphi можно реализовать с помощью простого кода.
var InputString, OutputString, KeyString: string; InputLen, KeyLen, i, j: integer;begin InputString := 'SECRETMESSAGE'; KeyString := 'KEY'; InputLen := Length(InputString); KeyLen := Length(KeyString); j := 1; for i := 1 to InputLen do begin OutputString := OutputString + Chr(Ord('A') + ((Ord(InputString[i]) - Ord('A') + Ord(KeyString[j]) - Ord('A')) mod 26)); Inc(j); if j > KeyLen then j := 1; end; ShowMessage(OutputString);end;
Приведенный выше код использует вводное сообщение "SECRETMESSAGE" и ключ-слово "KEY" для шифрования сообщения. Он заменяет каждую букву сообщения на букву из ключа, используя простую формулу.
Выводом программы будет зашифрованное сообщение, которое можно передать другому лицу, зная ключ-слово. Конечно, настоящие алгоритмы шифрования более сложны и надежны, но шифр Виженера все же интересный и полезный метод, который можно легко реализовать в Delphi.
Шифр Виженера
Шифровка/Расшифровка информации в Delphi
Симметричное шифрование Асимметричное шифрование Хэш
Выбор сканера - советы начинающим
Как устроен шифр Виженера? Душкин объяснит
Полиалфавитный шифр Виженера
Урок №2: Шифр Виженера и Шифр Атбаш
Урок на делфи 72. Шифр Виженера.