Desencriptacion(Procedimiento de Almacenado)

Desencriptacion(Procedimiento de Almacenado)

A continuacion se muestra la desencriptacion del metodo que previamente mostramos de ejemplo.


create or replace
PROCEDURE desencriptar(cursor out sys_refcursor,idd NUMBER) AS
clave VARCHAR(50);
ClaveEncriptada VARCHAR(50);
Longitud NUMBER;
aux NUMBER;
BEGIN
SELECT nombre INTO clave FROM prueba where id=idd;
Longitud := LENGTH(clave);
aux:=0;
FOR I IN 1..Longitud LOOP
ClaveEncriptada:=CONCAT(ClaveEncriptada,CHR(SUBSTR(UPPER(clave),I+aux,2)));
aux:=aux+1;
END LOOP;
open cursor for select ClaveEncriptada as Usuario from dual;
END desencriptar;