我要把VB.6中保存的数据写进.INI文件，请问怎么实现？在线等待

2003-05-06 03:15:37 77 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wangwei1980 墨衍会员 · AI 创作全网分发关注 + 加入社区

为VB6项目集成AES加密：DLL方案实现与避坑指南 AES（高级加密标准）作为目前全球广泛采用的对称加密算法，通过分组加密和密钥扩展机制，为数据提供了高强度的机密性保护。其技术价值在于平衡了安全性与性能，成为保护敏感信息的行业标准。在实际工程中，AES常用于加密配置文件、网络传输数据及用户文件等场景。针对VB6这类遗留系统，原生加密能力薄弱，直接实现AES算法复杂且低效。通过将AES核心算法用C/C++封装成标准Windows DLL，再由VB6调用，成为一种务实可靠的升级路径。该方案能有效解决类似“java.security.invalidkeyexcep 阅读详情

我要把VB.6中保存的数据写进.INI文件，请问怎么实现？

...全文

VB6实现AES加密：为遗留系统注入现代安全能力 AES（高级加密标准）作为当前应用最广泛的对称加密算法，其核心原理基于替换-置换网络，通过多轮迭代的字节代换、行移位、列混合和轮密钥加操作，实现对数据块的混淆与扩散，从而确保机密性。该算法因其安全性高、效率优异，已成为HTTPS、数据库加密、文件保护等众多场景的基石。在工程实践中，为Visual Basic 6.0等遗留技术栈集成AES能力，是满足现代数据安全法规与业务升级需求的关键技术手段。本文聚焦于在VB6环境中实现AES-CBC模式与PKCS7填充，深入剖析纯代码实现与DLL调用的方案选型、核心算法模阅读详情

wangwei1980

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

大智 Kevin 2003-05-06

打赏
举报

Option Explicit
Public InifileName As String
Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal _
lpReturnedString As String, ByVal nSize As Long, _
ByVal lpFileName As String) As Long

Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpString As Any, _
ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
'从ini文件里读取字符串
Public Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, _
ByVal DefString As String) As String
Dim ResultString As String * 256
Dim Temp As Integer
Temp = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 256, InifileName)
If Temp > 0 Then
ResultString = Trim(ResultString)
Else
ResultString = DefString
End If
GetIniS = delspace(ResultString)
End Function
'从ini文件里读取数字
Function GetIniN(ByVal SectionName As String, ByVal KeyWord As String, _
ByVal DefValue As Integer) As Integer
GetIniN = GetPrivateProfileInt(SectionName, KeyWord, DefValue, InifileName)
End Function
'写字符串入ini文件里
Public Sub SetIniS(ByVal SectionName As String, ByVal KeyWord As String, _
ByVal ValStr As String)
Dim res As Integer
res = WritePrivateProfileString(SectionName, KeyWord, ValStr, InifileName)
End Sub
'写数字入ini文件里
Public Sub SetIniN(ByVal SectionName As String, ByVal KeyWord As String, _
ByVal ValInt As Integer)
Dim res As Integer, s As String
s = Str$(ValInt)
res = WritePrivateProfileString(SectionName, KeyWord, s$, InifileName)
End Sub
'例
'用ini文件保存窗体属性
Public Sub SFP(frmname As Form)
On Error Resume Next
SetIniN frmname.name, "top", frmname.Top
SetIniN frmname.name, "left", frmname.Left
SetIniN frmname.name, "width", frmname.width
SetIniN frmname.name, "height", frmname.Height
SetIniN frmname.name, "windowstate", frmname.WindowState
End Sub
'从ini文件中读取窗体属性
Public Sub GfP(frmname As Form)
On Error Resume Next
Dim itemp As Integer

itemp = GetIniN(frmname.name, "width", 0)
If itemp <> 0 Then
frmname.width = GetIniN(frmname.name, "width", 0)
End If
itemp = GetIniN(frmname.name, "height", 0)
If itemp <> 0 Then
frmname.Height = GetIniN(frmname.name, "height", 0)
End If
frmname.Top = GetIniN(frmname.name, "top", (Screen.Height - frmname.Height) / 2)
frmname.Left = GetIniN(frmname.name, "left", (Screen.width - frmname.width) / 2)
frmname.WindowState = GetIniN(frmname.name, "windowstate", 0)
End Sub

我要把VB.6中保存的数据写进.INI文件，请问怎么实现？在线等待

相关推荐