(PureBasic) RSA Sign Using Private Key from .pfx/.p12 to Base64 Signature

See more RSA Examples

Demonstrates how to RSA sign something using a private key loaded from a .pfx/.p12. The RSA signature is returned in Base64 encoded format.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkPfx.pb"
IncludeFile "CkPrivateKey.pb"
IncludeFile "CkRsa.pb"

Procedure ChilkatExample()

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

    rsa.i = CkRsa::ckCreate()
    If rsa.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Load the .pfx/.p12
    pfx.i = CkPfx::ckCreate()
    If pfx.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkPfx::ckLoadPfxFile(pfx,"qa_data/pfx/myKey.p12","myPassword")
    If success <> 1
        Debug CkPfx::ckLastErrorText(pfx)
        CkRsa::ckDispose(rsa)
        CkPfx::ckDispose(pfx)
        ProcedureReturn
    EndIf

    ; Get the default private key.
    privKey.i = CkPfx::ckGetPrivateKey(pfx,0)
    If CkPfx::ckLastMethodSuccess(pfx) <> 1
        Debug CkPfx::ckLastErrorText(pfx)
        CkRsa::ckDispose(rsa)
        CkPfx::ckDispose(pfx)
        ProcedureReturn
    EndIf

    ; Import the private key into the RSA component:
    success = CkRsa::ckImportPrivateKeyObj(rsa,privKey)
    If success <> 1
        Debug CkRsa::ckLastErrorText(rsa)
        CkPrivateKey::ckDispose(privKey)

        CkRsa::ckDispose(rsa)
        CkPfx::ckDispose(pfx)
        ProcedureReturn
    EndIf

    CkPrivateKey::ckDispose(privKey)

    ; Get the signature in base64
    CkRsa::setCkEncodingMode(rsa, "base64")

    strData.s = "This is the string to be signed."

    ; Sign the string using the sha256 hash algorithm.
    ; Other valid choices are "sha384", "sha512", "sha-1", "md2" and "md5".
    base64Sig.s = CkRsa::ckSignStringENC(rsa,strData,"sha256")

    Debug base64Sig

    Debug "Success!"


    CkRsa::ckDispose(rsa)
    CkPfx::ckDispose(pfx)


    ProcedureReturn
EndProcedure