12345 ##

##

00

##

##

#!/usr/bin/perl

use strict;
use Crypt::TripleDES;
use SOAP::Lite maptype => {};

my $lite;
my $tDES1 = "1234567890123456";
my $tDES2 = "1234567890123456";
my $tDES3 = "1234567890123456";
my $passcode = $tDES1 . $tDES2 . $tDES3;
my $CAIC = "123456";

my $des = new Crypt::TripleDES; 
my $namespace = 'https://wstest.solspark.com/';
# The URI/proxy may be different.  
$lite = SOAP::Lite
  -> uri($namespace)
  -> on_action( sub { join '/', 'https://wstest.solspark.com', $_[1] } )
  -> proxy('https://USERNAME:PASSWORD@wstest.solspark.com');

my $s = "";
$s = $des->encrypt3($s, $passcode);

print "Encoded value: $s \n";
print $lite->CheckStatus($s, $CAIC)->result . "\n";

##

##

# https://USER:PASS@wstest.solspark.com/SSVPWebService.WSDL