终于改出了能超过4000字的unwrap

〇〇

请从1楼的链接取得java源代码和建对照表pl/sql块

fengjin821

那个问题解决了，最后解码的时候出现这个：

SQL>  exec unwrap('SYS','DL2ML','FUNCTION');

begin unwrap('SYS','DL2ML','FUNCTION'); end;

ORA-01403: no data found
ORA-06512: at "SYS.UNWRAP", line 69
ORA-06512: at line 2



69行：  vLZinflatestr := vLZinflatestr || mytbl(vChar); --从字符数组匹配

fengjin821

我在创建plb文件的时候没有问题

但在执行

SQL> @'f:\oracle\dl2ml.plb';

Warning: Function created with compilation errors

出现这个警告，后来我查

SQL>  select text from user_source where name='DL2ML';

TEXT
--------------------------------------------------------------------------------
function dl2ml wrapped
a000000
354
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
8
336 195
I6tm5WOOQijmzt15Z9K2PkIEiKwwg1zrVUhGyi9Ej4dyXkeQmL9Rmx+/E2kBCr1tvSf2mrXp
5b0vi8AVH8CLL4eYLGFCCFdFi81I6yz/HKpZBBu2uS+KYQd61pPuWmo7vv6lAZ0XKAoyn7Rw
fAoCmvojeiA6zysqClDOCG4crtgnh+6fpGXgot4Ebeg+svYM6w2zoGMpe+CiIaR/wiE0SkCc
QLdHcYDv8u/8JeMbq1iyQYtZvjY06NkaVZS+B4rRkSHsBFyrWJI4MvSRhGme21rr8aAWmEZa
PfG2GtNmTAxMZo2C98KU+holjH8lYWZk6MAbCcRmWMPl9KGsWq576meesRrhkMTrcFUns7v/
N4HvRz+6pd3qVBlXudSBKSx2czIZasYkQhdTGQ==

〇〇

原帖由 fengjin821 于 2009-6-12 14:47 发表
那个问题解决了，最后解码的时候出现这个：

SQL>  exec unwrap('SYS','DL2ML','FUNCTION');

begin unwrap('SYS','DL2ML','FUNCTION'); end;

ORA-01403: no data found
ORA-06512: at "SYS.UNWRAP", line 69
ORA-06512: at line 2



69行：  vLZinflatestr := vLZinflatestr || mytbl(vChar); --从字符数组匹配

需要确保对照表恰好有256行不同的
我是运行1次'PACKAGE' 1次'FUNCTION'得到的

〇〇

SQL> select amosunwrapper.deflate('41424344',9) from dual;

AMOSUNWRAPPER.DEFLATE('4142434
----------------------------------------------------------------------------------------------------------------------------------
--
78DA333134313231363101000736019B00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00
000000000000000000000000000000000000000000000000000000000000000000000000000000000000


已用时间:  00: 00: 00.06
SQL> select amosunwrapper.inflate(amosunwrapper.deflate('41424344',9)) from dual;

AMOSUNWRAPPER.INFLATE(AMOSUNWR
----------------------------------------------------------------------------------------------------------------------------------
--
41424344

已用时间:  00: 00: 00.01
SQL> select utl_compress.LZ_COMPRESS('41424344',9) from dual;

UTL_COMPRESS.LZ_COMPRESS('4142
----------------------------------------------------------------------------------------------------------------------------------
--
1F8B080000000000000B737472760100A52017DB04000000

已用时间:  00: 00: 00.00
SQL> select utl_compress.LZ_COMPRESS('41424344',6) from dual;

UTL_COMPRESS.LZ_COMPRESS('4142
----------------------------------------------------------------------------------------------------------------------------------
--
1F8B080000000000000B737472760100A52017DB04000000

已用时间:  00: 00: 00.00



已用时间:  00: 00: 00.00
SQL> select utl_compress.LZ_UNCOMPRESS( utl_compress.LZ_COMPRESS('41424344',9)) from dual;

UTL_COMPRESS.LZ_UNCOMPRESS(UTL
----------------------------------------------------------------------------------------------------------------------------------
--
41424344

已用时间:  00: 00: 00.00


SQL> select utl_compress.LZ_COMPRESS(UTL_RAW.CAST_TO_RAW('中文'),6) from dual;

UTL_COMPRESS.LZ_COMPRESS(UTL_R
----------------------------------------------------------------------------------------------------------------------------------
--
1F8B080000000000000BBB76E1DC110000F0826604000000

已用时间:  00: 00: 00.04
SQL> select utl_compress.LZ_UNCOMPRESS( utl_compress.LZ_COMPRESS(UTL_RAW.CAST_TO_RAW('中文'),9)) from dual;

UTL_COMPRESS.LZ_UNCOMPRESS(UTL
----------------------------------------------------------------------------------------------------------------------------------
--
D6D0CEC4

已用时间:  00: 00: 00.03
SQL> select UTL_RAW.CAST_TO_VARCHAR2(utl_compress.LZ_UNCOMPRESS( utl_compress.LZ_COMPRESS(UTL_RAW.CAST_TO_RAW('中文'),9))) from du
al;

UTL_RAW.CAST_TO_VARCHAR2(UTL_C
----------------------------------------------------------------------------------------------------------------------------------
--
中文

已用时间:  00: 00: 00.04

[ 本帖最后由 〇〇 于 2009-6-13 10:16 编辑 ]

newdelete

标记一下，有时间好好研究。

brucewoo_cu

学习一下.

〇〇

下一步准备结合utl_file,直接对plb文件unwrap

〇〇

经过研究plb文件的unwrap还是有难度的

有些文件既有明文又有密文
例如

1. 
   
2. create or replace package body utl_pg wrapped
   
3. a000000
   
4. 1
   
5. abcd
   
6. abcd
   
7. abcd
   
8. abcd
   
9. abcd
   
10. abcd
    
11. abcd
    
12. abcd
    
13. abcd
    
14. abcd
    
15. abcd
    
16. abcd
    
17. abcd
    
18. abcd
    
19. abcd
    
20. b
    
21. 18e6 363
    
22. 9eJMpxTUFQtJ2ODXUxwSJB16ZGEwg81UACAFfC/N2A+vzPtlQoGi+onyVHqejgF4TCGfKcio
    
23. c7VsPoLxcU715p1l43xwHa2bhRK7Ioejh0FCYlRrrpaKxgX+7oH9t0zUZcRU1OiuPYTeYzk8
    
24. 8l7VXkMYvxeLnDaf7ujkR9furQud0SBNugU7q55TBGlw6rIMO6OP8sh0oeJrKavLgZIL4tPc
    
25. CD0CPPCPpbTcMjKz+mSv3OF4ltY21Sc4JYvwbbC5YoLkkttfS+37tfhX7EZ5O+4NBkcsAcWH
    
26. nqeccvP3sO9ABIrjEHzbpoBHdsp4sxN0wRuvg8xzBU3mZJ44SjF74st4jupXdXbJU0pJu1D5
    
27. eBEQFdO4MlM7XfaNmIzRNK/Cja0jw5cZWSXSo4ZUDRUtxb+AGbmsfF++6gBT/2UU9lJYmkP5
    
28. G7HTfhyEqsEBvasxayTTTn1u7RLS0etUMNXeAp4rNp4Csg4xhaj8OdW8tEv7ARB8O5HrVlmq
    
29. 2iu5UC8KXVfBrIJUAF92qCpuUvf265HcxbaGZrEmUvcKPZG87mVdlzId8VSdG7R4wy0x6PUT
    
30. nrZ61aJiqG5S+Ib4w/eKqBHHNf2eg6JQ1DcqbZGqZ/3hK/kQZVMMTwk9x3QOcucfKydPQQaO
    
31. 8P5fU4BWYIsPF0b48BqEBNQz9Vro1gYXf1aj22nejFOklV0inGZStR3HPhVozpZ1kIw3jG1F
    
32. 7cfS1riOn0oidcLvAL0nUrx8Q+Pcz8yc4Kz163GOLGe3dZmmCcC2zbPMR+DTn837HBbCb+lI
    
33. gh+gjk82PkWhQEjxDqI6vukj4GtYAB8faHVF1AIh4pDBqVOWPAXJER6GsE/7aptQ
    
34. 
    
35. /
    
36. show errors
    
37. create or replace public synonym utl_pg for sys.utl_pg
    
38. /
    
39. grant execute on sys.utl_pg to public
    
40. /
    
41. 
    

复制代码

只提供了输出到文本文件
DBMS_OUTPUT.PUT_LINE(amosunwrapper.inflate(vLZinflatestr));
改为
vfHandle utl_file.file_type;
vfHandle := utl_file.fopen('DMPDIR', 'test.txt', 'w'); --'test.txt'可以用一个参数代替
utl_file.put_line(vfHandle,amosunwrapper.inflate(vLZinflatestr));
utl_file.fclose(vfHandle);

[ 本帖最后由 〇〇 于 2009-6-15 08:53 编辑 ]

rollingpig

开始==> abcd/abcd
结束==> "/"