(PureBasic) Base64url Encoding

Base64url encoding is identical to base64 encoding except it uses non-reserved URL characters (e.g. '–' is used instead of '+', and '_' is used instead of '/') and it omits the padding characters. Chilkat adds support for "base64url" in version 9.5.0.56. (To be released Q1 2016.) The list of binary encodings supported by Chilkat are documented at Chilkat Binary Encodings For any supported encoding, such as base64, hex, url, quoted-printable, modbase64, base64url, etc., the encoding name may be used in any "EncodingMode" property or in any method argument that specifies a binary encoding. (Please note that a "binary encoding" is different than a "character encoding". Character encodings supported by Chilkat are listed at Chilkat Character Encodings.) This example demonstrates using base64url encoding by setting the RSA object's EncodingMode property equal to "base64url".

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCertStore.pb"
IncludeFile "CkCert.pb"
IncludeFile "CkPrivateKey.pb"
IncludeFile "CkRsa.pb"

Procedure ChilkatExample()

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

    ; Create an instance of a certificate store object, load a PFX file,
    ; locate the certificate we need, and use it for signing.
    ; (a PFX file may contain more than one certificate.)
    certStore.i = CkCertStore::ckCreate()
    If certStore.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; The 1st argument is the filename, the 2nd arg is the 
    ; PFX file's password:
    success.i = CkCertStore::ckLoadPfxFile(certStore,"chilkat.pfx","test")
    If success <> 1
        Debug CkCertStore::ckLastErrorText(certStore)
        CkCertStore::ckDispose(certStore)
        ProcedureReturn
    EndIf

    cert.i = CkCertStore::ckFindCertBySubject(certStore,"Chilkat Software, Inc.")
    If CkCertStore::ckLastMethodSuccess(certStore) = 0
        Debug CkCertStore::ckLastErrorText(certStore)
        CkCertStore::ckDispose(certStore)
        ProcedureReturn
    EndIf

    pkey.i
    pkey = CkCert::ckExportPrivateKey(cert)
    If CkCert::ckLastMethodSuccess(cert) = 0
        Debug CkCert::ckLastErrorText(cert)
        CkCert::ckDispose(cert)

        CkCertStore::ckDispose(certStore)
        ProcedureReturn
    EndIf

    CkCert::ckDispose(cert)

    ; Get the private key in XML format:
    pkeyXml.s = CkPrivateKey::ckGetXml(pkey)

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

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

        CkCertStore::ckDispose(certStore)
        CkRsa::ckDispose(rsa)
        ProcedureReturn
    EndIf

    ; This example will sign a string, and receive the signature
    ; as a base64url encoded string.  Therefore, set the encoding mode
    ; to "base64url":
    CkRsa::setCkEncodingMode(rsa, "base64url")
    CkRsa::setCkLittleEndian(rsa, 0)

    strData.s = "This is the string to be signed."
    strSig.s = CkRsa::ckSignStringENC(rsa,strData,"sha256")

    CkPrivateKey::ckDispose(pkey)

    Debug strSig


    CkCertStore::ckDispose(certStore)
    CkRsa::ckDispose(rsa)


    ProcedureReturn
EndProcedure