EnTiFvAz 文件解密

请高手把一下代码解一下密，网上找的方法不合适。

第一部分：

<%

Response.Addheader "Content-Type","text/html; charset=gb2312"

Dim action,subAction,arrList,otype

Dim strNormal,strAdmin,strCounter,strToPrint

Dim conn,connstr,MDBPath

Accsql=""&Accsql&""

set rs=server.CreateObject("adodb.recordset")

Set conn = Server.CreateObject("ADODB.Connection")

MDBPath = Server.MapPath(""&DataPath&"")

if Accsql="0" then

	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MDBPath

elseif Accsql="1" then

	Conn.open "Provider=SQLOLEDB;Data Source="&Data_Source&";User ID="&Data_User&";Password="&Data_Password&";Initial Catalog="&Data_Catalog&""

end if



if Keeponline = 1 then

Session(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69))) = Request.Cookies(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)))

Session(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))) = Request.Cookies(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))

Session(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(70)&ChrW(120)&ChrW(53))) = Request.Cookies(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(70)&ChrW(120)&ChrW(53)))

Session(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(61)&ChrW(54)&ChrW(71)&ChrW(54)&ChrW(61))) = Request.Cookies(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(61)&ChrW(54)&ChrW(71)&ChrW(54)&ChrW(61)))

Session(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(56)&ChrW(67)&ChrW(64)&ChrW(70)&ChrW(65))) = Request.Cookies(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(56)&ChrW(67)&ChrW(64)&ChrW(70)&ChrW(65)))

Session(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(66)&ChrW(73))) = Request.Cookies(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(66)&ChrW(73)))

Session(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(124)&ChrW(35))) = Request.Cookies(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(124)&ChrW(35)))

end if

if Session(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(61)&ChrW(54)&ChrW(71)&ChrW(54)&ChrW(61)))<>"" then

arrUser = getUserList(Session(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(61)&ChrW(54)&ChrW(71)&ChrW(54)&ChrW(61))),Session(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(56)&ChrW(67)&ChrW(64)&ChrW(70)&ChrW(65))),Session(EnTiFvAz(ChrW(114)&ChrW(35)&ChrW(124)&ChrW(48)&ChrW(124)&ChrW(35))))

end if

DriveInfo = UCase(md5(Lcase(Request.ServerVariables(EnTiFvAz(ChrW(112)&ChrW(33)&ChrW(33)&ChrW(123)&ChrW(48)&ChrW(124)&ChrW(115)&ChrW(48)&ChrW(33)&ChrW(112)&ChrW(37)&ChrW(119)))),16))

if Request.Cookies(EnTiFvAz(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(95))) = "" or Request.Cookies(EnTiFvAz(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(96))) = "" or Request.Cookies(EnTiFvAz(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(97))) = "" or Request.Cookies(EnTiFvAz(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(98))) = "" or Request.Cookies(EnTiFvAz(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(99))) = "" or Request.Cookies(EnTiFvAz(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(100))) = "" then

on error resume next

set Http=server.createobject(EnTiFvAz(ChrW(124)&ChrW(36)&ChrW(-243)&ChrW(41)&ChrW(62)&ChrW(61)&ChrW(97)&ChrW(93)&ChrW(41)&ChrW(62)&ChrW(61)&ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)))

Http.open EnTiFvAz(ChrW(118)&ChrW(116)&ChrW(37)),EnTiFvAz(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(69)&ChrW(67)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(93)&ChrW(52)&ChrW(67)&ChrW(62)&ChrW(60)&ChrW(70)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)&ChrW(114)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(94)&ChrW(110)&ChrW(68)&ChrW(63)&ChrW(108))&SystemNumber&"",false

Http.send()

Datasources = replace(BytesToBstr(http.responseBody,EnTiFvAz(ChrW(56)&ChrW(51)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97))),chr(10),"")

arrdata = split(Datasources,EnTiFvAz(ChrW(91)))

set http=nothing

Response.Cookies(EnTiFvAz(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(95))) = arrdata(0)

Response.Cookies(EnTiFvAz(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(96))) = arrdata(1)

Response.Cookies(EnTiFvAz(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(97))) = arrdata(2)

Response.Cookies(EnTiFvAz(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(98))) = arrdata(3)

Response.Cookies(EnTiFvAz(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(99))) = arrdata(4)

Response.Cookies(EnTiFvAz(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(100))) = arrdata(5)

'===========================test test test

end if

Function IsObjInstalled(strClassString)

On Error Resume Next

IsObjInstalled = False

Err = (98*79-7742)

Dim xTestObj

Set xTestObj = Server.CreateObject(strClassString)

If 0 = Err Then IsObjInstalled = True

Set xTestObj = Nothing

Err = (98*79-7742)

End Function

Function Mydb(MySqlstr,MyDBType)

Select Case MyDBType

Case 1 : Set Mydb = Conn.Execute(MySqlstr) : Dataquery = Dataquery + (45*27-1214)

End Select

End Function

Function BytesToBstr(body,Cset)

dim objstream

set objstream = Server.CreateObject(EnTiFvAz(ChrW(50)&ChrW(53)&ChrW(64)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(62)))

objstream.Type = (45*27-1214)

objstream.Mode = (29*47-1360)

objstream.Open

objstream.Write body

objstream.Position = (98*79-7742)

objstream.Type = (59*92-5426)

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

Dim url1,url2,url3,httpurl

url1=Request.Servervariables(EnTiFvAz(ChrW(70)&ChrW(67)&ChrW(61)))

url2=InstrRev(url1,EnTiFvAz(ChrW(94)))

url3=len(url1)

httpurl=Right(url1,url3-url2)

function clearWord(html)

dim regEx

set regEx=New RegExp

regEx.IgnoreCase=True

regEx.Global=True

regEx.Pattern=EnTiFvAz(ChrW(107)&ChrW(44)&ChrW(47)&ChrW(109)&ChrW(46)&ChrW(89)&ChrW(109))

html = regEx.replace(html,"" )

regEx.Pattern=EnTiFvAz(ChrW(76)&ChrW(44)&ChrW(47)&ChrW(78)&ChrW(46)&ChrW(89)&ChrW(78))

html = regEx.replace(html,"" )

regEx.Pattern=EnTiFvAz(ChrW(94)&ChrW(44)&ChrW(47)&ChrW(94)&ChrW(46)&ChrW(89)&ChrW(94))

html = regEx.replace(html,"" )

html =Replace(html,EnTiFvAz(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)),"")

html =Replace(html,EnTiFvAz(ChrW(32)&ChrW(44)),"")

html =Replace(html,EnTiFvAz(ChrW(12288)&ChrW(44)),"")

html =Replace(html,Chr(13),"")

clearWord= html

set regEx=nothing

end function

Function replacexls(str)

str = Replace(str,EnTiFvAz(ChrW(91)),EnTiFvAz(ChrW(-244)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(106)),EnTiFvAz(ChrW(-229)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(107)),EnTiFvAz(ChrW(12298)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(109)),EnTiFvAz(ChrW(12299)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(80)),EnTiFvAz(ChrW(-255)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(111)),EnTiFvAz(ChrW(-224)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(82)),EnTiFvAz(ChrW(-253)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(83)),EnTiFvAz(ChrW(-27)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(84)),EnTiFvAz(ChrW(-251)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(47)),EnTiFvAz(ChrW(8230)&ChrW(44)&ChrW(8230)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(85)),EnTiFvAz(ChrW(-250)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(89)),EnTiFvAz(ChrW(215)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(87)),EnTiFvAz(ChrW(-248)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(88)),EnTiFvAz(ChrW(-247)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(48)),EnTiFvAz(ChrW(8212)&ChrW(44)&ChrW(8212)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(90)),EnTiFvAz(ChrW(-245)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(77)),EnTiFvAz(ChrW(-164)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(110)),EnTiFvAz(ChrW(-225)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(44)),EnTiFvAz(ChrW(12304)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(46)),EnTiFvAz(ChrW(12305)&ChrW(44)))

str = Replace(str,chr(10),"")

str = Replace(str,chr(13),"")

replacexls = str

End Function

Function htmlEncode2(str)

If IsEmpty(str) Or str = "" Then

htmlEncode2 = EnTiFvAz(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106))

Else

str = Replace(str,EnTiFvAz(ChrW(109)),EnTiFvAz(ChrW(85)&ChrW(56)&ChrW(69)&ChrW(106)))

str = Replace(str,EnTiFvAz(ChrW(107)),EnTiFvAz(ChrW(85)&ChrW(61)&ChrW(69)&ChrW(106)))

str = Replace(str,EnTiFvAz(ChrW(86)),EnTiFvAz(ChrW(85)&ChrW(66)&ChrW(70)&ChrW(64)&ChrW(69)&ChrW(106)))

str = Replace(str,Chr(13),EnTiFvAz(ChrW(107)&ChrW(51)&ChrW(67)&ChrW(109)))

str = Replace(str,VBCrlf,EnTiFvAz(ChrW(107)&ChrW(51)&ChrW(67)&ChrW(109)))

str = Replace(str,EnTiFvAz(ChrW(32)&ChrW(44)),EnTiFvAz(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)))

str = Replace(str,EnTiFvAz(ChrW(91)),EnTiFvAz(ChrW(93)))

htmlEncode2 = str

End If

End Function

Function htmlEncode3(str)

If IsEmpty(str) Or str <> "" Then

str = Replace(str,EnTiFvAz(ChrW(85)&ChrW(66)&ChrW(70)&ChrW(64)&ChrW(69)&ChrW(106)),EnTiFvAz(ChrW(86)))

str = Replace(str,EnTiFvAz(ChrW(107)&ChrW(51)&ChrW(67)&ChrW(109)),Chr(13))

str = Replace(str,EnTiFvAz(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)),EnTiFvAz(ChrW(32)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(85)&ChrW(56)&ChrW(69)&ChrW(106)),EnTiFvAz(ChrW(109)))

str = Replace(str,EnTiFvAz(ChrW(85)&ChrW(61)&ChrW(69)&ChrW(106)),EnTiFvAz(ChrW(107)))

str = Replace(str,EnTiFvAz(ChrW(91)),EnTiFvAz(ChrW(93)))

End If

htmlEncode3 = str

End Function

Function htmlEncode1(str)

str = Replace(str,EnTiFvAz(ChrW(91)),EnTiFvAz(ChrW(93)))

htmlEncode1 = str

End Function

Function Searchcode(str)

str = Replace(str,EnTiFvAz(ChrW(86)),EnTiFvAz(ChrW(8217)&ChrW(44)))

str = Replace(str,EnTiFvAz(ChrW(64)&ChrW(67)),EnTiFvAz(ChrW(-177)&ChrW(44)&ChrW(-174)&ChrW(44)))

Searchcode = str

End Function