(DataFlex) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCertStore
    Boolean iSuccess
    Variant vCert
    Handle hoCert
    Variant vPkey
    Handle hoPkey
    String sPkeyXml
    Handle hoRsa
    String sStrData
    String sStrSig
    String sTemp1
    Boolean bTemp1

    // 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.)
    Get Create (RefClass(cComChilkatCertStore)) To hoCertStore
    If (Not(IsComObjectCreated(hoCertStore))) Begin
        Send CreateComObject of hoCertStore
    End

    // The 1st argument is the filename, the 2nd arg is the 
    // PFX file's password:
    Get ComLoadPfxFile Of hoCertStore "chilkat.pfx" "test" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoCertStore To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComFindCertBySubject Of hoCertStore "Chilkat Software, Inc." To vCert
    If (IsComObject(vCert)) Begin
        Get Create (RefClass(cComChilkatCert)) To hoCert
        Set pvComObject Of hoCert To vCert
    End
    Get ComLastMethodSuccess Of hoCertStore To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoCertStore To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComExportPrivateKey Of hoCert To vPkey
    If (IsComObject(vPkey)) Begin
        Get Create (RefClass(cComChilkatPrivateKey)) To hoPkey
        Set pvComObject Of hoPkey To vPkey
    End
    Get ComLastMethodSuccess Of hoCert To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Send Destroy of hoCert
        Procedure_Return
    End

    Send Destroy of hoCert

    // Get the private key in XML format:
    Get ComGetXml Of hoPkey To sPkeyXml

    Get Create (RefClass(cComChilkatRsa)) To hoRsa
    If (Not(IsComObjectCreated(hoRsa))) Begin
        Send CreateComObject of hoRsa
    End

    // Import the private key into the RSA component:
    Get ComImportPrivateKey Of hoRsa sPkeyXml To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoRsa To sTemp1
        Showln sTemp1
        Send Destroy of hoPkey
        Procedure_Return
    End

    // This example will sign a string, and receive the signature
    // as a base64url encoded string.  Therefore, set the encoding mode
    // to "base64url":
    Set ComEncodingMode Of hoRsa To "base64url"
    Set ComLittleEndian Of hoRsa To False

    Move "This is the string to be signed." To sStrData
    Get ComSignStringENC Of hoRsa sStrData "sha256" To sStrSig

    Send Destroy of hoPkey

    Showln sStrSig


End_Procedure