Советы по Delphi


Простой пример 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]




Начало  Назад