create or replace function
encrypt_des(p_text varchar2, p_key varchar2) return varchar2 is
v_text varchar2(4000);
v_enc varchar2(4000);
raw_input RAW(128) ;
key_input RAW(128) ;
decrypted_raw RAW(2048);
begin
v_text := rpad( p_text, (trunc(length(p_text)/8)+1)*8, chr(0));
raw_input := UTL_RAW.CAST_TO_RAW(v_text);
key_input := UTL_RAW.CAST_TO_RAW(p_key);
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;
end;
create or replace function decrypt_des(p_text varchar2,p_key varchar2) return varchar2 is
v_text varchar2(2000);
begin
dbms_obfuscation_toolkit.DESDECRYPT(input_string => UTL_RAW.CAST_TO_varchar2(p_text),key_string =>p_key, decrypted_string=> v_text);
v_text := rtrim(v_text,chr(0));
dbms_output.put_line(v_text);
return v_text;
end;
–drop table emp_test
create table emp_test(
ID varchar2(80) primary key,
NAME varchar2(40) unique
);
insert into emp_test values(‘adsawe231’,‘afeng’);
select * from emp_test;
–加密
create or replace procedure
encrypt_des_01(p_text in varchar2, p_key in varchar2,names in varchar2) as
v_text varchar2(4000);
v_enc varchar2(4000);
raw_input RAW(128) ;
key_input RAW(128) ;
decrypted_raw RAW(2048);
begin
v_text := rpad( p_text, (trunc(length(p_text)/8)+1)*8, chr(0));
raw_input := UTL_RAW.CAST_TO_RAW(v_text);
key_input := UTL_RAW.CAST_TO_RAW(p_key);
dbms_obfuscation_toolkit.DESEncrypt(input => raw_input,key => key_input,encrypted_data =>decrypted_raw);
v_enc := rawtohex(decrypted_raw);
insert into emp_test values(v_enc,names);
end;
begin
–id,key,name
encrypt_des_01(‘121wq’,‘rwwwwwww’,‘eqr123wq’);
end;
–解密
create or replace procedure decrypt_des_01(p_name in varchar2, p_key in varchar2,v_text out varchar2) as
p_id VARCHAR2(2048);
begin
select id into p_id from emp_test where name = p_name;
dbms_obfuscation_toolkit.DESDECRYPT(input_string => UTL_RAW.CAST_TO_varchar2(p_id),key_string =>p_key, decrypted_string=> v_text);
v_text := rtrim(v_text,chr(0));
dbms_output.put_line(v_text);
end;
declare
text varchar2(90);
begin
–name,key,return
decrypt_des_01(‘eqr123wq’,‘rwwwwwww’,text);
end;
select * from emp_test
–select encrypt_des(‘fe’,‘rwesd%te’) from dual;
–select decrypt_des(‘2D396BBDAF59432E’,‘rwesd%te’) from dual;