字符串加密问题

jimqiu 2000-08-31 05:42:00
请问各位大虾,有什么好的加密(解密)字符串的函数吗?
...全文
130 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
fuzhanyu 2000-08-31
  • 打赏
  • 举报
回复
自己随便写一个算法,放到函数里。加密时调用
Public Function JsLogin(Login As String) As Long
'加密口令

Dim bao As Integer
Dim Lengh As String
Dim i As Integer

bao = 0

Login = UCase(Trim(Login))

If VarType(Login) = vbEmpty Or VarType(Login) = vbNull Then
JsLogin = 0
Else
Lengh = Len(Login)
For i = 1 To Lengh
bao = bao + (Asc(Mid(Login, i, 1)) + i) * i
Next
JsLogin = bao + 1000
End If

End Function
  • 打赏
  • 举报
回复
关注!
jianjun_ding 2000-08-31
  • 打赏
  • 举报
回复
自己些吗
请看RAS算法吧
www.ras.com 去看资料吧
jimqiu 2000-08-31
  • 打赏
  • 举报
回复
对了,一定要支持汉字哦!

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧