Show Card Certificates API

With the following code sample it is possible to display the signature certificate of your smartcard.



Dim csp
Dim reader

'reader number can be of the range 0 - 9
'zero is first connected card reader
reader = 0

Set csp = CreateObject("aloahacsp.aloaha_csp") 

If csp.set_reader(CLng(reader)) = True Then
     Call csp.show_ROOTCertificate
     Call csp.show_Certificate
End If 

Set csp = nothing