CREATE OR REPLACE function FUN_ENCRYPT(p_text varchar2) return varchar2 is
v_text varchar2(4000);
v_key varchar2(4000);
v_enc varchar2(4000);
raw_input RAW(20000) ;
key_input RAW(1000) ;
decrypted_raw RAW(20000);
v_ErrorText varchar2(500);
begin
if(p_text is null or p_text = '' )
then return '';
end if;
v_key := 'jzhhfzq123456789';
dbms_output.put_line(p_text);
v_text := rpad( p_text, (trunc(lengthb(p_text)/8)+1)*8, chr(0));
dbms_output.put_line(v_text);
raw_input := UTL_I18N.STRING_TO_RAW(v_text,'ZHS16GBK');
key_input := UTL_I18N.STRING_TO_RAW(v_key,'ZHS16GBK');
dbms_obfuscation_toolkit.DESEncrypt(input => raw_input,key => key_input,encrypted_data =>decrypted_raw);
v_enc := rawtohex(decrypted_raw);
dbms_output.put_line(v_enc);
return v_enc;
exception
when others then
v_ErrorText := 'dserror:'||SUBSTR(SQLERRM, 1, 200);
return v_ErrorText;
end;
/
CREATE OR REPLACE function FUN_DECRYPT(p_text varchar2) return varchar2 is
v_text varchar2(4000);
v_key varchar2(4000);
p_text_raw RAW(20000);
p_key_raw RAW(20000);
v_text_raw RAW(20000);
v_ErrorText varchar2(500);
begin
if(p_text is null or p_text = '' )
then return '';
end if;
v_key := 'jzhhfzq123456789';
p_text_raw := HEXTORAW(p_text);
p_key_raw := UTL_I18N.STRING_TO_RAW(v_key, 'ZHS16GBK');
dbms_obfuscation_toolkit.DESDECRYPT(input => p_text_raw, key =>p_key_raw, decrypted_data=> v_text_raw);
v_text := UTL_I18N.RAW_TO_CHAR(v_text_raw, 'ZHS16GBK');
dbms_output.put_line(v_text);
return rtrim(v_text,chr(0));
exception
when others then
v_ErrorText := 'dserror:'||SUBSTR(SQLERRM, 1, 200);
return v_ErrorText;
end;
select FUN_ENCRYPT('卡卡罗特') from dual;
select FUN_DECRYPT('9644DF3D1692E58EB8B66E1A0B779AD9') from dual;