Perl

IKOF Generation Code for Montenegro Fiscalization Service

See more _Miscellaneous_ Examples

Demonstrates computing the IKOF MD5 summary value as described in section 4.3 of this document: https://poreskauprava.gov.me/ResourceManager/FileDownload.aspx?rId=416042&rType=2 Perl

use chilkat();

$success = 0;

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

$concatenatedParams = "12345678|2019-06-12T17:05:43+02:00|9952|bb123bb1231|cc123cc1231|ss123ss123|199.01";

# Get the private key from a pfx file.
$pfx = chilkat::CkPfx->new();
$success = $pfx->LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123");
if ($success == 0) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

$privKey = chilkat::CkPrivateKey->new();
$success = $pfx->PrivateKeyAt(0,$privKey);
if ($success == 0) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

# Create IIC signature according to RSASSA-PKCS-v1_5 using SHA256
$rsa = chilkat::CkRsa->new();
$success = $rsa->UsePrivateKey($privKey);
if ($success == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

# PKCS-v1_5 is used by default.
$rsa->put_EncodingMode("hex");
$rsa->put_Charset("utf-8");
$hexSig = $rsa->signStringENC($concatenatedParams,"sha256");

print "Signature value result is: " . $hexSig . "\r\n";

# Compute the MD5 hash of the bytes.
$crypt = chilkat::CkCrypt2->new();
$crypt->put_EncodingMode("hex");
$crypt->put_HashAlgorithm("md5");
$bd = chilkat::CkBinData->new();
$bd->AppendEncoded($hexSig,"hex");
$md5_summary = $crypt->hashBdENC($bd);

print "MD5 summary value is: " . $md5_summary . "\r\n";