**free
ctl-opt BNDDIR('QC2LE')
        DFTACTGRP(*NO)
        OPTION(*NODEBUGIO:*SRCSTMT);
 
Dcl-PR EncryptData  ExtProc('Qc3EncryptData');
  pdatatocrypt    Char(256)  const options(*varsize);
  pDataLen        Int(10)    const;
  pdataFormat     Char(8)    const;
  palgoDesc       likeds(myalgo);
  palgoDescFmt    Char(8)    const;
  pkeyDesc        Char(32767) const options(*varsize);
  pkeyDescFmt     Char(8)    const;
  pcryptoProv     Char(1)    const;
  pcryptoDev      Char(10)   const;
  pdataEncrypt    Char(256)  const options(*varsize);
  pLenFournie     Int(10)    const;
  pLenBEsoin      Int(10)    const;
  pErrorCode      Char(32767) options(*varsize);
End-PR;
Dcl-PR DecryptData  ExtProc('Qc3DecryptData');
  pdataEncrypt    Char(256)  const options(*varsize);
  pDataLen        Int(10)    const;
  palgoDesc       likeds(myalgo);
  palgoDescFmt    Char(8)    const;
  pkeyDesc        Char(32767) const options(*varsize);
  pkeyDescFmt     Char(8)    const;
  pcryptoProv     Char(1)    const;
  pcryptoDev      Char(10)   const;
  pdataretour     Char(256)  const options(*varsize);
  pLenFournie     Int(10)    const;
  pLenBEsoin      Int(10)    const;
  pErrorCode      Char(32767) options(*varsize);
End-PR;
Dcl-DS ErrorCode  qualified;
  bytesProv      Int(10)    inz(0);
  bytesAvail     Int(10)    inz(0);
End-DS;
dcl-ds myAlgo qualified; //ALGD0200
  Algorithm int(10) ;
  BlockLen int(10);
  mode char(1);
  padOption char(1);
  padchar char(1);

 reserved char(1);
    Maclen int(10);    
    keySize int(10);    
    inzVector char(32);    
  End-Ds;    
  dcl-ds mykey qualified; // KEYD0400    
    keystore char(10);
    keystoreLib char(10);    
    keyLabel char(32);    
    reserved  char(4);    
  End-Ds;    
  /copy cryptosrc,constantes
dcl-s  CRYPTO_SRV   char(10)   Inz(*BLANKS);      
Dcl-s szData  char(500)  Inz('VOLUBIS, formation sur IBM i') ;       
Dcl-s encData  Like(szData);    
Dcl-s nRtnLen int(10);
Dcl-s nDataLen int(10);
	 
myAlgo.Algorithm = ALGO_TDES; // 21, c'est le type de la clef du KeyStore
myAlgo.blocklen  = 8; //8 pour DES,TDES - 16,24,32 pour AES
myAlgo.mode      = mode_ECB; // 0
myAlgo.PadChar   = X'00';
myAlgo.PadOption = pad_PadChar;  
myAlgo.reserved  = X'00'; 
myAlgo.macLen    = 0;
myAlgo.keySize   = 0;  
myalgo.inzVector = *ALLX'00';  
myKey.keystore = 'KEYSTORE';  
myKey.keystoreLIB = 'CM';  
mykey.keyLabel = 'clef perso';  
mykey.reserved =  *ALLX'00';  
 
nDataLen = %len(%TrimR(szData));  
 
EncryptData(szData: nDataLen :'DATA0100':  
            myAlgo  : 'ALGD0200' :  
            myKey   : 'KEYD0400' :  
            ANY_CRYPTO_SRV       : CRYPTO_SRV : 
            encData : %size(encData) :  
            nRtnLen :
            ErrorCode );