I'm trying to digitally sign an XML document with XAdES-BES with XMLDSig standard in Visual FoxPro. I tryed to do this with Chillkat library, but got stuck at just looking at the certificates in the userstore. Can someone give me a few pointers on how to do this? I couldn't find anything on Google, I even tryed other languages. There are just some examples for PHP and .NET which I can't use.
This is the code for Chillkat:
[pre]ccs=CreateObject('Chilkat_9_5_0.CreateCS')
loCertStore=ccs.OpenCurrentUserStore()
lnNumCerts=loCertStore.NumCertificates
? "User has " + STR(lnNumCerts) + " certificates"
FOR i=0 TO lnNumCerts-1
loCert=loCertStore.GetCertificate(i)
IF !(ISNULL(loCert))
? STR(i) + ": (Common Name) " + loCert.SubjectCN
? STR(i) + ": (Serial Number) " + loCert.SerialNumber
? STR(i) + ": (Issuer) " + loCert.IssuerO
? STR(i) + ": (Issuer) " + loCert.IssuerOU
? STR(i) + ": (Valid from) " + DTOC(TTOD(loCert.ValidFrom))+' to '+DTOC(TTOD(loCert.ValidTo))
RELEASE loCert
ENDIF
?
NEXT[/pre]
What is the next step? Must I use some other library?
This is the code for Chillkat:
[pre]ccs=CreateObject('Chilkat_9_5_0.CreateCS')
loCertStore=ccs.OpenCurrentUserStore()
lnNumCerts=loCertStore.NumCertificates
? "User has " + STR(lnNumCerts) + " certificates"
FOR i=0 TO lnNumCerts-1
loCert=loCertStore.GetCertificate(i)
IF !(ISNULL(loCert))
? STR(i) + ": (Common Name) " + loCert.SubjectCN
? STR(i) + ": (Serial Number) " + loCert.SerialNumber
? STR(i) + ": (Issuer) " + loCert.IssuerO
? STR(i) + ": (Issuer) " + loCert.IssuerOU
? STR(i) + ": (Valid from) " + DTOC(TTOD(loCert.ValidFrom))+' to '+DTOC(TTOD(loCert.ValidTo))
RELEASE loCert
ENDIF
?
NEXT[/pre]
What is the next step? Must I use some other library?