Закрыть

Шифрование XOR

Автор: Васин Алексей
Опубликовано 19.02.2008 в 22:56
Раздел: Криптография
Теги:

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

function xor_sh(text:string):string;

var  

  key, 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])));

    result := result + toto;

  end;

xor_sh:=result;

end;

 

 Теперь вы можете сами, что-нибудь зашифровать!!!!!

Комментарии (0)

Комментировать могут только зарегистрированные пользователи

Подразделы
Новые статьи
Aрхив статей