Foxtable(狐表)用户栏目专家坐堂 → 加密和解密的密匙问题


  共有10299人关注过本帖树形打印复制链接

主题:加密和解密的密匙问题

帅哥哟,离线,有人找我吗?
小狐
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:734 积分:5645 威望:0 精华:0 注册:2008/9/6 11:22:00
加密和解密的密匙问题  发帖心情 Post By:2011/2/16 16:34:00 [显示全部帖子]

EncryptText函数加密的字符串可以用函数DecryptText解密,解密和加密的密钥必须相同。这一句话怎么理解。

如果要实现: 

加密后的文件。直接用ReadAllText调入并赋值到变量中,并使用事前“文件加密的密钥”进行解密还原,这一块怎么操作?


 回到顶部
帅哥哟,离线,有人找我吗?
小狐
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:734 积分:5645 威望:0 精华:0 注册:2008/9/6 11:22:00
  发帖心情 Post By:2011/2/17 13:45:00 [显示全部帖子]

这一段代码该如何修改

EncryptFile("c:\11.txt", "c:\22.txt", "fox123")
Dim Val1 As String = FileSys.ReadAllTExt("c:\22.txt")
Dim Val2 As String = DecryptText(Val1,"fox123")     ' 无密钥2
Output.Show("解密后:" & val2)

 

[此贴子已经被作者于2011-2-17 13:50:40编辑过]

 回到顶部