密码如何如何保存？

sndir 2003-05-11 07:03:24

我再做毕业设计，登录时候要让用户输入密码，请问这个密码该如何保存？（要加密的，不能让人一下就破解了）？保存再那里？（我想保存再注册表里，但是该以什么形式保存呢？）如果我还想记住这个密码，这样用户下次可以不用输入？该如何实现？

...全文

260 7 点赞打赏收藏举报

写回复

7 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

sndir 2003-05-11

多谢楼上的各位大哥帮忙！！
小弟知道了！

打赏
举报

回复赞

TimLee✿ 2003-05-11

注册表放加密后的字符串，反正是毕业设计，随便加点密就可以了～～

思路：把密码转换成Ascii然后加密再然后存放！

一个简单的加密，你可以自己改的复杂一点（比如再乘上个什么数）

'声明API函数和一些常量用于操作注册表
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const ERROR_SUCCESS = 0&

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String) As Long
Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal Hkey As Long, ByVal lpValueName As String) As Long
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Const REG_SZ = 1 ' Unicode nul terminated string
Public Const REG_DWORD = 4

Private Sub Cmdok_Click() '当确认被按下时

'T1,T2是两个文本框，用户输入密码和确认密码

If T1.Text <> T2.Text Then
MsgBox "两次输入的密码不一致！", vbOKOnly + vbExclamation, "出错啦！"
T1.Text = ""
T2.Text = ""
T1.SetFocus
Exit Sub
ElseIf T1.Text = "" Then
MsgBox "你没有输入密码呀？？？！！", vbOKOnly + vbExclamation, "出错啦！"
T1.Text = ""
T2.Text = ""
T1.SetFocus
Exit Sub
Else
Call Setp '调用保存密码过程
MsgBox "设置密码成功！"
Cmdok.Enabled = False
End Sub

'此过程用于加密和密码保存

Sub Setp()
passWord = T1.Text
Dim TmpI(200), i As Integer
Dim Tmp(200), PWD As String
For i = 1 To Len(passWOrd)
Tmp(i) = Mid(passWOrd, i, 1) '将密码拆开并保存到变量中等待加密
TmpI(i) = Asc(Tmp(i)) '将拆开的字符串转成ASCII码
TmpI(i) = TmpI(i) + (i * (i + 3)) '对Ascii加密你可以弄的复杂一点
TmpI(i) = Tmp(i) + 456 '这句话是让加密后的Ascii的长度达到3位，这样可以方便解密，往下看解密过程就知道了
PWD = PWD & TmpI(i) '把加密后的Ascii码连接起来，准备存到注册表里
Call saveString(HKEY_CURRENT_USER, "Software\这里的字段你自己填\我的程序", "这个是字串名", (PWD)) '我打汉字的部分你可以自己添，最好把存到Software\Microsoft里这样比较有迷惑性 ^_^

End Sub

解密过程很简单～～
用TPWD = getString(HKEY_CURRENT_USER, "Software\你自己写的项名", "字段名") '把密文读出来给TPWD