<%
'本代码由 常州红金羚软件技术有限公司 创建
'创建时间:2016-10-15 15:20:27
'联系信息:手机：400-6655-868 QQ：15916190
'请勿修改下列任何代码,以保证程序正常运行

Dim YYYYYS,YYYYYY,YSSSSSS,YSSSSSY,YSSSSYS
Set YSSSSSS=Response:Set YYYYYY=Request:Set YSSSSYS=Session:Set YYYYYS=Application:Set YSSSSSY=Server
Class YSYSSSY
Private Function YSSSSYY(ByRef pBytWord1Ary, ByRef pBytWord2Ary)
Dim lBytWordAry(3)
Dim lLngIndex
For lLngIndex = 0 To 3
lBytWordAry(lLngIndex) = CByte(pBytWord1Ary(lLngIndex) And pBytWord2Ary(lLngIndex))
Next
YSSSSYY = lBytWordAry
End Function
Private Function YSSSYSS(ByRef pBytWord1Ary, ByRef pBytWord2Ary)
Dim lBytWordAry(3)
Dim lLngIndex
For lLngIndex = 0 To 3
lBytWordAry(lLngIndex) = CByte(pBytWord1Ary(lLngIndex) Or pBytWord2Ary(lLngIndex))
Next
YSSSYSS = lBytWordAry
End Function
Private Function YSSSYSY(ByRef pBytWord1Ary, ByRef pBytWord2Ary)
Dim lBytWordAry(3)
Dim lLngIndex
For lLngIndex = 0 To 3
lBytWordAry(lLngIndex) = CByte(pBytWord1Ary(lLngIndex) Xor pBytWord2Ary(lLngIndex))
Next
YSSSYSY = lBytWordAry
End Function
Private Function YSSSYYS(ByRef pBytWordAry)
Dim lBytWordAry(3)
Dim lLngIndex
For lLngIndex = 0 To 3
lBytWordAry(lLngIndex) = Not CByte(pBytWordAry(lLngIndex))
Next
YSSSYYS = lBytWordAry
End Function
Private Function YSSSYYY(ByRef pBytWord1Ary, ByRef pBytWord2Ary)
Dim lLngIndex
Dim lIntTotal
Dim lBytWordAry(3)
For lLngIndex = 3 To 0 Step - (36 * 87 - 3131)
If lLngIndex = 3 Then
lIntTotal = CInt(pBytWord1Ary(lLngIndex)) + pBytWord2Ary(lLngIndex)
lBytWordAry(lLngIndex) = lIntTotal Mod (99 * 18 - 1526)
Else
lIntTotal = CInt(pBytWord1Ary(lLngIndex)) + pBytWord2Ary(lLngIndex) + (lIntTotal \ 256)
lBytWordAry(lLngIndex) = lIntTotal Mod (99 * 18 - 1526)
End If
Next
YSSSYYY = lBytWordAry
End Function
Private Function YSSYSSS(ByRef pBytWordAry, ByRef pLngShift)
Dim lDbl1
Dim lDbl2
lDbl1 = YSSYYSS(pBytWordAry)
lDbl2 = lDbl1
lDbl1 = CDbl(lDbl1 * (2 ^ pLngShift))
lDbl2 = CDbl(lDbl2 / (2 ^ (32 - pLngShift)))
YSSYSSS = YSSSYSS(YSSYSYY(lDbl1), YSSYSYY(lDbl2))
End Function
Private Function YSSYSSY(ByRef pBytWordAry)
Dim lLngIndex
For lLngIndex = 0 To 3
YSSYSSY = YSSYSSY & Right("0" & Hex(pBytWordAry(lLngIndex)), 2)
Next
End Function
Private Function YSSYSYS(ByRef pStrHex)
YSSYSYS = YSSYSYY(CDbl(YSYSSSS("U9") & pStrHex))
End Function
Private Function YSSYSYY(ByRef pDblValue)
Dim lBytWordAry(3)
lBytWordAry(0) = Int(YSSYYSY(pDblValue, 2 ^ 32) / (2 ^ 24))
lBytWordAry(1) = Int(YSSYYSY(pDblValue, 2 ^ 24) / (2 ^ 16))
lBytWordAry(2) = Int(YSSYYSY(pDblValue, 2 ^ 16) / (2 ^ 8))
lBytWordAry(3) = Int(YSSYYSY(pDblValue, 2 ^ 8))
YSSYSYY = lBytWordAry
End Function
Private Function YSSYYSS(ByRef pBytWordAry)
YSSYYSS = CDbl((pBytWordAry(0) * (2 ^ 24)) + (pBytWordAry(1) * (2 ^ 16)) + (pBytWordAry(2) * (2 ^ 8)) + pBytWordAry(3))
End Function
Private Function YSSYYSY(ByRef pDblValue, ByRef pDblDivisor)
Dim lDblMod
lDblMod = CDbl(CDbl(pDblValue) - (Int(CDbl(pDblValue) / CDbl(pDblDivisor)) * CDbl(pDblDivisor)))
If lDblMod < 0 Then
lDblMod = CDbl(lDblMod + pDblDivisor)
End If
YSSYYSY = lDblMod
End Function
Private Function YSSYYYS( _
ByRef lIntT, _
ByRef pBytWordBAry, _
ByRef pBytWordCAry, _
ByRef pBytWordDAry _
)
If lIntT <= 19 Then
YSSYYYS = YSSSYSS(YSSSSYY(pBytWordBAry, pBytWordCAry), YSSSSYY((YSSSYYS(pBytWordBAry)), pBytWordDAry))
ElseIf lIntT <= 39 Then
YSSYYYS = YSSSYSY(YSSSYSY(pBytWordBAry, pBytWordCAry), pBytWordDAry)
ElseIf lIntT <= 59 Then
YSSYYYS = YSSSYSS(YSSSYSS(YSSSSYY(pBytWordBAry, pBytWordCAry), YSSSSYY(pBytWordBAry, pBytWordDAry)), YSSSSYY(pBytWordCAry, pBytWordDAry))
Else
YSSYYYS = YSSSYSY(YSSSYSY(pBytWordBAry, pBytWordCAry), pBytWordDAry)
End If
End Function
Public Function YSSYYYY(ByVal pStrMessage)
Dim lLngLen
Dim lBytLenW
Dim lStrPadMessage
Dim lLngNumBlocks
Dim lVarWordWAry(79)
Dim lLngTempWordWAry
Dim lStrBlockText
Dim lStrWordText
Dim lLngBlock
Dim lIntT
Dim lBytTempAry
Dim lVarWordKAry(3)
Dim lBytWordH0Ary
Dim lBytWordH1Ary
Dim lBytWordH2Ary
Dim lBytWordH3Ary
Dim lBytWordH4Ary
Dim lBytWordAAry
Dim lBytWordBAry
Dim lBytWordCAry
Dim lBytWordDAry
Dim lBytWordEAry
Dim lBytWordFAry
lLngLen = Len(pStrMessage)
lBytLenW = YSSYSYY(CDbl(lLngLen) * 8)
lStrPadMessage = pStrMessage & Chr(128) & String((128 - (lLngLen Mod 64) - 9) Mod 64, Chr(0)) & _
String(4, Chr(0)) & Chr(lBytLenW(0)) & Chr(lBytLenW(1)) & Chr(lBytLenW(2)) & Chr(lBytLenW(3))
lLngNumBlocks = Len(lStrPadMessage) / (13 * 66 - 794)
lVarWordKAry(0) = YSSYSYS(YSYSSSS("dpgafhhh"))
lVarWordKAry(1) = YSSYSYS(YSYSSSS("etshtqp`"))
lVarWordKAry(2) = YSSYSYS(YSYSSSS("gu`qqrsr"))
lVarWordKAry(3) = YSSYSYS(YSYSSSS("rpear`se"))
lBytWordH0Ary = YSSYSYS("67452301")
lBytWordH1Ary = YSSYSYS(YSYSSSS("turspqgh"))
lBytWordH2Ary = YSSYSYS(YSYSSSS("hgqpsrut"))
lBytWordH3Ary = YSSYSYS("10325476")
lBytWordH4Ary = YSSYSYS(YSYSSSS("rbsat`u_"))
For lLngBlock = 0 To lLngNumBlocks - (36 * 87 - 3131)
lStrBlockText = Mid(lStrPadMessage, (lLngBlock * 64) + 1, 64)
For lIntT = 0 To 15
lStrWordText = Mid(lStrBlockText, (lIntT * 4) + 1, 4)
lVarWordWAry(lIntT) = Array(Asc(Mid(lStrWordText, 1, 1)), Asc(Mid(lStrWordText, 2, 1)), Asc(Mid(lStrWordText, 3, 1)), Asc(Mid(lStrWordText, 4, 1)))
Next
For lIntT = 16 To 79
lVarWordWAry(lIntT) = YSSYSSS(YSSSYSY(YSSSYSY(YSSSYSY(lVarWordWAry(lIntT - 3), lVarWordWAry(lIntT - 8)), lVarWordWAry(lIntT - 14)), lVarWordWAry(lIntT - 16)), 1)
Next
lBytWordAAry = lBytWordH0Ary
lBytWordBAry = lBytWordH1Ary
lBytWordCAry = lBytWordH2Ary
lBytWordDAry = lBytWordH3Ary
lBytWordEAry = lBytWordH4Ary
For lIntT = 0 To 79
lBytWordFAry = YSSYYYS(lIntT, lBytWordBAry, _
lBytWordCAry, lBytWordDAry)
lBytTempAry = YSSSYYY(YSSSYYY(YSSSYYY(YSSSYYY(YSSYSSS(lBytWordAAry, 5), lBytWordFAry), lBytWordEAry), lVarWordWAry(lIntT)), lVarWordKAry(lIntT \ 20))
lBytWordEAry = lBytWordDAry
lBytWordDAry = lBytWordCAry
lBytWordCAry = YSSYSSS(lBytWordBAry, 30)
lBytWordBAry = lBytWordAAry
lBytWordAAry = lBytTempAry
Next
lBytWordH0Ary = YSSSYYY(lBytWordH0Ary, lBytWordAAry)
lBytWordH1Ary = YSSSYYY(lBytWordH1Ary, lBytWordBAry)
lBytWordH2Ary = YSSSYYY(lBytWordH2Ary, lBytWordCAry)
lBytWordH3Ary = YSSSYYY(lBytWordH3Ary, lBytWordDAry)
lBytWordH4Ary = YSSSYYY(lBytWordH4Ary, lBytWordEAry)
Next
YSSYYYY = _
YSSYSSY(lBytWordH0Ary) & _
YSSYSSY(lBytWordH1Ary) & _
YSSYSSY(lBytWordH2Ary) & _
YSSYSSY(lBytWordH3Ary) & _
YSSYSSY(lBytWordH4Ary)
End Function
End Class
Function YSYSSSS(ByVal c)
Dim v, i, n
c = Replace(c, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For i = 1 To Len(c)
If i <> n Then
v = AscW(Mid(c, i, 1))
If v >= 33 And v <= 79 Then
YSYSSSS = YSYSSSS & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
YSYSSSS = YSYSSSS & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = YSYSSSS("o") Then YSYSSSS = YSYSSSS & ChrW(v + 5) Else YSYSSSS = YSYSSSS & Mid(c, i, 1)
End If
End If
Next
End Function
%>