*******隐藏vba中的模块，起到保护vba代码的作用；以及用VBA来提取VBA Stream的演示

liucqa

joforn 发表于 2013-1-8 17:53
早就可以还原了啊，哈哈。

只是最近在分析最复杂的WorkBook流，这个流要比VBA的复杂的多，所以没空玩那 ...

给个提示呀，俺自己写

joforn

liucqa 发表于 2013-1-8 17:56
给个提示呀，俺自己写

http://msdn.microsoft.com/en-us/library/cc313094%28v=office.12%29.aspx
一切都在这个文档中。

joforn

我自己一时也说不明白，楼上链接所给的文档说明非常的详细。就是有一点不好，是英文的（我看不懂英文）……

liucqa

joforn 发表于 2013-1-8 18:03
我自己一时也说不明白，楼上链接所给的文档说明非常的详细。就是有一点不好，是英文的（我看不懂英文）……

找了个开源的代码，C写的，看不懂

1. * @input: stream to read from
   
2. * @offset: offset into it for start byte of compresse stream
   
3. *
   
4. * Decompresses an LZ compressed stream.
   
5. *
   
6. * Return value: A GByteArray that the caller is responsible for freeing
   
7. **/
   
8. GByteArray *
   
9. gsf_msole_inflate (GsfInput *input, gsf_off_t offset)
   
10. {
    
11.     GByteArray *res;
    
12.     unsigned    i, win_pos, pos = 0;
    
13.     unsigned    mask, shift, distance;
    
14.     guint8        flag, buffer [VBA_COMPRESSION_WINDOW];
    
15.     guint8 const   *tmp;
    
16.     guint16        token, len;
    
17.     gboolean    clean = TRUE;
    
18. 
    
19.     if (gsf_input_seek (input, offset, G_SEEK_SET))
    
20.         return NULL;
    
21. 
    
22.     res = g_byte_array_new ();
    
23. 
    
24.     /* explaination from libole2/ms-ole-vba.c */
    
25.     /* The first byte is a flag byte.  Each bit in this byte
    
26.      * determines what the next byte is.  If the bit is zero,
    
27.      * the next byte is a character.  Otherwise the  next two
    
28.      * bytes contain the number of characters to copy from the
    
29.      * umcompresed buffer and where to copy them from (offset,
    
30.      * length).
    
31.      */
    
32.     while (NULL != gsf_input_read (input, 1, &flag))
    
33.         for (mask = 1; mask < 0x100 ; mask <<= 1)
    
34.             if (flag & mask) {
    
35.                 if (NULL == (tmp = gsf_input_read (input, 2, NULL)))
    
36.                     break;
    
37.                 win_pos = pos % VBA_COMPRESSION_WINDOW;
    
38.                 if (win_pos <= 0x80) {
    
39.                     if (win_pos <= 0x20)
    
40.                         shift = (win_pos <= 0x10) ? 12 : 11;
    
41.                     else
    
42.                         shift = (win_pos <= 0x40) ? 10 : 9;
    
43.                 } else {
    
44.                     if (win_pos <= 0x200)
    
45.                         shift = (win_pos <= 0x100) ? 8 : 7;
    
46.                     else if (win_pos <= 0x800)
    
47.                         shift = (win_pos <= 0x400) ? 6 : 5;
    
48.                     else
    
49.                         shift = 4;
    
50.                 }
    
51. 
    
52.                 token = GSF_LE_GET_GUINT16 (tmp);
    
53.                 len = (token & ((1 << shift) - 1)) + 3;
    
54.                 distance = token >> shift;
    
55.                 clean = TRUE;
    
56. /*                fprintf (stderr, "Shift %d, token len %d, distance %d bytes %.2x %.2x\n",
    
57.                 shift, len, distance, (token & 0xff), (token >> 8)); */
    
58. 
    
59.                 for (i = 0; i < len; i++) {
    
60.                     unsigned srcpos = (pos - distance - 1) % VBA_COMPRESSION_WINDOW;
    
61.                     guint8 c = buffer [srcpos];
    
62.                     buffer [pos++ % VBA_COMPRESSION_WINDOW] = c;
    
63.                 }
    
64.             } else {
    
65.                 if ((pos != 0) && ((pos % VBA_COMPRESSION_WINDOW) == 0) && clean) {
    
66.                     (void) gsf_input_read (input, 2, NULL);
    
67.                     clean = FALSE;
    
68.                     g_byte_array_append (res, buffer, VBA_COMPRESSION_WINDOW);
    
69.                     break;
    
70.                 }
    
71.                 if (NULL != gsf_input_read (input, 1, buffer + (pos % VBA_COMPRESSION_WINDOW)))
    
72.                     pos++;
    
73.                 clean = TRUE;
    
74.             }
    
75. 
    
76.     if (pos % VBA_COMPRESSION_WINDOW)
    
77.         g_byte_array_append (res, buffer, pos % VBA_COMPRESSION_WINDOW);
    
78.     return res;
    
79. }

复制代码

liucqa

joforn 发表于 2013-1-8 18:03
我自己一时也说不明白，楼上链接所给的文档说明非常的详细。就是有一点不好，是英文的（我看不懂英文）……

俺搞出来了，直接用API就可以解压缩

不过，stream块要先还原成正确的顺序

等俺写个C#代码试试

liucqa

先搞个VBA的（看一楼），C#的随后。

幸福本来很简单

学都学不懂！

lcsccc

还没开始学，就发现看都看不懂

doryan

谢谢分享 非常感兴趣
坐等C#版本的

amesman

关注。。。
liucqa 可否公布一下提取vba的vba代码呢？