Доброго всем дня!
Уважаемые форумчане, помогите, схожу с ума :(
Есть процедуры в dll:
вот эти
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
function Encrypt(const S, Key: WideString): WideString; cdecl; export;
begin
Result := PGPMine.Encrypt(S, Key);
end;
function Decrypt(const S, Key: WideString): WideString; cdecl; export;
begin
Result := PGPMine.Decrypt(S, Key);
end;
exports
Encrypt,
Decrypt;
//преобразуют текст в строки вида 551902D0B5297165D09F761F1DD0B3 и обратно
Есть тестовый проект, в котором "ширфуется" и "дешифруется" текст, и это работает:
вот так тестировал
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
function Encrypt(const S, Key: WideString): WideString; stdcall; external 'pgpcd.dll';
function Decrypt(const S, Key: WideString): WideString; stdcall; external 'pgpcd.dll';
implementation
...
procedure TForm1.Button1Click(Sender: TObject);
var S: String;
begin
S := Edit2.Text;
S := Encrypt(Memo1.Lines.Text, S);
Edit3.Text := S;
S := Edit2.Text;
S := Decrypt(Edit3.Text, S);
Memo2.Lines.Text := S;
//тут все ок
end;
а вот так сделано в рабочем проекте:
вот так вот
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
glVarCon, glServer, glPath, glUser, glPass, glProtocol, glPort: String;
function Encrypt(const S, Key: WideString): WideString; stdcall; external 'pgpcd.dll';
function Decrypt(const S, Key: WideString): WideString; stdcall; external 'pgpcd.dll';
...
glPass := MyINI.ReadString('DB'+glVarCon, 'Pass', ''); //читает правильную строку
glPass := Decrypt(glPass, 'KEY34NAS'); //тут приходит пустая строка '' :( "ключ" правильный
if glPass = '' then glPass := 'masterkey';
Подскажите, почему может работать в тестовом и не работать там где нужно?
Спасибо!
