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.