这个是解密
Dim zzmm As WinForm.TextBox = Forms("密码管理").Controls(str(i))
If r.IsNull(str(i)) = False Then
If r(str(i)).EndsWith("$c") AndAlso r(str(i)).startswith("y$") Then
Dim strs As String =r(str(i)).Trimstart("y","$").TrimEnd("$","c")
msgbox(strs)
Dim val1 As String =DecryptText(strs,"1","2")
zzmm.Value = val1
End If
End If
这个是加密 ：
Dim r As Row = Tables("密码管理").Current
If e.Sender.Value IsNot Nothing Then
If r("查询密码").startsWith("y$") AndAlso r("查询密码").EndsWith("$c") Then
Return
Else
Dim val1 As String = EncryptText(e.Sender.Value,"1","2") '加密
r("查询密码") ="y$" & val1 & "$c"
End If
End If
现在有个问题是：
Dim strs As String =r(str(i)).Trimstart("y","$").TrimEnd("$","c")
这个代码写得不对。。如果 加密后是：y$y********c$c
Trim时会切成：********，而应该切成：y********c才对。才能解密出来。
加好友 
发短信
Post By：2016/12/22 14:24:00 [只看该作者]
