create or replace function encrypt_data(p_text varchar2, p_key varchar2) return varchar2 is
v_text varchar2(4000);
v_enc varchar2(4000);
begin
if p_text is null then
return null;
else
v_text := rpad(p_text, (trunc(lengthb(p_text)/8)+1)*8, chr(0));
sys.dbms_obfuscation_toolkit.desencrypt(
input_string => v_text,
key_string => p_key,
encrypted_string=>v_enc);
return v_enc;
end if;
end;
/
create or replace function decrypt_data(p_text varchar2, p_key varchar2) return varchar2 is
v_text varchar2(4000);
begin
if p_text is null then
return null;
else
sys.dbms_obfuscation_toolkit.desdecrypt(
input_string => p_text,
key_string => p_key,
decrypted_string=> v_text);
return rtrim(v_text,chr(0));
end if;
end;
/
v_text varchar2(4000);
v_enc varchar2(4000);
begin
if p_text is null then
return null;
else
v_text := rpad(p_text, (trunc(lengthb(p_text)/8)+1)*8, chr(0));
sys.dbms_obfuscation_toolkit.desencrypt(
input_string => v_text,
key_string => p_key,
encrypted_string=>v_enc);
return v_enc;
end if;
end;
/
create or replace function decrypt_data(p_text varchar2, p_key varchar2) return varchar2 is
v_text varchar2(4000);
begin
if p_text is null then
return null;
else
sys.dbms_obfuscation_toolkit.desdecrypt(
input_string => p_text,
key_string => p_key,
decrypted_string=> v_text);
return rtrim(v_text,chr(0));
end if;
end;
/
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/756652/viewspace-242397/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/756652/viewspace-242397/