神奇的EXCEL加密技术

figfig · 发表于 2008-11-18 03:12

看似简单图片,里面包含着一个EXCEL文件
把附件下载,解压为 C:\03.JPG
注意路径不能为其他
再运行代码看看
注意要下载附件,不能直接点击图片另存,(因为系统已经把它转为了BMP)

03.rar (79.21 KB, 下载次数: 511)
Sub JJ2()
Set X = CreateObject("ADODB.STREAM")
X.Type = 1
X.Open
X.LoadFromFile "c:\03.jpg"
AA = X.READ(79473)
ZZ = X.READ()
X.Position = 0
X.WRITE ZZ
X.SAVETOFILE "c:\BOOK111.XLS", 2
Application.Workbooks.Open Filename:="c:\book111.xls"
End Sub

[ 本帖最后由 figfig 于 2008-11-18 03:38 编辑 ]

yuanhongly · 发表于 2008-11-18 08:13

下来看一下

sunsoncheng · 发表于 2008-11-18 13:19

有点意思!
如何做的?

robby0516 · 发表于 2008-11-18 17:08

有意思，研究研究！

gzgis · 发表于 2008-11-18 18:09

期待介绍一下加密的过程!

mylmyfws · 发表于 2010-1-2 23:57

试试看行吧

jifuxue · 发表于 2010-1-5 00:28

期待介绍一下加密的过程!

jiliyacui · 发表于 2010-1-5 06:58

如此的技术，真不敢相信。

gootor · 发表于 2010-1-5 09:31

感谢楼主分享,

能否继续分享一下制作JPG的过程!!

joforn · 发表于 2010-1-5 10:04

Excel文件被附在JPG文件尾。

		自动登录	找回密码
密码			免费注册

[原创] 神奇的EXCEL加密技术