[poli-smen]

Сообщение от nixon232

В исходнике он изначально у меня не декриптит.
.....
Ну и вызов

Код:

s:=EncryptString('123','abc',kb128);
s1:=DecryptString(s,'abc',kb128);

Понятно. Проблема скорее всего в том, что "delphi xe4", т.е. у тебя Delphi юникодная, а пример разрабатывался на старой версии Delphi. Тебе нужно заменить типы "String" и "PChar" на "AnsiString" и "PAnsiChar" соответственно - должно заработать.