Aqui tienes un ejemplo de algoritmo, pero es de V5R3, no sé si funcionará en V4R5
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.jsp?topic=/apis/qc3WriteCusILERPG.htm Para la versión que utilizas, lo digo por la posibilidades de la V4R5, para almacenar contraseña creo que hay opciones mejores que almacenarlos directamente en la base de datos. Por ejemplo, puedes utilizar las APIs de seguridad QsyAddValidationLstEntry (y similares) para manejar Datos de Seguridad Si quieres acceder desde SQL a los datos almacenados en listas de validación, puedes crear una o varias udf para hacer "transparente" dicho acceso. http://publib.boulder.ibm.com/infocenter/iseries/v5r3/topic/apis/sec6.pdf http://www.ignite400.org/download/vldlhlp.txt Salu2 El 9/05/06, Ing. Alfonso Quintanar Monroy<[EMAIL PROTECTED]> escribió:
Aquí donde trabajo solo tenemos las versión V4R5M0, y no puedo utilizar el código que me enviaron, de antemano muchas gracias, porque el tema les sirvió a más de uno. Ya que no puedo encriptar los datos, alguien me puede compartir algún algoritmo para simular la encriptación, yo recibo una cadena de 1 a 6 números (Contraseña) y deseo guardarlos en una tabla con valor (es) diferentes para que no conozcan cual es la contraseña. Desde ya, mil gracias. Alfonso Quintanar M. ________________________________ De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Juan Carlos Paredes Enviado el: Lunes, 08 de Mayo de 2006 02:23 a.m. Para: [email protected]; Ana Noguero Asunto: RE: Encriptar Datos en DB2 Como bien os decía Sergio, lo tenéis disponible en el Infocenter de IBM. El link es: <http://publib.boulder.ibm.com/infocenter/iseries/v5r3/topic/db2/rbafzmst.pdf> Con respecto al código es algo tan sencillo como esto, para añadir registros: d Main pr extpgm('PRUENC') d 50a d 10a d Main pi d Apellidos 50a d Password 10a c/exec sql c+ set encryption password = :Password c/end-exec c/exec sql c+ insert into encriptado c+ values(encrypt_rc2(:Apellidos) c/end-exec /free *inlr=*on; return; /end-free La definición de la tabla sería esta: CREATE TABLE ENCRIPTADO ( APELLIDOS CHARACTER (100) FOR BIT DATA NOT NULL DEFAULT) A la hora de recuperar los registros, sería algo así: d Main pr extpgm('PRUENC') d 50a d 10a d Main pi d Apellidos 50a d Password 10a c/exec sql c+ set encryption password = :Password c/end-exec c/exec sql c+ select decrypt_char(apellidos) into :Apellidos from encriptado c/end-exec /free *inlr=*on; return; /end-free No os olvidéis en la definición del campo del valor FOR BIT DATA, puesto que si no lo hacéis así, no os permitirá recuperar los datos. Espero que esto haya servido de ayuda. Un saludo Juan Carlos.
-- Mi blog sobre as400 http://www.ajut400.com __________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
