VB课程设计-图片中的信息隐藏(VB设计).docVIP

福建农林大学计算机与信息学院 信息工程类 课程设计报告 课程名称： 信息论与编码 课程设计题目： 图片中的信息隐藏讲 师2007 年 7 月 3 日 福建农林大学计算机与信息学院信息工程类 课程设计结果评定 评语： 成绩： 指导教师签字： 任务下达日期： 评定日期：  目 录 1课程设计的目的……………………………………………………………………4 2课程设计的要求……………………………………………………………………5 3课程设计报告内容…………………………………………………………………6 3.1系统设计原理……………………………………………………………………6 3.2系统设计过程……………………………………………………………………6 3.3系统设计总结…………………………………………………………………10 参考文献……………………………………………………………………………10图片中的信息隐藏 作为信息安全技术的一个重要分支，信息隐藏技术由于具有较好的隐蔽性和易操做性而逐渐成为信息安全领域的研究热点之一。大家都知道，在计算机系统中，每一张图片都是由一系列的像素构成的。每张图片上色彩种类的多少又同时决定了每个像素的位数。比如一张黑白的照片有两色，那么它就可以用一位的二进制数来表示。而如果一张彩色的照片有16位，它就必须要用四为的二进制数来表示，八位二进制数也就可以表示256种颜色。总之，随着像素所含位数的不断增加，它所能表示的图像的颜色也就不断增多。然而在像素的这些位中有很多位的二进制数并不会为人类的眼睛带来太大视觉冲突，换句话说就是携带了一些并没有没有太大用处的信息。因此，我们就可以通过把将要隐藏的信息转换为二进制数，然后在通过一定的处理方式，把所要隐藏的信息填充到图片原来的信息中，这样一来不仅不会使图像在视觉上有改变，而且把机密的信息简单的隐藏进了图像中。 本次课程设计设计的系统主要分成两个部分。第一个部分主要是通过对图像进行分析并转化为二进制数，同时对要隐藏的信息进行分析，也转化为二进制的代码，再通过对原来图片二进制代码的填充形成一个新的含有隐藏信息的图片。并对图片进行保密。 第二部分的内容主要是通过对被隐藏信息的图片进行分析，转化为二进制数，同时通过原先填充信息的方法把图片中的隐藏信息恢复出来的。 希望通过本次课程设计的实习能够时间一个对图片进行加载隐藏信息和翻译隐藏信息的系统。 3.课程设计报告内容 3.1 课程设计原理 本实习系统的设计，在第一部分的步骤入下： 通过对图像进行分析并转化为二进制数，这样就可以看到图像没一个像素的完整代码。同时将对像素中最后一位进行处理，因为是最后一位，图像的视觉效果上并不会有太大的影响。 再对要隐藏的信息进行处理，也将其转化为二进制的代码并一位位输出。 采用位覆盖的方法来改变象素值。对图象进行位扫描，同时进行位覆盖，若为 0位，则对应的图像象素值最后一位置 0，若为 1，则相应置为 1，然后回写到原图像，完成信息的插入。 第二部分的原理与第一部分相同，它是第一部分的逆处理。 要将图像中信息读出，转化为二进制代码并扫描图像每个象素最后一位。 读取后组成二进制位串，转换成 ASCII码即可显示明文。 3.2 系统设计 3.2.1本次试验通过VB进行设计，其主要运行截面如下： 其中，加入隐藏信息为第一部分，可以先用LOAD控件加载图片，然后在TEXT1中输入所要隐藏的信息，然后执行即可输出加载后的代码。最后保存下图片就可以啦。 第二部分，用以到处隐藏信息。同样用LOAD控件加载含有隐藏信息的图片，然后分别用导出代码和到处隐藏信息空间，就可以获取所要的明文信息啦。 3.2.2本次设计的运行代码如下： Private Sub Command1_Click() Set Picture1.Picture = LoadPicture(d:\out.jpg) End Sub Private Sub Command2_Click() Dim bintemp As Long, stringbintmp As String, stringbintmpC As String Dim i As Long, j As Long Dim positiontoinsert As Long, strTxt1 As String, stringtobefilled As String Dim lngTmpClr As Long stringtobefilled = Space(2000) stringbintmp = strTxt1 = Text1.Text LSet stringtobefilled = strTxtl For i = 1 To Len