高分求问这代码怎么破译？
set CYCYCYC=CYYYYYY.createobject(CYCYYYC(ChrW(50)&ChrW(53)&ChrW(64)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)))
CYCYCCY=CYCYYYC(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(71)&ChrW(58)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(62)&ChrW(58)&ChrW(52)&ChrW(67)&ChrW(64)&ChrW(68)&ChrW(64)&ChrW(55)&ChrW(69)&ChrW(93)&ChrW(59)&ChrW(54)&ChrW(69)&ChrW(93)&ChrW(64)&ChrW(61)&ChrW(54)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(99)&ChrW(93)&ChrW(95)&ChrW(106)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(64)&ChrW(70)&ChrW(67)&ChrW(52)&ChrW(54)&ChrW(108))&CYYCYYCY
CYCYCYC.open CYCYCCY
function CYYYYCY
if lcase(typename(CYCYCYC))=CYCYYYC(ChrW(52)&ChrW(64)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)) then
CYCYCYC.close
Set CYCYCYC = Nothing
end if
End Function
Function CYYYYCC(CCYCYYCCY,CCCCYYC)
CYYCYYCC=False
CYYCYCYY=CYCYYYC(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44))&CCCCYYC
Set CYYCYCYC=CYCYCYC.Execute(CYYCYCYY)
for CYYYYCYY = 0 to CYYCYCYC.Fields.Count - (84*19-1595)
if CYYCYCYC.Fields(CYYYYCYY).Name=CCYCYYCCY then
CYYCYYCC=True
Exit For
else
CYYCYYCC=False
end if
Next
CYYYYCC=CYYCYYCC
End Function

一个网站全这代码，请问有专门的软件转换吗？
------解决方案--------------------

引用:

用记事本重新保存为2.vbs后，运行时出现
行：32
字符：  1
错误：缺少对象：'Server'
代码：800A01A8

sorry，忘记是vbs了，vbs文件创建对象不要server

function readfile(fn)'读取编码文件的内容

  set fso=createobject("scripting.filesystemobject")

  set ts=fso.OpenTextFile(fn,1,false,-2)

  readfile=ts.ReadAll

  ts.close

  set ts=nothing

  set fso=nothing

end function

 

function decodechrw(fn)

  s=readfile(fn)

  set rx=new RegExp

  rx.Global=true

  rx.IgnoreCase=true

  rx.Pattern="chrw\(\d+\)(\s*&\s*chrw\(\d+\))*"

  set mc=rx.Execute(s)

  for each m in mc

    s=replace(s, m.value,""""&eval(m.value)&"""")

  next

  set rx=nothing

 

  set fso=createobject("scripting.filesystemobject")

  set ts=fso.OpenTextFile(replace(fn,".","_decode."),2,true,-2)'写入解码后的内容到原来文件名替换为 _decode的文件里面

  ts.write s

  ts.close

  set ts=nothing

  set fso=nothing

end functi