#!/usr/bin/perl
#use strict;
use warnings;
use Inline::Java;
use Data::Dumper;
use lib '/home/macpaul/perl';

use POST_jCRYPT;

my $pwd ="12345678";
my $usercode ="example1";

my $javaobj = POST_jCRYPT::MainApplet->new();

# ePin
print $javaobj->Generate3DES(), "\n";

$javaobj->EncryptPINcode($pwd);
my $ePIN = $javaobj->getEncryptPINcode();
print $ePIN, "\n";

$javaobj->RsaEncrypt3DES();
my $eKey = $javaobj->getRsaEncrypt3DES();
print $eKey, "\n";