Metodo de Encriptacion para Base de Datos en Oracle (Parte 2)

Metodo de Encriptacion para Base de Datos en Oracle (Parte 2)

-------------------------------------------------------------------------------------------------------------
create or replace
PROCEDURE encriptar(id in NUMBER, nombre in VARCHAR) AS
ClaveEncriptada VARCHAR(50);
Clave VARCHAR(50);
Longitud NUMBER;
BEGIN
Longitud := LENGTH(nombre);
FOR I IN 1..Longitud LOOP
ClaveEncriptada:=CONCAT(ClaveEncriptada,ASCII(SUBSTR(UPPER(nombre),I,1)));
END LOOP;
INSERT into prueba values(id,ClaveEncriptada);
END encriptar;
-------------------------------------------------------------------------------------------------------------
En este codigo se logra encriptar un campo de una tabla de pruebas creada con solo dos atributos, el id y un nombre,el metodo de encriptacion utiliza en codigo ascii para encriptar el parametro nombre luego de convertir todos sus capos a mayuscula.