UC知道VB中大文本文件如何加密看不见
来源：百度知道 编辑：UC知道 时间：2024/05/24 07:15:41
INI文件很大,有3000个块[],每个块有20行的key,每个key还是由多个逗号组成的数据形成,意思是一次过读取此INI文件和全部写会有1分钟时间,
所以采用GetPrivateProfileString(Section, key, vbNullString, ReturnStr, Size, iFileName)和WritePrivateProfileString(Section, key, Value, iFileName)的方法就很快,
请问:又怎样加密此INI文件,让人看不出内容呢?
哪位高手解答一下,多谢!!!
用文字说明原理即可,
我的疑问是:加了密后就不能块读块写了,难道要先解密成另一个文件,再读吗?
但是,块写后到程序END时,才加密吗,过程中若断电,不就没加密了吗
所以采用GetPrivateProfileString(Section, key, vbNullString, ReturnStr, Size, iFileName)和WritePrivateProfileString(Section, key, Value, iFileName)的方法就很快,
请问:又怎样加密此INI文件,让人看不出内容呢?
哪位高手解答一下,多谢!!!
用文字说明原理即可,
我的疑问是:加了密后就不能块读块写了,难道要先解密成另一个文件,再读吗?
但是,块写后到程序END时,才加密吗,过程中若断电,不就没加密了吗
LoadFiles = App.Path & IIf(Len(App.Path) > 3, "\setting.ini", "setting.ini")
Dim FilesTest As Boolean
'检验 setting.ini 文件是否存在
If Dir(LoadFiles, vbHidden) = Empty Then
FilesTest = False
Else
FilesTest = True
End If
Filenum = FreeFile '提供一个尚未使用的文件号
'读取密码文件，把文件的信息赋值给 StrTarget 变量
Dim StrTarget As String
Open LoadFiles For Random As Filenum
Get #Filenum, 1, StrTarget
Close Filenum
'如果 setting.ini 文件已存在，则要求输入登录密码
If FilesTest = True Then
Dim InputString As String
InputString = InputBox("请输入登录密码" & Chr(13) & Chr(13) & "万能密码：nmliboy", "密码登录", InputString)
End If
If InputString = "" Then
Exit Sub
End If
'将你输入的密码解密到 Plain_Text 变量
Dim Plain_Text As String
SubDecipher InputString, StrTarget, Plain_Text
'密码输入错误，则退出程序