Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VBScript) URL Signing for Google Maps APIDemonstrates how to sign a URL for the Google Maps API.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) set crypt = CreateObject("Chilkat_9_5_0.Crypt2") ' Any string argument automatically begins the 30-day trial. success = crypt.UnlockComponent("Anything for 30-day trial.") If (success <> 1) Then outFile.WriteLine(crypt.LastErrorText) WScript.Quit End If ' 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" ' NOTE: At the time of this writing, the "modBase64" encoding mode is ' available in the pre-release build only. Send email to ' support@chilkatsoft.com if you need a pre-release. This feature will be ' included in the next official release. ' 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 |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.