如何实现VB程序登录密码加密

　　Dim Shift1 As Long

　　Dim Shift2 As Long

　　Dim i As Integer

　　Dim Str_len As Integer

　　得到字符串内字符的数目

　　Str_len = Len(Password)

　　给每个字符转换成密码数字

　　For i = 1 To Str_len

　　ch = Asc(Mid$(Password, i, 1))

　　Value = Value Xor (ch * 2 ^ Shift1)

　　Value = Value Xor (ch * 2 ^ Shift2)

　　Shift1 = (Shift1 7) Mod 19

　　Shift2 = (Shift2 13) Mod 23

　　Next i

　　NumericPassword = ValueEnd Function

　　本程序在Windows98SE VB5.0中运行通过。

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!