Наконец дошли руки до твоего юнита
Извени, что так долго - дел по горло было... Сейчас вроде освободился.
Парочка эксперементов с функциями
Function EnCryptSum(Text,Password:string):string;
Function DeCryptSum(Code,Password:string):string;
дали очень даже хорошие результаты:
использовал слизанный словарь паролей (около 200 штук) и метод Sum шифровал/дешифровал без единого "лишнего" или "нетого" символа. Это при том, что в качестве ключа использовались несколько длиной 9..18 символов... Сохранял результат в текстовой файл, после чего этот файл расшифровывал - всё впорядке, лишних символов переноса не обнаружено
Таких результатов мне ещё не удалось увидеть (подчеркну - с выбором ключа шифровки)
Есть правда вопрос:
Чем Sum лучше Sub,CryptSymbolVij? В каких случаях лучше ту или иной тип шифровки использовать?
P.S. Парень, что писал функции - молодец, если это ты, то вдвойне молодец
Пойду дальше эксперементировать... Если найду что -то, сообщу