(Perl) URL Signing for Google Maps API

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

Chilkat Perl Downloads Perl Module for Windows, Linux, Alpine Linux, MAC OS X, Solaris, FreeBSD, OpenBSD, Raspberry Pi and other single board computers

use chilkat();

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

$crypt = chilkat::CkCrypt2->new();

# 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->put_EncodingMode("modBase64");

# Set the hash algorithm to sha-1
$crypt->put_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=
print $sig . "\r\n";