lxy 3.0php网络验证,飘零网络验证系统金盾3.0WEB源码(和谐版)下载

[AppleScript] 纯文本查看 复制代码

Function Crypt(pLngMessage, pLngKey)

On Error Resume Next

Dim lLngMod

Dim lLngResult

Dim lLngIndex

If pLngKey Mod 2 = 0 Then

lLngResult = 1

For lLngIndex = 1 To pLngKey / 2

lLngMod = (pLngMessage ^ 2) Mod Modulus

lLngResult = (lLngMod * lLngResult) Mod Modulus

If Err Then Exit Function

Next

Else

lLngResult = pLngMessage

For lLngIndex = 1 To pLngKey / 2

lLngMod = (pLngMessage ^ 2) Mod Modulus

On Error Resume Next

lLngResult = (lLngMod * lLngResult) Mod Modulus

If Err Then Exit Function

Next

End If

Crypt = lLngResult

End Function

Function Encoder(ByVal pStrMessage)

Dim lLngIndex

Dim lLngMaxIndex

Dim lBytAscii

Dim lLngEncrypted

lLngMaxIndex = Len(pStrMessage)

If lLngMaxIndex = 0 Then Exit Function

For lLngIndex = 1 To lLngMaxIndex

lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))

lLngEncrypted = Crypt(lBytAscii, PublicKey)

Encoder = Encoder & NumberToHex(lLngEncrypted, 4)

Next

End Function

Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)

NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)

End Function

%>