Добавлена функция шифрования строки. Что ещё по строкам нужно добавить? Заказывайте.
string
Codex(s: string; key: string) - Простейшее шифрование строки текста по методу XOR
s - шифруемая строка, key - ключ шифрования (длина ключа - произвольная).
Для расшифровки используется эта же функция, но вместо s подставляем зашифрованную строку.
Данное шифрование можно применять в качестве дополнительной защиты при
использовании других алгоритмов шифрования (например, Base64 или MD5)
НЕСКОЛЬКО СОВЕТОВ ПО УВЕЛИЧЕНИЮ КРИПТОСТОЙКОСТИ
1. Ключ шифрования делать подлиннее и позаковыристее. Ключ не должен быть осмысленным словом или фразой
t8%FжW21?sПqб(*Z - прекрасный пример ключа
2. Не нужно писать ключ в программе открытым текстом, типа так:
key := 'superkey';
Его можно будет легко прочитать даже непрофессионалу, используя InClass Translator
лучше делать хотя бы так:
key := chr(115) + chr(117) + chr(112) ...
PS: Теперь буду продолжать работы над оконным интерфейсом.