Lianja

PKCS7 Sign Text using RSA 2048, SHA256, Base64 Output

See more Digital Signatures Examples

Demonstrates how to sign text using 2048-bit RSA with SHA256, producing PKCS#7 output in Base64. The certificate w/ private key used for signing is loaded from a .p12/.pfx file. Lianja

llSuccess = .F.

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loCert = createobject("CkCert")

// Load the cert and private key.  Whatever the private key happens to be,
// such as RSA or ECC, then Chilkat will use it.  If the private key is 
// a 2048-bit RSA key, then that's what will be used..
llSuccess = loCert.LoadPfxFile("qa_data/pfx/myCertAndKey.p12","password")
if (llSuccess <> .T.) then
    ? loCert.LastErrorText
    release loCert
    return
endif

loCrypt = createobject("CkCrypt2")

llSuccess = loCrypt.SetSigningCert(loCert)
if (llSuccess <> .T.) then
    ? loCrypt.LastErrorText
    release loCert
    release loCrypt
    return
endif

// Use SHA-256
loCrypt.HashAlgorithm = "sha256"

// Hash the utf-8 byte representation of the string
loCrypt.Charset = "utf-8"

// Return the result in base64
loCrypt.EncodingMode = "base64"

// Sign some text..
lcTextToSign = "This is the text to be hashed and signed."
lcSigBase64 = loCrypt.OpaqueSignStringENC(lcTextToSign)
if (loCrypt.LastMethodSuccess <> .T.) then
    ? loCrypt.LastErrorText
    release loCert
    release loCrypt
    return
endif

? lcSigBase64

// The result:
// MIIS2wYJKoZIhvcNAQc ... zGeeY4Oxg==


release loCert
release loCrypt