Perl Requires Chilkat v9.5.0.71+

REST Basic Auth with Secure Strings

Demonstrates how to do REST Basic authentication using secure strings. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# Imagine we've previously saved our encrypted login and password within a JSON config file
# that contains this:

# {
#   "http_login": "mCrOmA7mBA7Au9RuJGb9hw==",
#   "http_password": "jJtiI9TgErTTpqBz9JtHBw=="
# }

my $json = Chilkat2::JsonObject->new;
$json->LoadFile('qa_data/passwords/http.json');

my $crypt = Chilkat2::Crypt2->new;

# These are the encryption settings we previously used to encrypt the credentials within the JSON config file.
$crypt->CryptAlgorithm('aes');
$crypt->CipherMode('cbc');
$crypt->KeyLength(128);
$crypt->SetEncodedKey('000102030405060708090A0B0C0D0E0F', 'hex');
$crypt->SetEncodedIV('000102030405060708090A0B0C0D0E0F', 'hex');
$crypt->EncodingMode('base64');

my $ssLogin = Chilkat2::SecureString->new;
my $ssPassword = Chilkat2::SecureString->new;

# Decrypt to the secure string.  (the strings will still held in memory encrypted, but are now encrypted using
# a randomly generated session key.)
$crypt->DecryptSecureENC($json->StringOf('http_login'), $ssLogin);
$crypt->DecryptSecureENC($json->StringOf('http_password'), $ssPassword);

my $rest = Chilkat2::Rest->new;

# Connect to a REST server.
my $bTls = 1;
my $port = 443;
my $bAutoReconnect = 1;
my $success = $rest->Connect('chilkatsoft.com', $port, $bTls, $bAutoReconnect);

# Cause the "Authorization: Basic ..." header to be added to HTTP requests
$rest->SetAuthBasicSecure($ssLogin, $ssPassword);

my $responseJson = $rest->FullRequestNoBody('GET', '/helloWorld.html');
if (!$rest->LastMethodSuccess) {
    print $rest->LastErrorText, "\n";
    exit;
}

# Show the LastRequestHeader that was sent.
print $rest->LastRequestHeader, "\n";

# The LastRequestHeader looks like this:

# Host: chilkatsoft.com
# Authorization: Basic bXlIdHRwTG9naW46bXlIdHRwUGFzc3dvcmQ=