Sample code for 30+ languages & platforms
Tcl

URL Signing for Google Maps API

See more Encryption Examples

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

Chilkat Tcl Downloads

Tcl

load ./chilkat.dll

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

set crypt [new_CkCrypt2]

# 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.
CkCrypt2_put_EncodingMode $crypt "modBase64"

# Set the hash algorithm to sha-1
CkCrypt2_put_HashAlgorithm $crypt "sha-1"
CkCrypt2_put_MacAlgorithm $crypt "hmac"

# Set the HMAC key (this is the private key provided by Google)
CkCrypt2_SetMacKeyEncoded $crypt "vNIXE0xscrmjlyV-12Nj_BvUPaw=" "modBase64"

# Compute the URL signature
set sig [CkCrypt2_macStringENC $crypt "/maps/api/geocode/json?address=New+York&sensor=false&client=clientID"]

# The result should be KrU1TzVQM7Ur0i8i7K3huiw3MsA=
puts "$sig"

delete_CkCrypt2 $crypt