一种基于Word文档的信息隐藏方法

核心提示： 下面分析该方法的可行性，根据文献[2]所述，一种基于Word文档的信息隐藏方法(2)，人眼无法辨认1/150英寸以内的间距变化，此间距为0.16993mm，它可以对Office文档的各种操作进行编程，下面给出该方法的VBA实现算法和程序的主要流程，而本文所采用的0.1磅间距变化为0.054

下面分析该方法的可行性。根据文献[2]所述，人眼无法辨认1/150英寸以内的间距变化，此间距为0.16993mm，而本文所采用的0.1磅间距变化为0.05405mm，此间距变化要小于文献[2]中所述的值。下面是利用该方法的实验结果。

下一行是Word文档中字符间距全为0磅的正常显示样式：

在在在在在在在在在在在在在在在在

下一行是在其中隐藏了01100101二进制串的文本显示样式：

在在在在在在在在在在在在在在在在

大量的实验结果也显示，这样的间距变化人眼是几乎无法辨认的。

利用上述方法在Word中实现信息隐藏的关键是如何控制和提取文档中字符的间距。本文利用VBA语言实现了两个Word宏进行信息的隐藏和提取。

VBA语言是针对微软Office文档进行操作的语言，它可以对Office文档的各种操作进行编程。下面给出该方法的VBA实现算法和程序的主要流程。

Sub Hide() ′以下是实现信息隐藏的Word宏

　　Dim i As Integer
　　Dim ch As Byte
　　Dim ch1 As Byte

ch = Asc(“a”) ′ch变量中存放需要隐藏的字符

m = 128

Selection.HomeKey Unit:=wdStory ′将文档中的插入点移到文档首部

Selection.MoveDown Unit:=wdLine, Count:=2

Selection.MoveRight Unit:=wdCharacter, Count:=1 ′选择信息隐藏的位置，此处为文档的第三行

For i = 1 To 8 ′每次循环隐藏一位二进制位

　　Selection.MoveLeft Unit:=wdCharacter, Count:=1
　　　　Selection.MoveRight Unit:=wdCharacter, Count:=2
　　　　Selection.MoveRight Unit:=wdCharacter, Count:=2,
　　　　　　Extend:=wdExtend