ivan76
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужна помощь сообщества.
Есть платежная система Киберплат, занимается процессинговыми услугами.
На сайте в разделе техподдержка имеются примеры и библиотека для работы с Cyberplat, в частности процедура подписи сообщений:
procedure TfrmMain.Button1Click(Sender: TObject);
var
res : integer;
pkey: IPRIV_KEY;
S : string;
begin
Crypt_Initialize;
res:= Crypt_OpenSecretKeyFromFile(IPRIV_ENGINE_RSAREF, 'secret.key', '1111111111', @pkey);
if res=0 then
begin
SetLength(S, 1000);
res:=Crypt_Sign( PChar('test'), -1, PChar(S), 1000, @pkey);
if res=0 then
begin
memo1.Text := S;
end;
Crypt_CloseKey(@pkey);
res:=Crypt_OpenPublicKeyFromFile(IPRIV_ENGINE_RSAREF, 'pubkeys.key', 17033, @pkey, nil);
if res=0 then
begin
res:=Crypt_Verify(PChar(S), -1, nil, 0, @pkey);
Crypt_CloseKey(@pkey);
end;
end;
Crypt_Done;
end;
На этой строке res:= Crypt_OpenSecretKeyFromFile(IPRIV_ENGINE_RSAREF, 'secret.key', '1111111111', @pkey);
но функция возвращает значение 15, что описано как:
CRYPT_ERR_FILE_NOT_FOUND= -15; // Файл не найден
не могу понять в чем дело, файлы и ключи в одной папке, пути указаны верно.
Помогите решить проблему, в долгу не останусь
|
