encriptar/desencriptar
Publicado por eloy (1 intervención) el 04/11/2010 23:06:29
Tengo este CL par el cual quiero obtener la solucion al problema planteado en el mismo:
PGM
/* dado un campo en claro, se debe encriptar y el resultado encriptado de debe */
/* desencriptar para obtener el dato inicial */
DCL VAR(&DATA) TYPE(*CHAR) LEN(16)
DCL VAR(&DATA1) TYPE(*CHAR) LEN(16)
/* DATA EN CLARO QUE SE ENCRIPTARA INICIALMENTE */
CHGVAR VAR(&DATA) VALUE('1234567890ABCDEF')
CPHDTA DATA(&DATA) DTALEN(16) CPHK('12345678') +
RTNVAR(&DATA1) OPTION(*SCPH)
/* VALOR RESULTANTE EN &DATA1=559CBEE4561A0D25 */
/* ESTE RESULTADO OBTENIDO EN &DATA1 DEBE SER DESENCRIPTADO */
/* PARA OBTENER NUEVAMENTE EL VALOR INCIAL &DATA */
/* OJO EL CAMPO SE ENCRIPTA CON ESAS OPCIONES. */
/* no he podido obtener la data incicial por mas que he probado */
ENDPGM
PGM
/* dado un campo en claro, se debe encriptar y el resultado encriptado de debe */
/* desencriptar para obtener el dato inicial */
DCL VAR(&DATA) TYPE(*CHAR) LEN(16)
DCL VAR(&DATA1) TYPE(*CHAR) LEN(16)
/* DATA EN CLARO QUE SE ENCRIPTARA INICIALMENTE */
CHGVAR VAR(&DATA) VALUE('1234567890ABCDEF')
CPHDTA DATA(&DATA) DTALEN(16) CPHK('12345678') +
RTNVAR(&DATA1) OPTION(*SCPH)
/* VALOR RESULTANTE EN &DATA1=559CBEE4561A0D25 */
/* ESTE RESULTADO OBTENIDO EN &DATA1 DEBE SER DESENCRIPTADO */
/* PARA OBTENER NUEVAMENTE EL VALOR INCIAL &DATA */
/* OJO EL CAMPO SE ENCRIPTA CON ESAS OPCIONES. */
/* no he podido obtener la data incicial por mas que he probado */
ENDPGM
Valora esta pregunta
0