Простой пример XOR шифрования
Пришло от читателя письмо:
Вот ужасно простой пример XOR шифрования - работает без глюков.
|
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; |
Igor N. Semenushkin. [001832]
