(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, MacOS, Linux, Alpine Linux

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");
$crypt->put_MacAlgorithm("hmac");

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

# Compute the URL signature
$sig = $crypt->macStringENC("/maps/api/geocode/json?address=New+York&sensor=false&client=clientID");

# The result should be KrU1TzVQM7Ur0i8i7K3huiw3MsA=
print $sig . "\r\n";