(Visual FoxPro) Duplicate Java Secure Token Creation

Demonstrates how to duplicate some Java code that creates an RSA signature to create a base64 token.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loDt
LOCAL lcTimeCreated
LOCAL loSbToken
LOCAL loCert
LOCAL loRsa
LOCAL lcSignature
LOCAL lcToken

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

* This example duplicates the following Java code:

* public X509Certificate2 cert = new X509Certificate2(@"Some path to p12/p12file_name.p12","Password_for_p12"); 
* 
* public string GenerateSignToken(double timeValidityMin){ 
*   string equalsSign = ":="; 
*   string timeCreated = DateTime.Now.ToString("yyyy-MM-ddTHH:mm:ss.fffzzz"); 
*   string tokenTimeInfo = "validityTimeMinutes" + equalsSign + timeValidityMin + ";"+"timeCreated" + equalsSign + timeCreated; 
*   string signature = SignData(tokenTimeInfo); 
*   string secureToken = tokenTimeInfo + ";" + "signature" + equalsSign + signature; 
*   return Base64UrlEncode(secureToken); 
* } 
*  
* public string SignData(string stringToSign){ 
*   byte[] dataToSign = Encoding.UTF8.GetBytes(stringToSign); 
*   RSACryptoServiceProvider privKey = (RSACryptoServiceProvider)cert.PrivateKey; 
*   CspKeyContainerInfo containerInfo = new RSACryptoServiceProvider().CspKeyContainerInfo; 
*   CspParameters cspparams = new CspParameters(containerInfo.ProviderType, containerInfo.ProviderName, privKey.CspKeyContainerInfo.KeyContainerName); 
*   privKey = new RSACryptoServiceProvider(cspparams); 
*   string id = CryptoConfig.MapNameToOID("SHA256"); 
*   byte[] sign = privKey.SignData(dataToSign, id); 
*   bool res = privKey.VerifyData(dataToSign, id, sign); 
*   return Convert.ToBase64String(sign).Replace('+', '-').Replace('/', '_').Replace("=", ""); 
* } 
*  
* private static string Base64UrlEncode(string input){ 
*   var inputBytes = Encoding.UTF8.GetBytes(input); 
*   return Convert.ToBase64String(inputBytes).Replace('+', '-').Replace('/', '_').Replace("=", ""); 
* } 

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt = CreateObject('Chilkat.CkDateTime')
loDt.SetFromCurrentSystemTime()
lcTimeCreated = loDt.GetAsTimestamp(1)

* Such as 2019-04-01T19:35:44-05:00
? lcTimeCreated

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbToken = CreateObject('Chilkat.StringBuilder')
loSbToken.Append("validityTimeMinutes:=10.0;timeCreated:=")
loSbToken.Append(lcTimeCreated)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadPfxFile("Some path to p12/p12file_name.p12","Password_for_p12")
IF (lnSuccess <> 1) THEN
    ? loCert.LastErrorText
    RELEASE loDt
    RELEASE loSbToken
    RELEASE loCert
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rsa')
loRsa = CreateObject('Chilkat.Rsa')
lnSuccess = loRsa.SetX509Cert(loCert,1)
IF (lnSuccess <> 1) THEN
    ? loRsa.LastErrorText
    RELEASE loDt
    RELEASE loSbToken
    RELEASE loCert
    RELEASE loRsa
    CANCEL
ENDIF

loRsa.EncodingMode = "base64url"

lcSignature = loRsa.SignStringENC(loSbToken.GetAsString(),"sha256")
IF (loRsa.LastMethodSuccess = 0) THEN
    ? loRsa.LastErrorText
    RELEASE loDt
    RELEASE loSbToken
    RELEASE loCert
    RELEASE loRsa
    CANCEL
ENDIF

loSbToken.Append(";signature:=")
loSbToken.Append(lcSignature)

* Base64URL encode the result
loSbToken.Encode("base64url","utf-8")
lcToken = loSbToken.GetAsString()

? lcToken

RELEASE loDt
RELEASE loSbToken
RELEASE loCert
RELEASE loRsa