！！！！！！！关于pdf文件的加密、解密，入者有分

[chenchengyun]

要对pdf文件进行加密、解密，由于pdf格式特别，一般的txt、word格式的文件内容加密方式并不适合，会破坏pdf格式造成文件损坏，怎么对pdf文件进行加密、解密？？？？

哪位兄弟做过这样的功能，有没有例子！！！！谢过了

[liu_qi2006]

帮你顶

[usecoolful]

你使用Adobe Acrobat本身带有的加密功能就可以啊。
“文档”－>“安全性”－>“保护本文档”
然后可以选择使用怎么样的方式加密保护。

[EasyPDF]

pdf的加密和一般文件不同，加密的pdf结构还是原文，只是对内容进行了加密
如果加密后要让adobe reader在阅读的时候解密，你就必须遵守pdf规范，这个难度很大的，一般用控件完成。如果是标准加密，打开的时候只需要一个密码就可以了，如果是用户自己定义的加密，就必须写一个adobe的插件（需要adobe授权）来完成解密。

如果再使用adobe 阅读之前就想完成解密，那这个加密就很简单，怎么做都可以，把pdf文件当成二进制文件处理就可以了（注意，pdf不是文本文件）。

----------------------------------------------------
在程序里轻松支持pdf，定做PDF相关dll(包括生成,阅读,转换),请联系 [e-mail]或qq329969959（请注明PDF，否则一概不加）

[chenchengyun]

我现在的需求是用我写的代码将一个PDF文件加密（效果达到其它PDF文件阅读器打开时看到的是乱码或打不开），要正常查看这个PDF文件，就要经我另一个解密的代码，经过解密之后才能打开，请那位贴出代码吧，不知怎么写啊！！！！！！！！！！！！！！！

[chenchengyun]

UP一UP

[zjn12]

关注：帮你顶

[一笑拔剑]

Private Sub Command1_Click()
Dim i As Byte
Open "d:\001.pdf" For Binary As #1
Get #1, , i

Close #1
MsgBox i
End Sub

Private Sub Command2_Click()
Dim i As Byte
i = &H0
Open "d:\001.pdf" For Binary As #1
Put #1, , i
Close #1
End Sub

Private Sub Command3_Click()
Dim i As Byte
i = &H25
Open "d:\001.pdf" For Binary As #1
Put #1, , i
Close #1
End Sub

点command2 d:\001.pdf即无法打开
点Command3 d:\001.pdf恢复打开

[一笑拔剑]

方法很简单
就是修改文件头
点command2以后pdf的格式头就被改变了
pdf软件不认为他是pdf文档于是就打不开了

但是pdf文件的头文件其实都一样的

你可以用winhex查看 头个字符都是16进制的25
所以只要点command3把头文件恢复回去就又可以打开了

这仅仅是一个思路，实际使用中有很多办法可以破坏pdf无法打开

你可以调整变动的字符位置，比如变成第二个字节变化，或者倒数几个字节，只要是统一的位置就可以了

[一笑拔剑]

经过多个pdf文件测试
均可行

[一笑拔剑]

一样的东西阿

不过是一个是文本格式
一个是二进制格式如此而已

[chenchengyun]

aspower有例子吗

[mustudent]

我是来接分的
没有研究过Pdf

[EasyPDF]

你的需求要实现很简单，用二进制打开文件，加密的时候随便做一些改动，解密的时候逆过来就可以了，几行代码就能实现

[一笑拔剑]

和文本原理一样的
只不过你需要处理的不是字符而是二进制数据了

[一笑拔剑]

http://www.hacker.com.cn/down/soft.asp?id=2185

文件加密机VB代码

[一笑拔剑]

本来就简单
呵呵

[chenchengyun]

OK

给分

[usecoolful]

看看Adobe Acrobat的SDK

[u121884529]

你可以联系我，我是慧峰信源科技的，高进
或我们的客服QQ329609773 陈
数字产品版权都可以加密

[liu438888497]

我正需要呢