，求一存储过程，substr,instr 有关字段解密

求助，求一存储过程，substr,instr 有关字段解密，
oracle 
有表tb1存储着一些姓名，结构如下
id      xm
1       ^1V6FV10V2CV6GV1KVKJV6GV1KV1C
2       ^1V6GV1KVK2V6FV26VJKV6GV1KV1C
有表tb2（密码字典）
存储着汉字与其对应加密码结构如下
key     pas
张       FV10V2C
三       GV1KVKJ
丰       GV1KV1C
上       GV1KVK2
官       FV26VJK



tb1.xm字段，是按如下规则填充的
^1V6+第一个字的加密码+V6+第二个字的加密码+V6+第三个字的加密码（如果有第个字，类推）
如张三丰的加密数据为：^1V6FV10V2CV6GV1KVKJV6GV1KV1C

求一解密储存过程
更新tb1.xm字段，显示汉字明文
如‘^1V6FV10V2CV6GV1KVKJV6GV1KV1C’更新为‘张三丰’
‘^1V6GV1KVK2V6FV26VJKV6GV1KV1C’ 更新为’上官丰’
------解决方案--------------------
刚刚给你回的

解密：

declare
  v1 varchar2(10);
  v2 varchar2(10);
begin
  for a in (select t.id, regexp_replace(t.xm, '\^1V6
------解决方案--------------------
V6', ',') xm from tb1 t) loop
  
    for b in (select regexp_substr(a.xm, '[^,]+', 1, level) xm
                from dual
              connect by level <= regexp_count(a.xm, ',')) loop
      --dbms_output.put_line(b.xm);
      select t.key into v1 from tb2 t where t.pas = b.xm;
      v2 := v2 
------解决方案--------------------
 v1;
      --dbms_output.put_line(v2);
    end loop;
    update tb1 set tb1.xm = v2 where tb1.id = a.id;
    v2 := '';
  end loop;
  commit;
end;