RE: Encriptar un campo

Mon, 31 Mar 2003 14:00:15 -0800

Ahi te va un ejemplo, espero te sirva
 
C                     MOVEL'PRUEBA'  XENCR  10      
C*      Para guardar                                             
C                     CALL 'QDCXLATE'               
C                     PARM 10        TLEN    50     
C                     PARM           XENCR          
C                     PARM 'QRMASCII'TTBL   10      
C                     PARM 'QSYS '   TLIB   10      
C*                                                  
C*      Para recuperar                  
C*                                                  
C                     CALL 'QDCXLATE'               
C                     PARM 10        TLEN    50     
C                     PARM           XENCR          
C                     PARM 'QRMEBCDI'TTBL   10      
C                     PARM 'QSYS '   TLIB   10      
C*                                                  
C                     MOVE *ON       *INLR          
 

Gerardo Santillana
IT Department
Delphi Mechatronic Systems
US Ph: (956) 554.5832
MX Ph: (88) 12.81.63/64/65 Ext. 5832
e-mail [EMAIL PROTECTED] 

-----Original Message-----
From: Francisco P�rez Cervantes [mailto:[EMAIL PROTECTED]
Sent: Monday, March 31, 2003 2:01 PM
To: [EMAIL PROTECTED]
Subject: Encriptar un campo

Hola, en nuestra empresa tenemos necesidad de encriptar el contenido de un par de campos en un fichero, estos campos son claves de acceso para aplicaciones especificas, estoy seguro que alguno de ustedes ha escrito alguna rutina de encriptaci�n en RPG (cualquier versi�n).
 
Agradezco de antemano su ayuda!!
 
Francisco P�rez Cervantes

Responder a