PowerBuilder
PowerBuilder
Verify and Unwrap S/MIME, and get Information about CMS Signature
See more MIME Examples
Demonstrates calling the Verify method to verify and unwrap S/MIME. The MIME is restored to the original structure that it would have originally had prior to signing. The Verify method works with both detached signatures, as well as opaque/attached signatures.Calls LastJsonData to get information about the signature(s) that were verified.
Chilkat PowerBuilder Downloads
integer li_rc
integer li_Success
oleobject loo_Mime
integer li_Verified
oleobject loo_Json
oleobject loo_SigningTime
oleobject loo_AuthAttrSigningTimeUtctime
string ls_IssuerCN
string ls_Serial
string ls_StrVal
string ls_CertSerialNumber
string ls_CertIssuerCN
string ls_CertDigestAlgOid
string ls_CertDigestAlgName
string ls_ContentType
string ls_MessageDigest
string ls_SigningAlgOid
string ls_SigningAlgName
string ls_AuthAttrContentTypeName
string ls_AuthAttrContentTypeOid
string ls_AuthAttrSigningTimeName
string ls_AuthAttrMessageDigestName
string ls_AuthAttrMessageDigestDigest
string ls_AuthAttr1_2_840_113549_1_9_15Der
string ls_AuthAttr1_3_6_1_4_1_311_16_4Der
integer i
integer li_Count_i
li_Success = 0
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
loo_Mime = create oleobject
li_rc = loo_Mime.ConnectToNewObject("Chilkat.Mime")
if li_rc < 0 then
destroy loo_Mime
MessageBox("Error","Connecting to COM object failed")
return
end if
// Load the signed MIME from a file...
li_Success = loo_Mime.LoadMimeFile("qa_data/mime/detached_sig.eml")
if li_Success = 0 then
Write-Debug loo_Mime.LastErrorText
destroy loo_Mime
return
end if
// Verify the S/MIME and restore the MIME
// to the structure/content it had prior to signing.
li_Verified = loo_Mime.Verify()
if li_Verified = 0 then
Write-Debug loo_Mime.LastErrorText
destroy loo_Mime
return
end if
// Examine the details of what was verified.
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
loo_Mime.GetLastJsonData(loo_Json)
loo_Json.EmitCompact = 0
Write-Debug loo_Json.Emit()
// The code to parse the following JSON (i.e. extract desired information) is shown below..
// {
// "pkcs7": {
// "verify": {
// "certs": [
// {
// "issuerCN": "VeriSign Class 1 Public Primary Certification Authority - G3",
// "serial": "0702A21A85B84B659E180A6EE6F5A365"
// },
// {
// "issuerCN": "VeriSign Class 1 Public Primary Certification Authority - G3",
// "serial": "008B5B75568454850B00CFAF3848CEB1A4"
// },
// {
// "issuerCN": "Symantec Class 1 Individual Subscriber CA - G5",
// "serial": "619C55C32FF6BD1A7B7E0330D21C8F3C"
// }
// ],
// "digestAlgorithms": [
// "sha1"
// ],
// "signerInfo": [
// {
// "cert": {
// "serialNumber": "619C55C32FF6BD1A7B7E0330D21C8F3C",
// "issuerCN": "Symantec Class 1 Individual Subscriber CA - G5",
// "digestAlgOid": "1.3.14.3.2.26",
// "digestAlgName": "SHA1"
// },
// "contentType": "1.2.840.113549.1.7.1",
// "signingTime": "160428055000Z",
// "messageDigest": "2hJJVmO/jtaJV5uCKMFzIkRRvtY=",
// "signingAlgOid": "1.2.840.113549.1.1.1",
// "signingAlgName": "RSA-PKCSV-1_5",
// "authAttr": {
// "1.2.840.113549.1.9.3": {
// "name": "contentType",
// "oid": "1.2.840.113549.1.7.1"
// },
// "1.2.840.113549.1.9.5": {
// "name": "signingTime",
// "utctime": "160428055000Z"
// },
// "1.2.840.113549.1.9.4": {
// "name": "messageDigest",
// "digest": "2hJJVmO/jtaJV5uCKMFzIkRRvtY="
// },
// "1.2.840.113549.1.9.15": {
// "der": "MFAwCwYJYIZIAWUDBAECMAoGCCqGSIb3DQMHMA4GCCqGSIb3DQMCAgIAgDANBggqhkiG9w0DAgIBQDAHBgUrDgMCBzANBggqhkiG9w0DAgIBKA=="
// },
// "1.3.6.1.4.1.311.16.4": {
// "der": "MIG7MIG...7fgMw0hyPPA=="
// }
// }
// }
// ]
// }
// }
// }
// Use this online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
loo_SigningTime = create oleobject
li_rc = loo_SigningTime.ConnectToNewObject("Chilkat.DtObj")
loo_AuthAttrSigningTimeUtctime = create oleobject
li_rc = loo_AuthAttrSigningTimeUtctime.ConnectToNewObject("Chilkat.DtObj")
i = 0
li_Count_i = loo_Json.SizeOfArray("pkcs7.verify.certs")
do while i < li_Count_i
loo_Json.I = i
ls_IssuerCN = loo_Json.StringOf("pkcs7.verify.certs[i].issuerCN")
ls_Serial = loo_Json.StringOf("pkcs7.verify.certs[i].serial")
i = i + 1
loop
i = 0
li_Count_i = loo_Json.SizeOfArray("pkcs7.verify.digestAlgorithms")
do while i < li_Count_i
loo_Json.I = i
ls_StrVal = loo_Json.StringOf("pkcs7.verify.digestAlgorithms[i]")
i = i + 1
loop
i = 0
li_Count_i = loo_Json.SizeOfArray("pkcs7.verify.signerInfo")
do while i < li_Count_i
loo_Json.I = i
ls_CertSerialNumber = loo_Json.StringOf("pkcs7.verify.signerInfo[i].cert.serialNumber")
ls_CertIssuerCN = loo_Json.StringOf("pkcs7.verify.signerInfo[i].cert.issuerCN")
ls_CertDigestAlgOid = loo_Json.StringOf("pkcs7.verify.signerInfo[i].cert.digestAlgOid")
ls_CertDigestAlgName = loo_Json.StringOf("pkcs7.verify.signerInfo[i].cert.digestAlgName")
ls_ContentType = loo_Json.StringOf("pkcs7.verify.signerInfo[i].contentType")
loo_Json.DtOf("pkcs7.verify.signerInfo[i].signingTime",0,loo_SigningTime)
ls_MessageDigest = loo_Json.StringOf("pkcs7.verify.signerInfo[i].messageDigest")
ls_SigningAlgOid = loo_Json.StringOf("pkcs7.verify.signerInfo[i].signingAlgOid")
ls_SigningAlgName = loo_Json.StringOf("pkcs7.verify.signerInfo[i].signingAlgName")
ls_AuthAttrContentTypeName = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.~"1.2.840.113549.1.9.3~".name")
ls_AuthAttrContentTypeOid = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.~"1.2.840.113549.1.9.3~".oid")
ls_AuthAttrSigningTimeName = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.~"1.2.840.113549.1.9.5~".name")
loo_Json.DtOf("pkcs7.verify.signerInfo[i].authAttr.~"1.2.840.113549.1.9.5~".utctime",0,loo_AuthAttrSigningTimeUtctime)
ls_AuthAttrMessageDigestName = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.~"1.2.840.113549.1.9.4~".name")
ls_AuthAttrMessageDigestDigest = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.~"1.2.840.113549.1.9.4~".digest")
ls_AuthAttr1_2_840_113549_1_9_15Der = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.~"1.2.840.113549.1.9.15~".der")
ls_AuthAttr1_3_6_1_4_1_311_16_4Der = loo_Json.StringOf("pkcs7.verify.signerInfo[i].authAttr.~"1.3.6.1.4.1.311.16.4~".der")
i = i + 1
loop
destroy loo_Mime
destroy loo_Json
destroy loo_SigningTime
destroy loo_AuthAttrSigningTimeUtctime