神奇的EXCEL加密技术

klshen · 发表于 2010-4-14 00:11

如何加密的？

execl · 发表于 2010-4-14 06:44

期待解神感过程

cygc · 发表于 2010-4-21 19:58

应是改了文件的后缀名

xq1234 · 发表于 2010-4-21 20:24

03.jpg文件中，从79473字节处开始（Dec 79473=Hex 01,36,71，注意这里起始编号是0，而不是1）是一个BOOK111.XLS文件
也就是将一个JPG文件和xls文件合二为一，然后再从79473字节开始将该文件读出来。
实际上并没有对二进制数据进行任何加密。
但这两种类型的文件合并在一起，打开后还能看到图片，我也还是头一次看到

Sub aTest()
Dim JPG(1 To 79473) As Byte
Dim XLS(1 To 26112) As Byte

fnm = "c:\03.jpg"

f1 = FreeFile
Open fnm For Binary As #f1
      Get #f1, , JPG
      Get #f1, , XLS
Close #f1


f2 = FreeFile
Open "C:\JPG.jpg" For Binary Access Read Write As #f2
Put #f2, , JPG
Close #f2


f3 = FreeFile
Open "C:\XLS.xls" For Binary Access Read Write As #f3
Put #f3, , XLS
Close #f3

End Sub

DOS命令合并文件：
COPY /b JPG.jpg+XLS.XLS 03.JPG

[ 本帖最后由 xq1234 于 2010-4-22 20:45 编辑 ]

eitiwo · 发表于 2010-4-24 11:11

神秘，有人能解释一下吗

geryjun · 发表于 2010-4-24 19:28

学习学习中。

fsydw · 发表于 2010-4-24 19:34

谢谢大师分享！

东方智彩 · 发表于 2010-4-24 19:47

研究下,确实有点意思!

lb_bn · 发表于 2010-4-24 19:49

谢谢老师分享，学习了。
文件分段读取的方法不错。

hwy0407 · 发表于 2010-4-24 19:55

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

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

回复 1楼 figfig 的帖子

评分