第一部分

--36转10进制

create or replace function f_36to10 (str varchar) return int  is

returnValue int;
  str36     varchar(36);
  subWork   varchar(1);
  workIndex   int;
  len     int;
  i       int;

begin

returnValue:= 0;
  str36 := '123456789ABCDEFGHIJKLMNOPQRSTUVWSYZ';
  i := 1;
  len := length(trim(str));
  
  while i <= len loop
    subWork := SUBSTR(str, i, 1);
    workIndex := instr( str36,subWork,1,1);
    returnValue := returnValue + (workIndex * power(36, len-i));
    i := i + 1;
  end loop;

return  returnValue;
  
end f_36to10;

第二部分

--10转36进制

create or replace function f_10to36(i int) return varchar is

ret varchar2(8);
  var_m int;
  var_s int;
  
begin

ret := '';
  var_s := i;
  while var_s >= 36 loop
    var_m := mod(var_s, 36);
    if var_m < 10 then
     ret := to_char(var_m) || ret;
    else
    ret := chr(var_m - 10 + 97) || ret;
      end if;
    var_s := trunc(var_s / 36);
  end loop;
  if var_s > 0 or (var_s = 0 and ret = '') then
    if var_s < 10 then
     ret := to_char(var_s) || ret;
    else
     ret := chr(var_s - 10 + 97) || ret;
    end if;
  end if;
  
  return UPPER(ret);--lpad(ret, 8, '0');
  
end f_10to36;

另外一个方法，链接：http://www.cnblogs.com/jak-black/archive/2010/09/25/1834617.html