Простой пример XOR шифрования

Written on 16 Октября 2007. Posted in [Delphi] Алгоритмы

Вот ужасно простой пример 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;