Click here for the Java Source code - RSAEncryptFile.java
h DftActgrp(*NO) ActGrp(*Caller) D Exc_Cmd PR extpgm('QCMDEXC') D command 200A const D length 15P 5 const * Prototype for Java String Object d crtString PR o EXTPROC(*JAVA: d 'java.lang.String': d *CONSTRUCTOR) d RPGBytes 100A Const Varying * Prototype for Java String's getBytes method d cvtToBytes PR 2000A EXTPROC(*JAVA: d 'java.lang.String': d 'getBytes') d Varying * RSAEncryptFile Object d EncryptFile_ s o Class(*JAVA: d 'com.as400samplecode.RSA- d EncryptFile') * Prototype for RSAEncryptFile Object d RSAEncryptFile PR o EXTPROC(*JAVA: d 'com.as400samplecode.RSA- d EncryptFile': d *CONSTRUCTOR) * Prototype for RSAEncryptFile encrypt Method d encrypt PR EXTPROC(*JAVA: d 'com.as400samplecode.RSA- d EncryptFile': d 'encrypt') d String o Class (*JAVA:'java.lang.String') d Const d String o Class (*JAVA:'java.lang.String') d Const d String o Class (*JAVA:'java.lang.String') d Const d pubKeyFile s o Class(*JAVA:'java.lang.String') d inputFile s o Class(*JAVA:'java.lang.String') d encryptedFile s o Class(*JAVA:'java.lang.String') d $pubKeyFile s 100a d $inputFile s 100a d $encryptedFile s 100a * *----- Main Routine * /free Exc_Cmd('CALL PGM(BCJAVAENV)': 200); pubKeyFile = crtString(%trim($pubKeyFile)); inputFile = crtString(%trim($inputFile)); encryptedFile = crtString(%trim($encryptedFile)); EncryptFile_ = RSAEncryptFile(); encrypt(EncryptFile_:pubKeyFile:inputFile:encryptedFile); *inlr = *on; return; /end-free * *----- Initial Routine * c *inzsr begsr c eval $pubKeyFile = 'data/publicKey.txt' c eval $inputFile = 'data/inputData.xml' c eval $encryptedFile = 'data/encryptedData.txt' c endsr
Setup my Java home and classpath: PGM(BCJAVAENV)
PGM RMVENVVAR ENVVAR(JAVA_HOME) MONMSG MSGID(CPF0000) RMVENVVAR ENVVAR(CLASSPATH) MONMSG MSGID(CPF0000) CD DIR('/directory/EncryptionDecryption') ADDENVVAR ENVVAR(JAVA_HOME) + VALUE('/qibm/ProdData/Java400/jdk15') ADDENVVAR ENVVAR(CLASSPATH) + VALUE('.:/QIBM/ProdData/HTTP/Public/jt400/l+ ib/jt400.zip:/QIBM/ProdData/HTTP/Public/jt4+ 00/utilities:/directory/EncryptionDecryptio+ n:/das/EncryptionDecryption/lib/bcprov-jdk1+ 5-146.jar:/directory/EncryptionDecryption/l+ ib/log4j-1.2.16.jar') ENDPGM
No comments:
Post a Comment
NO JUNK, Please try to keep this clean and related to the topic at hand.
Comments are for users to ask questions, collaborate or improve on existing.