23.08.2004 9:15:40CryptSignMessage Ответов: 1
Adilet
Вопрос:
В Delphi 7 какие параметры надо передавать в функцию CryptSignMessage
Отрывок
Data : array of Pbyte;
szData : array[0..1] of DWORD;
SetLength(Data,1);
// Setlength(szData,1);
SetLength(SD,3);
SD[0]:=Ord(’1’);
SD[1]:=Ord(’2’);
SD[2]:=Ord(’3’);
Data[0]:=@SD[0];
szData[0]:=3;

if CryptSignMessage(
@SigParams, // óêàçàòåëü íà SigParams
TRUE, // ïîäïèñü ñîçäàåòñÿ îòäåëüíî
1, // ÷èñëî ñîîáùåíèé
Data, // ñîîáùåíèå
szData, // äëèíà ñîîáùåíèÿ
NIL, // áóôåð äëÿ ïîäïèñè
@cbSignedMessageBlob) // ðàçìåð áóôåðà
then
ShowMessage(’Ðàçìåð ïîäïèñè ðàâåí ’+IntToStr(cbSignedMessageBlob))
else
ShowMessage(’Îøèáêà CryptSignMessage.’);

выдает AccessViolation in Crypt32.dll read of address 0000000
 
Ответы:
23.08.2004 10:48:32xxx
http://msdn.microsoft.com/library/en-us/seccrypto/security/cryptsignmessage.asp

See Example C Program: Signing a Message and Verifying a Message Signature.