AS/400 - encriptar/desencriptar

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder