Многим очень хочеться самим, что-то зашифровать. Причин, этому много. Например, «хочу шифровать пароль или текст сам, не доверяю другим!». Это я понял из общения с моими друзьями. Самый простой алгоритм, шифрования XOR. Идея его проста. Вы выбираете ключ – произвольная последовательность байт. Далее берете некоторую строку, которую хотите зашифровать, и складываете байты ключа с байтами шифруемой строки по модулю 2. Ниже приведена упрощенная реализация этого алгоритма. Перед выполнением основной части программы нужно задать key и text. Думаю назначение этих переменных интуитивно понятно!

var
 key, text, longkey, result: string;
 i: integer;
 toto, c: char;
begin
 for i := 0 to (length(text) div length(key)) do
    longkey := longkey + key;
 for i := 1 to length(text) do
 begin
    toto := chr((ord(text[i]) xor ord(longkey[i]))); // XOR алгоритм
    result := result + toto;
 end;
end;