Perl

Configure HTTP Basic Authentication with SecureString

Demonstrates Rest.SetAuthBasicSecure, which configures HTTP Basic authentication using SecureString objects instead of plaintext strings.

Background. A SecureString keeps sensitive values encrypted in memory, reducing the window in which credentials appear as readable plaintext. This is otherwise equivalent to SetAuthBasic.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $rest = Chilkat2::Rest->new;
my $bTls = 1;
my $bAutoReconnect = 1;
my $success = $rest->Connect('example.com', 443, $bTls, $bAutoReconnect);
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

# SetAuthBasicSecure configures HTTP Basic authentication using SecureString objects, which keep
# the credentials encrypted in memory.
# Normally you would not hard-code secrets in source.  You should instead obtain them from an
# interactive prompt, environment variable, or a secrets vault.
my $ssUsername = Chilkat2::SecureString->new;
$ssUsername->Append('myUsername');
my $ssPassword = Chilkat2::SecureString->new;
$ssPassword->Append('myPassword');

$success = $rest->SetAuthBasicSecure($ssUsername, $ssPassword);
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

my $responseText = $rest->FullRequestNoBody('GET', '/api/protected');
if (!$rest->LastMethodSuccess) {
    print $rest->LastErrorText, "\n";
    exit;
}

print $responseText, "\n";