把文件藏在图片里(VB程序+源码+原理)

文章目录

把文件藏在图片里(VB程序+源码+原理)

2013-07-10 / 2017-03-17

分类：代码

初学VB时写的一个小程序…没什么技术含量…捣腾了一下午出来了…
主要是利用命令提示符中的一个copy命令,软件的作用只是生成含有这个命令的一个BAT文件并运行…

1	copy /b "D:/1.jpg" + "D:/2.rar" "D:/3.jpg"

D:/1.jpg是图片的存放路径；把要藏的文件压缩成2.rar，D:/2.rar是此文件的存放路径；
D:/3.jpg是生成路径。

详细方法：传送门

软件图示：
图种生成器

源码：

Private Sub Command3_Click()
    If Dir(Text1.Text) <> “” = True Then
          If Dir(Text2.Text) <> “” = True Then
         Open “c.bat” For Output As #3
          Print #3, “Copy/b “; Chr(34) & Text1.Text & Chr(34); ” + “; Chr(34) & Text2.Text & Chr(34); ” #xa0;”; “Output.jpg”
          Close #3
          Shell (“c.bat”)
          R = MsgBox(“藏好了,输出文件为OutPut.jpg,存放在本程序所在文件夹,按确定打开文件夹.”, vbYesNo, “完成”)
             If R = vbYes Then
                 Shell “explorer.exe ” & App.Path
             Else
             End If
          Else
          R2 = MsgBox(“请输入正确要藏的文件路径!”, , “错误”)
          End If
      Else
      R1 = MsgBox(“请输入正确JPG图片文件路径!”, , “错误”)
      End If
End Sub