Попробуй вместо:
Код:
enCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,60);
deCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,60)
Использовать:
Код:
enCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,17);
deCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,17)
Ну вообщем ограничение уменьшить... код шифратора на скорую руку набросал так что может переодически глючить....