| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 554 人关注过本帖
标题:加密程序出错,请教!
只看楼主 加入收藏
blackstine
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-4-10
收藏
 问题点数:0 回复次数:0 
加密程序出错,请教!

代码如下:
可能是打开文件的地方能够出错了
大虾帮帮忙!·!! 本人因此郁闷好几天了 ,先谢了

Private Sub Form_Load()
TxtPassword.PasswordChar = "*"
TxtPassword.MaxLength = 10
End Sub
Private Sub CmdBorws_Click()
CmmDlog.DialogTitle = "打开文件"
CmmDlog.Filter = "Word 文档(*,doc)|*.doc|文本文件(*.txt)|*.txt|*.*"
CmmDlog.Action = 1
TxtFile = CmmDlog.Filename
End Sub

Private Sub Cmdjmjm_Click()
Dim n%, filn$, keym$
keym = Trim(TxtPassword)
filn = Trim(TxtFile.Text)
Call Filejmjm(filn, keym)
End Sub

Private Function Encrypt(ByVal strSource As Byte, ByVal key1 As Byte) As Byte
Encrypt = strSource Xor key1
End Function

Private Sub Filejmjm(Filename As String, keym As String)
Dim char As Byte, key1 As Byte, fn As Byte
Dim n As Long, i As Integer
fn = FreeFile
Open Filename For Binary As #fn ' 可能就这里出错了
For n = 1 To LOF(fn)
Get #fn, n, char
For i = 1 To Len(keym)
key1 = Asc(Mid(keym, i, 1))
char = Encrypt(char, key1)
Next i
Put #fn, n, char
Next n
Close #fn
End Sub

搜索更多相关主题的帖子: 加密 文本文件 Word 
2006-09-28 20:21
快速回复:加密程序出错,请教!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.048937 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved