PL/SQL: Pasar una cadena a MD5

create or replace function cadena_a_md5(cadena in varchar2) 

return varchar2 
is
 cadena_hex varchar2(32);
 ofuscacion varchar2(16);
begin
 ofuscacion := 

dbms_obfuscation_toolkit.md5(input_string => cadena);
 select lower(rawtohex(ofuscacion)) into cadena_hex 

from dual;
 return cadena_hex;
end;