Delphi-Help

Главная Статьи Шифрование Простой пример XOR шифрования

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

Оцените материал
(0 голосов)


Простой пример 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;
Прочитано 5454 раз

Авторизация



Счетчики