ASCII字符串==>16進(jìn)制串create or replace function AscToHex(sIn IN varchar2)RETURN varchar2ISsTmp varchar2(4000);i integer;BEGINi:=1;stmp:='';for i in 1..length(sIn) loop sTmp:=sTmptrim(to_char(ascii(substr(sIn,i,1)),'XXXX'));end loop;return sTmp;END;/16進(jìn)制串==>ASCII字符串要區(qū)分字符集，以中文字符為例，對(duì)于數(shù)據(jù)庫(kù)字符集是中文，要保證能夠正確轉(zhuǎn)回來(lái)，要有所不同。數(shù)據(jù)庫(kù)字符集是中文create or replace function HexToAsc(sIn IN varchar2)RETURN varchar2ISsTmp varchar2(4000);i integer;x integer;BEGINi:=1;stmp:='';loop exit when i>length(sIn); x:=to_number(substr(sIn,i,2),'XXXX'); if x>128 then sTmp:=sTmpchr(to_number(substr(sIn,i,4),'XXXX')); i:=i+4; else sTmp:=sTmpchr(to_number(substr(sIn,i,2),'XXXX')); i:=i+2; end if; end loop;return sTmp;END;/數(shù)據(jù)庫(kù)字符集是英文create or replace function HexToAsc(sIn IN varchar2)RETURN varchar2ISsTmp varchar2(4000);i integer;BEGINi:=1;stmp:='';loop exit when i>length(sIn); sTmp:=sTmpchr(to_number(substr(sIn,i,2),'XXXX')); i:=i+2;end loop;return sTmp;END;/測(cè)試，如下：SQL>select hextoasc(asctohex('你好ABC么')) from dual;HEXTOASC(ASCTOHEX('你好ABC么'))------------------------------------------你好ABC么