Или я чего-то не вижу или лыжи не едут. Как функция предложенная Vayrus хоть что-то может правильно расшифровать? Но ведь работает, вот в чем парадокс.
Не врубаюсь. Ключ, который должен собственно шифровать/дешифровывать корректно, тут заменен рандомным значением
Код:
strResult[i] := Chr(Ord(strResult[i]) xor Random(255));
но если, для шифрования это будет работать, то как оно работает на расшифрвку - вот не врубаюсь напрочь. Какая-то уличная магия.