|
Tak že jsem našel takovýto návod podepsání:
Dim myStore As New CAPICOM.Store
Dim myCert As CAPICOM.Certificate
Dim signature As String
Dim signData = New CAPICOM.SignedData
Dim signer = New CAPICOM.signer
// otevření úložiště certifikátů
myStore.Open
// nalezení podpisového certifikátu
For Each myCert In myStore.Certificates
….
Next
Set signer.Certificate = myCert
signData.Content = xRELPDMsg.xml
// podepsání zprávy
signature = signData.Sign(signer, True)
šifrofání:
Dim cryptCert = SelectEncryptingCertificate()
Dim encData = New CAPICOM.EnvelopedData
encData.Algorithm.KeyLength = CAPICOM. CAPICOM_ENCRYPTION_KEY_LENGTH. CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM
encData.Algorithm.Name = CAPICOM. CAPICOM_ENCRYPTION_ALGORITHM. CAPICOM_ENCRYPTION_ALGORITHM_3DES
encData.Content = xRELPDMsg.xml
encData.Recipients.Add cryptCert
encryption = encData.Encrypt()
|