Цитата:
|
Сообщение от nixon232
В исходнике он изначально у меня не декриптит.
.....
Ну и вызов
Код:
s:=EncryptString('123','abc',kb128);
s1:=DecryptString(s,'abc',kb128); |
Понятно. Проблема скорее всего в том, что "delphi xe4", т.е. у тебя Delphi юникодная, а пример разрабатывался на старой версии Delphi. Тебе нужно заменить типы "String" и "PChar" на "AnsiString" и "PAnsiChar" соответственно - должно заработать.