主题：加密与解密的问题！！！谢谢

不可以判断。

你搞错了吧，解密是不会破坏原来的文件的。

注意加密和解密使用不同的文件名。

只需用两三行代码即可说明的问题，你却用整段整段的、甚至不想关的代码在这里讲述，还不停地整个项目上传。
理解你的问题，远比回答你的问题难度高。

你难道就不能用简单明了一点的代码或例子来说明问题吗？
提炼出问题，用简单的代码或例子来验证和说明，这样基本的工作你都懒得做，那么人家更就懒得理你了。

 

下面简单的三行代码，证明你说的问题不存在：

 

EncryptFile("c:\0.egd", "c:\1.egd", "fox123")
DecryptFile("c:\1.egd", "c:\2.egd", "fox1231")
DecryptFile("c:\1.egd", "c:\3.egd", "fox123")

执行之后，2.egd不能打开，提示文件格式错误，因为其解密密码不正确，3.egd可以打开，因为解密密码正确。
如果你说的问题存在，那么3.egd也应该打不开才行。

上面的代码有什么问题？你要么就是整段的代码，要么就是不清不楚的一句话，别人怎么帮你？

 

上面的代码经过测试，没有任何问题。

执行之后0.egd和3.egd正常打开，1.egd和2.egd不能打开。

我再来一次，严格按照你说的1、2、3、4、5、6，一切正常：

 

EncryptFile("c:\0.egd", "c:\1.egd", "fox123") '加密
FileSys.RenameFile("c:\1.egd","abc.egd") '改名
DecryptFile("c:\abc.egd", "c:\2.egd", "fox1231") '用错误的密码解密
FileSys.RenameFile("c:\abc.egd","1.egd") '改回原来的名称
DecryptFile("c:\1.egd", "c:\3.egd", "fox123") '用正确密码解密

 

最后用易表打开c:\3.egd，没有提示文件错误

相对路径和绝对路径，对于加密解密的结果，会有影响吗？ 

 

Dim pg As String = ProjectPath
EncryptFile(pg & "0.egd", pg & "1.egd", "fox123") '加密
FileSys.RenameFile(pg & "1.egd","abc.egd") '改名
DecryptFile(pg & "abc.egd", pg & "2.egd", "fox1231") '用错误的密码解密
FileSys.RenameFile(pg & "abc.egd","1.egd") '改回原来的名称
DecryptFile(pg & "1.egd", pg & "3.egd", "fox123") '用正确密码解密

 

测试结果完全一样: 0.egd和3.egd正常打开，1.egd和2.egd不能打开。

 

 

这样不出错才怪，应该基于 加密后的文件1.egd解密才行