Translate to clarion

[willie53]

I'm trying put all my code within a clarion app and I have a small c# dll I use sign a url for google maps, and I want to get rid of this dll.

Has anyone or can anyone translate the code below to clarion, I'm figuring I can use some of the functions in kryptonite.


      public string GetGoogleURLSignRequest(string url, string ClientID, string APIKey)
        {
            SignedUrl = string.Empty;
           ASCIIEncoding encoding = new ASCIIEncoding();

            // converting key to bytes will throw an exception, need to replace '-' and '_' characters first
            string usablePrivateKey = APIKey.Replace("-", "+").Replace("_", "/");
            byte[] privateKeyBytes = Convert.FromBase64String(usablePrivateKey);

            Uri uri = new Uri(url);
            byte[] encodedPathAndQueryBytes = encoding.GetBytes(uri.LocalPath + uri.Query);

            //Compute the hash
            HMACSHA1 algorithm = new HMACSHA1(privateKeyBytes);
            byte[] hash = algorithm.ComputeHash(encodedPathAndQueryBytes);

            // convert the bytes to string and make url-safe by replacing '+' and '/' characters
            string signature = Convert.ToBase64String(hash).Replace("+", "-").Replace("/", "_");

            // Add the signature to the existing URI.
            SignedUrl = uri.Scheme + "://" + uri.Host + uri.LocalPath + uri.Query + "&signature=" + signature;

            return SignedUrl;

[MyBrainIsFull]

Hi Willie, looks do-able - drop me a line - NetTalkCentral@3d.com.au,  I have a question for you.

Kevin

[Bruce]

Is this still unresolved?

[willie53]

I replied to kevin earlier today.. but the one line that's confusing both of us is this one..

   byte[] encodedPathAndQueryBytes = encoding.GetBytes(uri.LocalPath + uri.Query);

 it's seem that it trying convert to bytes in an array the uRL path and URL query.
the path is something like this /maps/api/geocode/json
the query is something like this /?address=13 main st&channel=dev&sensor=false&client=gme-clientid

image attached


[attachment deleted by admin]

[Bruce]

I think it's just a string.
After all "strings" are just "strings of bytes".

I would just treat it as a string and go from there...

cheers
Bruce

[MyBrainIsFull]

Yes Bruce, we did,  its a string.

UPDATE
I had to tweak it a bit, but it WORKS!!!!   
Thanks so much with helping with this.     

GetGoogleURLSignRequest ( GoogleURL, PathUrl, Query , ClientID, APIKey)
stPKey  StringTheory
stQry     StringTheory

            stPKey.setValue(ApiKey)
            stPKey.Replace('-', '+')
            stPKey.Replace('_', '/')
            stPKey.Base64Decode( )        ! st object holds the privateKey
!!------------------------------------------------!
            stQry.SetValue(PathUrl)
            stQry.Base64Decode( )        ! st object holds the path info
            stQry.Append( Query )   
            Loc:SecretKey = stpkey.getvalue()
            err#  = Crypto.MakeHmac (stQry, Loc:SecretKey, cs:Calg_Sha1)       
  ! returns Crypto:Ok or Crypto:NotOk   

            stQry.Replace('+', '-')
            stQry.Replace('/', '_')
            stQry.Prepend(Clip(GoogleURL) & Clip(PathUrl) & Clip(Query) & '&Signature=' ) !& stQry.GetValue() )

            return stQry.GetValue( )