oracle实现PDU编码

oracle实现PDU编码
54powerman
一 UCS2编码函数
create or replace function UCS2Encode(orgString varchar2) return varchar2 is
  Result varchar2(255);
  dst varchar2(60);
  tmp varchar2(2);
  pos integer;
begin
  dst:='';
  pos:=length(orgString);
  while pos>0
  loop
    tmp:=substr(orgString,pos,1);
    Result:=trim(upper(to_char(ascii(tmp),'0xxx'))) || Result;
    pos:=pos-1;
  end loop;
  return(Result);
end UCS2Encode;

二 UCS2解码函数

create or replace function UCS2Decode(pduString varchar2)
  return varchar2 is
  ret   varchar2(400);
  v_msg  varchar2(400);
  v_pos number;
  v_tmp varchar2(5);
begin
  if encode < 0 or encode > 2 then
    return '';
  end if;
  ret := '';
  v_msg:=pduString;
  --如果不含有UDH头，不需要下面的三行
  --v_pos   := to_number(substr(pduString,1,2),'0x');
  --v_pos:=v_pos*2+3;
  --v_msg:=substr(pduString,v_pos,length(pduString)-v_pos+1);
  v_pos:=1;
  while v_pos < length(v_msg) loop
    v_tmp := substr(v_msg, v_pos, 4);
    if encode = 1 then
      ret := ret || trim(to_char(ascii(v_tmp), '0x'));
    elsif encode = 2 then
      v_tmp:='/'||v_tmp;
      ret := ret || unistr(v_tmp);
    end if;
    v_pos := v_pos + 4;
  end loop;
  ret:=upper(ret);
 
  return(ret);
end UCS2Decode;

 未完，更新中...