ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 5519|回复: 16

分析和提取PPT复合文档中的Vba ProjectStg Compressed Atom

[复制链接]

TA的精华主题

TA的得分主题

发表于 2013-7-18 13:34 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖已被收录到知识树中,索引项:其他专业开发
本帖最后由 liucqa 于 2017-6-15 08:42 编辑

http://msdn.microsoft.com/en-us/library/cc313106(v=office.12).aspx  参考此文档456页

1、查找10 00 11 10 得到压缩数据流起始位置。(正规的方法需要从docInfoList里面找,参见三楼)
1.JPG

2、数据流的格式如下:
10 00 11 10  XX XX XX XX (4字节rh.reclen, 压缩包的大小)  XX XX XX XX (Uncompress Size 解压缩之后的大小)  78 9C (或78 01,表示Zlib的头)  
... Raw数据流 ...
XX XX XX XX (4字节,采用Adler32算法的CRC checksum)

3、78 9C 后面的数据就是deflate的Raw数据流,长度是rh.reclen-6-4。在上图中,rh.reclen是7C 1E 00 00,也就是0x1E7C=7804个字节(十进制)。
      实际的deflate的Raw数据流从Zlib头之后开始,长度为7804-0x10=7794,即1E72。最后是4字节的校验和(48 AF 2A 3A)。

4、在上图中,0x107b8+1E72-1=0x12629,即0x107B8~0x12629就是deflate的Raw数据流。最后的4个字节是Zlib的Adler32的CRC checksum。
11.JPG

5、对0x107B8~0x12629的数据进行解压缩,就得到了PPT文件中的VBA Stream流。计算解压缩的文件CRC checksum,如果与 48 AF 2A 3A相同,说明解压缩正确。



此方法只是个示例,不能照搬用于所有的2003 PPT文件.
因为ppt里面的VBA Zlib流在文件中的存储可能不是连续的,需要提取 PowerPoint Document流之后,再参考上面的方法处理

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-7-18 13:38 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
Zlib 数据格式的说明

上楼说的Zlib头 78 9C:
78 =32K deflate压缩方法
9C= 10011100,具体参考下面的说明

Zlib 流有如下的结构:
        0     1
     +----+-----+
     |CMF|FLG|    (more-->)
     +----+-----+

     (if FLG.FDICT set)
          0     1     2     3
      +-----+-----+-----+-----+
      |       DICTID          | (more-->)
      +-----+-----+-----+-----+

      +==============+-----+-----+-----+-----+
      | ...compressed data...  |        ADLER32       |
      +==============+-----+-----+-----+-----+

      任何出现在 ADLER32 之后的数据都不是 zlib 流的一部分。

      CMF(Compression Method and flags,压缩方法和标志)

      这个字节分为一个 4 位的压缩方法和一个取决于压缩方法的 4 位信息域。

                  bits 0 to 3         CM             Compression method
                  bits 4 to 7         CINFO        Compression info

      CM(Compression Method,压缩方法)

      它在文件中用于标识压缩方法。CM = 8 表示窗口大小超过 32K 的“deflate”压缩方法。Gzip 和 png (参见下面提供参考文档的第 3 章中参考资源 [1] 和 [2])使用这个方法。CM = 15 保留。它可能在本规范的将来版本中表示出现在压缩数据之前的附加域。

      CINFO(Comression Info,压缩信息)

      对于 CM = 8,CINFO 是 LZ77 窗口大小的以 2 为底的对数加上 8(CINFO = 7 表示窗口大小为 32 K)。是本规范中,并不允许 CINFO 的值在 7 以上。对于 CM 不等于 8 的 CINFO 在本规范中并没有定义。

      FLG(FLaGs)
   
      这个标志字节分为如下几个部分:

      bits 0 to 4          FCHECK  (检查 CMF 和 FLG 位)
      bit 5                  FDICT    (预置字典)
      bits 6 to 7          FLEVEL   (压缩级别)

      FCHECK 在当 CMF 和 FLG 被视为按 MSB 顺序存储的一个 16 位无符号整数(CMF*256 + FLG)时,必须是 31 的倍数。

      FDICT(Preset dictionary,预置字典)

      如果设置了 FDICT,DICT 字典标识符立即出现在 FLG 字节之后。字典是最初送到压缩程序而不产生任何压缩输出的一系列字节。DICT 是这一系列字节的 Adler-32 校验和(参见下面对 ADLER32 的定义)。解压缩程序可以使用这个标识符判断压缩程序使用了哪个字典。

      FLEVEL(Compression level,压缩级别)

      这些标志可用于特定的压缩方法。“Deflate”方法(CM = 8)将这些标志设置如下:

      0 - 压缩程序使用最快的算法
      1 - 压缩程序使用较快的算法
      2 - 压缩程序使用缺少的算法
      3 - 压缩程序使用最大的压缩,最慢的算法

      对于解压缩程序来说,它并不需要 FLEVEL 中的信息;在解压缩程序中,让它表示是否要重新压缩可能更用价值。

      压缩的数据(compressed data)

      对于压缩方法  8,压缩的数据按照在由 L. Peter Deutsch 所写的文档“DEFLATE 压缩数据格式规范”(参见下面第 3 章参考资源[3])中说明的 deflate 压缩数据格式存储。

      其它压缩的数据格式在 zlib 规范的这个版本中并不做说明。

      ADLER32 (Adler-32 校验和,Adler-32 checksum)

      这包含了一个按照 Adler-32 算法计算出的未压缩数据(除了任何字典数据)的校验值。这个算法是用在 ITU-T X.224 / ISO 8073 标准中的 Fletcher 算法的 32 位扩展和改进。(请参见下面第 3 章的 [4] 和 [5])。

      Alder-32 是由每个字节累积的两个和组成:s1 是所有字节的和,s2 是所有 s1 值的和。这两个和是 65521 取模得来。S1 初始值是 1,s2 是零。Adler-32 校验和按高位字节在先(网络字节序)的顺序存储为 s2*65536 + s1。

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-7-19 14:22 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 liucqa 于 2013-7-19 21:34 编辑

简单讲一下如何找到VbaProjectStgCompressedAtom的偏移值

1、在.PPT文件中,搜索 5F C0 91 C3, 这个值后面的4字节long,就是offsetToCurrentEdit-------------------------------------------------------------------文档39页
1.JPG

2、提取PPT文件中的 PowerPoint Document流,(具体方法略)

3、在PowerPoint Document流的offsetToCurrentEdit偏移处,找到offsetLastEdit为 00 00 00 00的位置,其后就是offsetPersistdirectory-------------文档41页
2.JPG

4、上图中,offsetPersistdirectory是F1F5,即PowerPoint Document流偏移为F1F5的位置开始,是Persistdirectory -------------------------------------文档42页
      这里面包含了指示VBA Zlib流的偏移值,是个long数组(Persistdirectory Entry)
3.JPG

5、在PowerPoint Document流中,搜索0F 00 D0 07,找到DocInfoListContainer,这里面包含了VbaInfoContainer
      在DocInfoListContainer起始位置,搜索1F 00 FF 03,这个就是VbaInfoContainer
4.JPG

6、在VbaInfoContainer中,找到persisiIdRef的值-----------------------------------------------------------------------------------------文档57页
     上图的05 00 00 00这个05就是第4步中,表示VBA Zlib流的的偏移值,在Persistdirectory Entry 数组中的下标。

7、在本例中,第4步图示数据的BD 5F就是VBA Zlib流的在PowerPoint Document流的偏移值。
     也就是说,Persistdirectory Entry 数组下标为5的值是 5F BD 00 00  -------------------------------------------------------------文档43页
5.JPG

8、按照1楼的方法,提取Deflate Raw之后,就可以解压缩,得到VBAProject.Bin。




TA的精华主题

TA的得分主题

 楼主| 发表于 2013-7-19 21:16 | 显示全部楼层
本帖最后由 liucqa 于 2013-7-19 21:32 编辑

我觉得还是把PPT文件转成PPTM算了,解析实在麻烦呀!


顺便做个调查,看看论坛的会员层次:

能看懂本贴的,请跟帖留言,谢谢

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-7-22 09:21 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-7-22 09:47 | 显示全部楼层
不用查了,
99%更关心你的直接成果。

{:soso_e113:}

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-7-22 13:35 | 显示全部楼层
儒道佛 发表于 2013-7-22 09:47
不用查了,
99%更关心你的直接成果。

嘿嘿,成果就是:还是别解析ppt了,转成pptm更省事

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-7-23 09:42 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-7-23 10:03 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
好东西,谢谢分享,一直未能理解劳拉结构的含义。,做个记号慢慢学习。

TA的精华主题

TA的得分主题

发表于 2013-7-23 10:50 | 显示全部楼层
谢谢楼主,这个还没有好好看,上次excel复合文档隐藏和恢复模块搞定了。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-22 00:55 , Processed in 0.042513 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表