欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

高分求问这代码如何破译

更新时间: 2014-01-05 01:50:13 责任编辑: Author_N1

 

高分求问这代码怎么破译?
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 function
 
'decodechrw("encode.txt")''这句不需要了,从文件夹中获取
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder1 = objFSO.GetFolder("H:\other2013\AA001v2")'这样就行了
 
For Each objFile in objFolder1.Files
  Response.Write "Name: " & objFile.Name & "   "
  decodechrw( objFile.Name)'循环调用解码函数,生成对应的_decode文件,就是生成另外一个解码过的文件,为原来的文件名称上增加了_decode,如xxx.asp,解码后的文件名为xxx_decode.asp
Next
set objFolder1=nothing
set objFSO=nothing
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:50:13
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1791/
本文WWW.DOC100.NET DOC100.NET版权所有。