(VBScript) URL Signing for Google Maps API

Demonstrates how to sign a URL for the Google Maps API.

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

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

set crypt = CreateObject("Chilkat_9_5_0.Crypt2")

' The output will be modified Base64.
' Modified Base64 for URLs replaces the '+' and '/' characters 
' of standard Base64 with '-' and '_' respectively, so that these 
' Base64 signatures no longer need to be URL-encoded.
crypt.EncodingMode = "modBase64"

' Set the hash algorithm to sha-1
crypt.HashAlgorithm = "sha-1"

' Set the HMAC key (this is the private key provided by Google)
crypt.SetHmacKeyEncoded "vNIXE0xscrmjlyV-12Nj_BvUPaw=","modBase64"

' Compute the URL signature
sig = crypt.HmacStringENC("/maps/api/geocode/json?address=New+York&sensor=false&client=clientID")

' The result should be KrU1TzVQM7Ur0i8i7K3huiw3MsA=
outFile.WriteLine(sig)

outFile.Close