password.bas

来自「大型商业学分统计系统原代码说明 1.如果在向导设置班级数为8时,此数值为班级总数」· BAS 代码 · 共 41 行

Attribute VB_Name = "ModPassword"
Option Explicit
'将你输入的每个字符转换成密码数字
Public Function Fun_NumericPassword(ByVal Password As String) As Long
    Dim nValue As Long
    Dim ch As Long
    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))
        nValue = nValue Xor (ch * 2 ^ Shift1)
        nValue = nValue Xor (ch * 2 ^ Shift2)
        Shift1 = (Shift1 + 7) Mod 19
        Shift2 = (Shift2 + 13) Mod 23
    Next i
    Fun_NumericPassword = nValue
End Function
Public Function Fun_OpenDatFile(i As Boolean) As String
    On Error Resume Next
    Dim LoadFiles As String
    Dim Filenum As Integer
    Dim StrTarget As String, NumTarget As Integer
    LoadFiles = "fw.dl"
    Filenum = FreeFile
    '读取加密文件
    Open LoadFiles For Random As Filenum
    Get #Filenum, 1, StrTarget '读取密码
    Get #Filenum, 2, NumTarget '启动密码登录开关
    Close Filenum
    If i = True Then
        Fun_OpenDatFile = StrTarget '读取密码
    Else
        Fun_OpenDatFile = NumTarget '启动密码登录开关
    End If
End Function