modlibrary.bas

一个完整的图书管理系统

Attribute VB_Name = "ModLibrary"
Option Explicit
Public CNnLibrary As ADODB.Connection
Public Frmuster As Form
Public OperSQLsTring As String
Public operSQLcancel As Boolean
Public optSel As Integer
Public ServerName As String


Public Function passEncrypt_Decrypt(strENC As String) As String
    Dim num As Integer
    Dim strSTR As String
    strSTR = Empty
    For num = 1 To Len(strENC)
        strSTR = strSTR & Chr(Asc(Mid(strENC, num, 1)) Xor 127)
    Next
    passEncrypt_Decrypt = strSTR
    
End Function '加密/解密


Public Function RightsEncrypt(strRIgENC As String) As String
    Dim intNum As Variant
    Dim intNumOut(1 To 7) As Integer
    Dim intI As Integer
    Dim intVal As Integer
    
    intNum = Array(4, 2, 1, 8, 4, 2, 1)
    
    For intI = 1 To 7
        intNumOut(intI) = Val(Mid(strRIgENC, intI, 1)) * intNum(intI - 1)
    Next
    
    For intI = 1 To 3
        intVal = intVal + intNumOut(intI)
    Next
        intVal = intVal * 16
        
    For intI = 4 To 7
        intVal = intVal + intNumOut(intI)
    Next
    
    RightsEncrypt = Chr(intVal)
    
    
End Function '加密

Public Function RightsDecrypt(strDEC As String) As String
    Dim intDECn As Integer
    Dim intS As Variant
    Dim strS As String
    Dim strReDec As String
    Dim numI As Integer
    intDECn = Asc(strDEC)
    Do
        intS = intDECn Mod 2
        intDECn = intDECn / 2
        strS = strReDec & intS
        
    Loop Until intDECn = 0
    For numI = 1 To Len(strS)
        'hhh
    Next
    
End Function '解密