Business::GestPayCryptHS 0.41

SYNOPSIS

#
# Request
#

use Business::GestPayCryptHS;
my $obj = new Business::GestPayCryptHS;

$obj->SetShopLogin($ShopLogin);
$obj->SetCurrency($Currency);
$obj->SetAmount($Amount);
$obj->SetShopTransactionID($ShopTransationID);
$obj->SetLanguage($Language);

$obj->Encrypt();

if ( $obj->GetErrorCode() ) {
print 'Error: ', $obj->GetErrorCode(), ' ',
$objCrypt->GetErrorDescription();
} else {
my $a = $obj->GetShopLogin();
my $b = $obj->GetEncryptedString();
print qq~




~;
}

#
# Response
#

$obj->SetShopLogin($ShopLogin);
$obj->SetEncryptedString($b);

$obj->Decrypt();

if ( $objCrypt->GetErrorCode() ) {
print 'Error: ', $obj->GetErrorCode() , ' ',
$objCrypt->GetErrorDescription();
} else {
print 'ShopLogin : ', $obj->GetShopLogin(), "n";
print 'Currency :', $obj->GetCurrency(), "n";
print 'Amount : ', $obj->GetAmount(), "n";
print 'ShopTransactionID : ', $obj->GetShopTransactionID(), "n";
print 'BuyerName : ', $obj->GetBuyerName(), "n";
print 'BuyerEmail : ', $obj->GetBuyerEmail(), "n";
print 'TransactionResult : ', $obj->GetTransactionResult(), "n";
print 'AuthorizationCode : ', $obj->GetAuthorizationCode(), "n";
print 'BankTransactionID : ', $obj->GetBankTransactionID(), "n";
print 'ErrorCode : ', $obj->GetErrorCode(), "n";
print 'ErrorDescription : ', $obj->GetErrorDescription(), "n";
print 'AlertCode : ', $obj->GetAlertCode(), "n";
print 'AlertDescription : ', $obj->GetAlertDescription(), "n";
print 'CustomInfo : ', $obj->GetCustomInfo(), "n";
}

Product's homepage

Requirements:

· Perl