Смотри глубже...вот алгоритм XOR...
Цитата:
|
toto := Chr((ord(text[i]) xor ord(longkey[i]))); // XOR алгоритм
|
Просто бери текущий байт и ксорь его...
Весь прикол в том, что нужно каждый раз циклично переключатся на следующий байт ключа, что бы не ксорить одним и тем же байтом...
XOR стойкий тогда когда длина ключа приближается к длине сообщения...