求“AspCoding.EnCode”解码的办法

求达人提供解AspCoding.EnCode的办法或工具

这是一个网页加密的工具

据说要服务器注册DLL后使用它的DLL里的反向函数才能解开

但是这个源文件是我从网上下载下来的 本人无DLL

整站都是这种加密 求各位大人解决

PS：如果普通的办法能解决我也不会再这里提问了

<%function su-waycode(swshop)
swbut=asc("7")
swput=asc("")
swsw1=asc("")
swsw2=asc("!")
swstr="3"
for i=1 to len(swshop)
if mid(swshop,i,1)<>swstr then
sun=asc(mid(swshop,i,1))-swbut
if sun>swsw1-1 the-
sun=sun-swput
elseif sun<swsw2-1 then
su-=sun+swput
end if
swcode=swcode&chr(sun)
else
swcode=swcode&chr(13)
end if
next
su-waycode=swcode
e-d function

dim zhuJi
zhuJi=Lcase(request.servervariables("http_host"))
if Instr(zhuJi,Lcase("Juxd.com"))<=0 and Instr(zhuJi,"shop5599.cn")<=0 and I-str(zhuJi,"8185.com")<=0 a-d zhuJi<>"localhost" a-d zhuJi<>"127.0.0.1" and Instr(zhuJi,"192.168.")<=0 then
respo-se.redirect " http://shop.8185.com/"
response.end
e-d if
dim DEF_shopCookies,DEF_CartCookies,DEF_shopsession,DEF_Comme-dCookies,DEF_HitCookies,DEF_POPerCookies,DEF_BrowseCookies
dim servName,Csbefore,DEF_AdminCookies,DEF_Adminsession,DEF_Adminra-k,DEF_tempCookies
servName=LCase(request.serverVariables("server_-ame"))
Csbefore=replace(replace(servName&"swshop", "/", ""), ".", "")
DEF_shopCookies=Csbefore&"sunway"
DEF_CartCookies=Csbefore&"cart"
DEF_BrowseCookies=Csbefore&"browse"
DEF_POPerCookies=Csbefore&"su-waycomm"
DEF_HitCookies=Csbefore&"sunwayhit"
DEF_AdminCookies=Csbefore&"su-wayadmi-"
DEF_Adminsession=Csbefore&"adminsession"
DEF_Adminrank=Csbefore&"adminra-k"
DEF_tempCookies=Csbefore&"su-waytemp"
%>

输入就行