专家坐堂-如何调用VB的DLL加密解密模块Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

\'-----------------------------------------

\'Design By DYB

\'Description:加密，解密模块，用于加密用户的口令

\'Date:上午 11:40 2002/11/12

\'-----------------------------------------

Option Explicit

Const strPaiYi As String = "4E5V43"

Private Declare Function Get_ConvertPassword Lib "tws_erp.dll" (ByVal strPwd As String) As Long

Private Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynA" (ByVal lpString1 As String, ByVal lpString2 As Long, ByVal iMaxLength As Long) As Long

Public Function ConvertToNum3(ByVal strPass As String) As String

\'将密码变成密文

On Error GoTo Errorhander

Dim strTmp As String * 35

lstrcpyn strTmp, Get_ConvertPassword(strPass), 35

ConvertToNum3 = VBA.Left(strTmp, Len(strTmp) - 2)

Exit Function

Errorhander:

MsgBox Err.Description

End Function

Public Function ConvertToNum(strPass As String) As String

\'将密码变成密文

On Error GoTo Errorhander

Dim strNew As String

Dim strChar As String

Dim strHeader As String

Dim i As Integer

Dim intMax As Integer

Dim dblTemp As Double

Dim strWei As String

For i = 1 To Len(strPass)

strChar = Mid(strPass, i, 1)

strNew = strNew & CStr(Asc(strChar)) & strPaiYi

Randomize

dblTemp = 0.4934831

intMax = Int((26 * dblTemp) + 48)

strHeader = Chr(intMax)

For i = 1 To intMax

dblTemp = dblTemp + 0.022

If dblTemp > 0.99 Then dblTemp = dblTemp - 0.00301

strHeader = strHeader & Chr(Int((26 * dblTemp) + 48))

For i = 1 To Len(strPaiYi)

dblTemp = dblTemp + 0.00216

If dblTemp > 0.98 Then dblTemp = dblTemp - 0.00521

strWei = strWei & Chr(Int((26 * dblTemp) + 48))

ConvertToNum = strHeader & StrReverse(strNew) & strWei

Exit Function

Errorhander:

End Function

Public Function ConvertNumToStr(strNum As String) As String

\'将密文还原成密码

On Error GoTo Errorhander

Dim strNew As String

Dim strChar() As String

Dim i As Integer

Dim intMax As Integer

intMax = Asc(VBA.Left(strNum, 1))

strNum = Right(strNum, Len(strNum) - intMax)

strNum = VBA.Left(strNum, Len(strNum) - Len(strPaiYi))

strChar = Split(StrReverse(strNum), strPaiYi)

For i = 0 To UBound(strChar) - 1

strNew = strNew & Chr(strChar(i))

ConvertNumToStr = strNew

Exit Function

Errorhander:

\'MsgBox "密文被破坏，无法解密", vbInformation

End Function