Ну вот, от нефиг делать, привел в удобочитаемый (для меня во всяком случае) вид. Немного оптимизировал
На права не претендую и просто дарю это автору шифра INFOBOS-1
Оптимизирован немного код, но по ходу размышлений наткнулся на некоторые моменты по оптимизации самого алгоритма. Например, можно не прогонять шифрацию 2000 раз, немного математики и скорость работы шифратора возрастает в разы.
NIch, я особо с криптоанализом не дружу (не мой профиль), а уж
Konrad разгадает сию загадку быстрее. Так что я уже морально уничтожен и мне просто неохото стало этим заниматься
Мне было интереснее "кракозябли" автора перелопатить
Да, забыл добавить, в архиве только 1 фал
INFOBOS_1.pas. Подключаете к проекту и используете 2 функции:
function EncodeText(const aText, aKey: String): String;
function DecodeText(const aText, aKey: String): String;