UC知道vb 加密器 溢出问题
来源：百度知道 编辑：UC知道 时间：2024/06/17 18:30:09
Private Sub Command1_Click()
Dim x As Byte, i%, fname$
fname = Label1.Caption
If Dir(fname) = "" Then
MsgBox "文件不存在！请确认文件目录是否正确！"
Exit Sub
End If
Open fname For Binary As #1 ' 以二进制访问模式打开待加密文件
For i = 1 To LOF(1) ' LOF函数是求文件长度的内部函数
Get #1, i, x ' 取出第i个字节
x = BinToByte(Reverse(ByteToBin(x))) ' 这里调用了三个自定义函数
Put #1, i, x ' 将加密后的这个字节写回到文件原位置
Next i
Close
MsgBox "加密/解密成功！"
End Sub
其中溢出错误显示为For i = 1 To LOF(1)
Dim x As Byte, i%, fname$
fname = Label1.Caption
If Dir(fname) = "" Then
MsgBox "文件不存在！请确认文件目录是否正确！"
Exit Sub
End If
Open fname For Binary As #1 ' 以二进制访问模式打开待加密文件
For i = 1 To LOF(1) ' LOF函数是求文件长度的内部函数
Get #1, i, x ' 取出第i个字节
x = BinToByte(Reverse(ByteToBin(x))) ' 这里调用了三个自定义函数
Put #1, i, x ' 将加密后的这个字节写回到文件原位置
Next i
Close
MsgBox "加密/解密成功！"
End Sub
其中溢出错误显示为For i = 1 To LOF(1)
照你的代码来说 是没有错误的
既然说 是溢出 而且是在文件长度上
我推理 你的那个待加密文件是空的
只可能是这种情况
你可以检查一下你的文件是否为空~
For i = 1 To LOF(1)-1
按照你提供的程序运行，没有提示错误啊
请详细说说
抢分走人