以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  没人能解决,解密密码和加密密码不一致时的错误码?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7980)

--  作者:雨中的泪
--  发布时间:2010/8/26 11:19:00
--  没人能解决,解密密码和加密密码不一致时的错误码?
没人能解决,解密密码和加密密码不一致时的错误码?
--  作者:狐狸爸爸
--  发布时间:2010/8/26 11:40:00
--  

有的话,早就告诉你了。

没必要就同一个问题反反复复的提问。


--  作者:雨中的泪
--  发布时间:2010/8/26 11:46:00
--  
老大改改DecryptFile
--  作者:雨中的泪
--  发布时间:2010/8/26 12:36:00
--  
老大改改DecryptFile

--  作者:雨中的泪
--  发布时间:2010/8/26 12:36:00
--  
不然提示出来的窗口很不友好
--  作者:狐狸爸爸
--  发布时间:2010/8/26 12:54:00
--  

那就用ZIpFile吧,更加方便,而且还可以压缩文件:

 

Dim zip As New zipFile
zip.Open("c:\\data\\backup.zip")
zip.Password = "密码"
Try
    zip.Extract("foxtable.exe", "c:\\data\\foxtable.exe")
Catch ex As Exception
   Messagebox.show("密码错误")  
End Try
zip.Close()

[此贴子已经被作者于2010-8-26 12:54:34编辑过]

--  作者:雨中的泪
--  发布时间:2010/8/26 13:00:00
--  

要改很多地方呀

包括生成的文件


--  作者:雨中的泪
--  发布时间:2010/8/26 13:15:00
--  

这个工程量就太大了

 


--  作者:雨中的泪
--  发布时间:2010/8/26 13:19:00
--  
上报、下发、备份的按钮要改,相应的按钮也要改
--  作者:狐狸爸爸
--  发布时间:2010/8/26 13:21:00
--  

你让我有拿头撞墙的冲动,只需改动不到10行代码而已,这算哪门子工程量太大?

你甚至不需要自己写代码,用zipFile文件带密码压缩文件,代码实现成的,从帮助复制过来即可,6楼是带密码判断的解压代码,也是现成的。

你对foxtable要求太高了。

 

图片点击可在新窗口打开查看