Necesito desencriptarlos Kuk, es una tabla que guarda datos "sensibles", que han de ser encriptados, para más tarde, desencriptarlos y mostrarlos en un listview. Que siempre puede llegar un "listillo", abrir la tabla con un gestor de SQL, como el XAMP/WAMP, y ver los datos, o lo que es peor modifcarlos
Un saludo.-
Añadido despues de 13 minutos
Mira, te pongo las dos maneras que he usado:
En ésta me devuelve un valor NULL en LPPRO1...LPPRO5
Código COBOL:
EXEC SQL
DECLARE cursor_tabla CURSOR FOR
SELECT LPNUM,
AES_DECRYPT(LPPRO1,'FaCtUrAcIóN'),
AES_DECRYPT(LPPRO2,'FaCtUrAcIóN'),
AES_DECRYPT(LPPRO3,'FaCtUrAcIóN'),
AES_DECRYPT(LPPRO4,'FaCtUrAcIóN'),
AES_DECRYPT(LPPRO5,'FaCtUrAcIóN'),
AES_DECRYPT(LPPRO6,'FaCtUrAcIóN')
FROM LPRO
END-EXEC.
.
.
.
EXEC SQL
FETCH cursor_tabla
INTO :LPNUM,
:LPPRO1,
:LPPRO2,
:LPPRO3,
:LPPRO4,
:LPPRO5,
:LPPRO6
Y ésta otra, me dice que faltan las variables depués del INTO
Código COBOL:
EXEC SQL
DECLARE cursor_tabla CURSOR FOR
SELECT LPNUM,
LPPRO1,
LPPRO2,
LPPRO3,
LPPRO4,
LPPRO5,
LPPRO6
FROM LPRO
END-EXEC.
.
.
.
EXEC SQL
FETCH cursor_tabla
INTO :LPNUM
AES_DECRYPT(:LPPRO1,'FaCtUrAcIóN'),
AES_DECRYPT(:LPPRO2,'FaCtUrAcIóN'),
AES_DECRYPT(:LPPRO3,'FaCtUrAcIóN'),
AES_DECRYPT(:LPPRO4,'FaCtUrAcIóN'),
AES_DECRYPT(:LPPRO5,'FaCtUrAcIóN'),
AES_DECRYPT(:LPPRO6,'FaCtUrAcIóN')
END-EXEC.
Un saludo.-