--- Recibido de BBVINFOR.C014439A/A928322 SISTEMAS DEPART* 24-11-03 09.54
-> [EMAIL PROTECTED]
Buenos d�as:
Estoy trabajando sobre temas de tener unificados las passwords de todos
los equipos AS400 pertenecientes a la empresa para la que trabajo (equipos
con distintas versiones). No se si lo conoceis pero para encriptar la pwd
se utiliza el api QSYRUPWD. Este API me funciona muy bien en versi�n V4R2
(con la informaci�n que yo tengo). Para el desencriptado de las mismas se
utilizada el api QSYSUPWD. Yo tengo dos pgms realizados para el caso y me
funcionan perfectamente en el caso de version V4R2 (uno de ellos encripta
la pwd y el otro lo desencripta). Estos mismos programas no me funcionan en
equipos iseries. �Me podeis ayudar? Os muestro los programas que tengo para
que si a alguno se os ocurre algo hagais el favor de comentarmelo.
Gracias de antemano.
Estructura del fichero:
Nombre: PWDDEF00
A CCSID(65535)
A UNIQUE
A R PASS
A USUA 10
A PWD 10
A K USUA
Pgm de encriptado de passwords
H 1
*---------------------------------------------------------------
/*STD * RPG
F*---------------------------------------------------------------
FPWDDEF00UF E K DISK A
I 'QSYRUPWD' C QSYDHB
IQSYDJ DS
I B 1 40QSYDJB
I B 5 80QSYDJC
I 9 18 QSYDJD
I 19 269 QSYDJF
*
I DS
I B 1 40LEN
I 5 12 FRMT
I 13 22 USER
I 23 72 ERRFL
*
C *ENTRY PLIST
C PARM USUA
C MOVELUSUA USER
C Z-ADD250 LEN
C MOVEL'UPWD0100'FRMT
C MOVEL*BLANKS ERRFL
*
C CALL 'QSYRUPWD'
C PARM QSYDJ
C PARM LEN
C PARM FRMT
C PARM USER
C PARM ERRFL
*
C MOVELUSER USUA
C USUA CHAINPASS 50
C MOVELQSYDJF PWD P
C *IN50 IFEQ '1'
C WRITEPASS
C ELSE
C UPDATPASS
C ENDIF
C SETON LR
Pgm de desencriptado:
/*STD * RPG
F*---------------------------------------------------------------
FPWDDEF00IF E K DISK
I 'QSYSUPWD' C QSYDKB
IQSYDL DS
I B 1 40QSYDLB
I B 5 80QSYDLC
I 9 18 QSYDLD
I 19 269 QSYDLF
*
I DS
I 1 50 ERRCD
I 51 58 FRMT
*
C *ENTRY PLIST .
C PARM USER 10
C USER CHAINPASS 50
C *IN50 IFEQ '0'
C MOVEL'UPWD0100'FRMT
C MOVELUSUA QSYDLD
C MOVELPWD QSYDLF P
C CALL 'QSYSUPWD'
C PARM QSYDL
C PARM FRMT
C PARM ERRCD
C ENDIF
C SETON LR
*
************* Fin de datos ***********************************
************************************ DISCLAIMER
*****************************************
This message is intended exclusively for the named person. It may contain
confidential, propietary or legally privileged information. No confidentiality or
privilege is waived or lost by any mistransmission. If you receive this message in
error, please immediately delete it and all copies of it from your system, destroy any
hard copies of it and notify the sender. Your must not, directly or indirectly, use,
disclose, distribute, print, or copy any part of this message if you are not the
intended recipient. Any views expressed in this message are those of the individual
sender, except where the message states otherwise and the sender is authorised
to state them to be the views of GrupoBBVA. Please note that internet e-mail neither
guarantees the confidentiality nor the proper receipt of the message sent. If the
addressee of this message does not consent to the use of internet e-mail, please
communicate it to us immediately.
****************************** AVISO LEGAL
***********************************************
Este mensaje es solamente para la persona a la que va dirigido. Puede contener
informaci�n confidencial o legalmente protegida. No hay renuncia a la
confidencialidad o privilegio por cualquier transmisi�n mala/err�nea. Si usted
ha recibido este mensaje por error, le rogamos que borre de su sistema
inmediatamente el mensaje asi como todas sus copias, destruya todas las copias
del mismo de su disco duro y notifique al remitente. No debe, directa o
indirectamente, usar, revelar, distribuir, imprimir o copiar ninguna de las partes de
este mensaje si no es usted el destinatario. Cualquier opini�n expresada en este
mensaje proviene del remitente, excepto cuando el mensaje establezca lo contrario
y el remitente est� autorizado para establecer que dichas opiniones provienen de
GrupoBBVA. N�tese que el correo electr�nico via Internet no permite asegurar ni la
confidencialidad de los mensajes que se transmiten ni la correcta recepci�n de los
mismos. En el caso de que el destinatario de este mensaje no consintiera la
utilizaci�n del correo electr�nico via Internet, rogamos lo ponga en nuestro
conocimiento de manera inmediata.
***********************************************************************************************
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
