RE: Encriptar un campo

Tue, 01 Apr 2003 12:50:57 -0800

Tienes razon despues que cambiamos a la version V5R1 ya no funciono pero puedes utilizar tambien estas otras dos tablas  QASCII  y QEBCDIC, estas tablas yo las encontre en la QSYS :
WRKOBJ OBJ(QSYS/*ALL)  OBJTYPE(*TBL)
 
 
C                     MOVEL'PRUEBA'  XENCR  10      
C*      Para guardar                                             
C                     CALL 'QDCXLATE'               
C                     PARM 10        TLEN    50     
C                     PARM           XENCR          
C                     PARM 'QASCII'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 'QEBCDIC'TTBL   10      
C                     PARM 'QSYS '   TLIB   10      
C*                                                  
C                     MOVE *ON       *INLR          
 
Saludos

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: Tuesday, April 01, 2003 12:46 PM
To: [EMAIL PROTECTED]
Subject: Re: Encriptar un campo

Estimados Gerardo y Xavier, GRACIAS por su apoyo, la rutina de BITS ya la he probado y da el resultado esperado, la rutina de Gerardo me dice que no existe la tabla QRMASCII, �como la cargo o donde la obtengo?
 
Adem�s ahora que la gente vio esta situaci�n de "encriptado" quieren saber si hay alg�n producto que permita tener la base de datos TOTALMENTE ENCRIPTADA dentro del AS/400 ???
 
En fin, nuevamente gracias y espero sus comentarios.
 
SALUDOS!!!
----- Original Message -----
Sent: Monday, March 31, 2003 4:01 PM
Subject: RE: Encriptar un campo

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