高分求问这代码怎么破译？

gclwlq 2013-09-10 09:52:15
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

一个网站全这代码，请问有专门的软件转换吗？
...全文
618 29 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
29 条回复
切换为时间正序
请发表友善的回复…
发表回复
hsh6333 2013-12-03
  • 打赏
  • 举报
 回复
为什么没有人理我
hsh6333 2013-11-30
  • 打赏
  • 举报
 回复
showbo ，你好，这个问题我也遇到，上面提到的那个VBS能不能完善一下，有些内容无法替换
gclwlq 2013-09-11
  • 打赏
  • 举报
 回复
测试了一下，好像代码没转换，还是
Dim CCCCYC,CCCCCY,CCCCCC,CYYYYYY,CYYYYYC
Set CCCCCC=Response:Set CCCCCY=Request:Set CYYYYYC=Session:Set CCCCYC=Application:Set CYYYYYY=Server
Dim CYCYCYY
CYCYCYY=CYCYYYC(ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(94)&ChrW(63)&ChrW(51)&ChrW(74)&ChrW(75)&ChrW(68)&ChrW(82)&ChrW(64)&ChrW(50)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65))
Dim CYCYCYC,CYCYCCY
CYYCYYCY=CYYYYYY.mappath(CYCYCYY)
CYYYYCY()
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
function CYYYCYY(CCYCYYCCC)
CYYYYYC(CYCYYYC(ChrW(54)&ChrW(67)&ChrW(67)))=CCYCYYCCC
CCCCCC.redirect CYCYYYC(ChrW(93)&ChrW(93)&ChrW(94)&ChrW(56)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(94)&ChrW(54)&ChrW(67)&ChrW(67)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65))
End Function
这些之类的。
斯洛文尼亚旅游 2013-09-11
  • 打赏
  • 举报
 回复
set mc=rx2.Execute(s) for each m in mc s=replace(s, m.value,eval(m.value)) next 这里修改下。。是字符串，少了""括起 set mc=rx2.Execute(s) for each m in mc s=replace(s, m.value,""""&eval(m.value)&"""") next set mc=nothing
斯洛文尼亚旅游 2013-09-11
  • 打赏
  • 举报
 回复
大概写了下，可能有些内容解码不完整，但是大部分还是可以的 
set fso=createobject("scripting.filesystemobject")

set rx=new RegExp
rx.Global=true
rx.IgnoreCase=true
rx.Pattern="chrw\(-?\d+\)(&chrw\(-?\d+\))*"

'asp的正则有点小问题，替换内容很多的时候会导致rx替换不完整，分段替换后出现字符串连接问题，只好再替换一次
set rx1=new RegExp
rx1.Global=true
rx1.IgnoreCase=true
rx1.Pattern="""&"""

'用于替换需要使用CCYCCC解码的内容
set rx2=new RegExp
rx2.Global=true
rx2.IgnoreCase=true
rx2.Pattern="CCYCCC\(""[^""]+""\)"


function readfile(fn)'读取编码文件的内容
  set ts=fso.OpenTextFile(fn,1,false,-2)
  readfile=ts.ReadAll
  ts.close
  set ts=nothing
end function
  
function decodechrw(fn)
  s=readfile(fn)
  if rx.Test(s) then
    try=0
    while try<5 and rx.Test(s)
      set mc=rx.Execute(s)
      for each m in mc
        s=replace(s, m.value,""""&eval(m.value)&"""")
      next
      set mc=nothing
      try=try+1
    wend
    s=rx1.Replace(s,"")
    set mc=rx2.Execute(s)
    for each m in mc
        s=replace(s, m.value,eval(m.value))
    next
    set mc=nothing

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

Function CCYCCC(ByVal CYCCCYC)
Dim CCYCYYY, CCYCYYC, CCYCYCY
CYCCCYC = Replace(CYCCCYC, Chr(36) & ChrW(-243), Chr(36))
CYCCCYC = Replace(CYCCCYC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCYCYYC = 1 To Len(CYCCCYC)
If CCYCYYC <> CCYCYCY Then
CCYCYYY = AscW(Mid(CYCCCYC, CCYCYYC, 1))
If CCYCYYY >= 33 And CCYCYYY <= 79 Then
CCYCCC = CCYCCC & Chr(CCYCYYY + 47)
ElseIf CCYCYYY >= 80 And CCYCYYY <= 126 Then
CCYCCC = CCYCCC & Chr(CCYCYYY - 47)
Else
CCYCYCY = CCYCYYC + 1
If Mid(CYCCCYC, CCYCYCY, 1) = CCYCCC("o") Then CCYCCC = CCYCCC & ChrW(CCYCYYY + 5) Else CCYCCC = CCYCCC & Mid(CYCCCYC, CCYCYYC, 1)
End If
End If
Next
End Function


path="H:\other2013\AA001v2\"

Set objFolder1 = fso.GetFolder(path)
  
For Each objFile in objFolder1.Files
  if instr(objFile.Name,".asp")>0 and instr(objFile.Name,"_decode.asp")=0 then decodechrw(path& objFile.Name)
Next
set objFolder1=nothing


set fso=nothing
set rx=nothing
set rx1=nothing

msgbox "解码完毕"
fzfei2 2013-09-11
  • 打赏
  • 举报
 回复
引用 2 楼 fzfei2 的回复:
关键是他把 小于??的 +47 ,大于多少的-47，有一些又没处理,搞了个没全对
他不是转的有做变化，要猜出他的规律
gclwlq 2013-09-11
  • 打赏
  • 举报
 回复
里面还有类似ChrW(58)的代码，并且转换后的代码如：CCCCCC.Write(CYCYYYC("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQm") & vbCrLf) 好像乱码似的
net_php 2013-09-11
  • 打赏
  • 举报
 回复
代码保存了！顶
gclwlq 2013-09-11
  • 打赏
  • 举报
 回复
可以运行了，谢哥哥，可是运行后生成的文件如下： 
Dim CCCCYC,CCCCCY,CCCCCC,CYYYYYY,CYYYYYC
Set CCCCCC=Response:Set CCCCCY=Request:Set CYYYYYC=Session:Set CCCCYC=Application:Set CYYYYYY=Server
Dim CYCYCYY
CYCYCYY=CYCYYYC("52E2^?3JKDR@2]2DA")
Dim CYCYCYC,CYCYCCY
CYYCYYCY=CYYYYYY.mappath(CYCYCYY)
CYYYYCY()
set CYCYCYC=CYYYYYY.createobject(CYCYYYC("25@53]4@??64E:@?"))
CYCYCCY=CYCYYYC("AC@G:56Cl>:4C@D@7E];6E]@=653]c]_j52E2 ,D@FC46l")&CYYCYYCY
CYCYCYC.open CYCYCCY
function CYYYYCY
if lcase(typename(CYCYCYC))=CYCYYYC("4@??64E:@?") then
CYCYCYC.close
Set CYCYCYC = Nothing
end if
End Function
Function CYYYYCC(CCYCYYCCY,CCCCYYC)
CYYCYYCC=False
CYYCYCYY=CYCYYYC("D6=64E ,Y ,7C@> ,")&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
function CYYYCYY(CCYCYYCCC)
CYYYYYC(CYCYYYC("6CC"))=CCYCYYCCC
CCCCCC.redirect CYCYYYC(ChrW(93)&ChrW(93)&ChrW(94)&ChrW(56)&ChrW(51)&"@"&"@"&ChrW(60)&ChrW(94)&"6CC"&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65))
End Function
set CYCYCYC=CYYYYYY.createobject(CYCYYYC("ps~sq]r~}}tr%x~}"))
CYCYCYC.open CYCYYYC("AC@G:56Cl>:4C@D@7E];6E]@=653]c]_j ,52E2 ,D@FC46l") & CYYYYYY.MapPath(CYCYCYY)
set CYYCYCCY=CYYYYYY.createobject(CYCYYYC("25@53]4@??64E:@?"))
CYYCYYCY=CYYYYYY.mappath(CYCYCYY)
CYYCYCCY.open CYCYYYC("AC@G:56Cl>:4C@D@7E];6E]@=653]c]_j ,52E2 ,D@FC46l")&CYYCYYCY
const CYYYYCCY=36
const CYYYYCCC="http://sms.shop008.com/"
const CYYYCYYY ="True"
const CYYYCYYC ="False"
const CYYYCYCY="now()"
const CYYYCYCC=3
const CYYYCCYY=28
const CYYYCCYC=46
Dim CYCYCCC,CYCCYYY,CYCCYYC,CYCCYCY,CYCCYCC,CYCCCYY,CYCCCYC,CYCCCCY
CYCYCCC=CYYYYCCC&CYCYYYC("x?E6C7246^")
if CYYYYYC(CYCYYYC("D9:H6:0FD6C?2>6"))&""="" then
CCCCCC.Write(vbCrLf)
CCCCCC.Write(CYCYYYC("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQm") & vbCrLf)
CCCCCC.Write(CYCYYYC("E@A]=@42E:@?]9C67lQ]]^:?56I]2DAQ") & vbCrLf)
CCCCCC.Write(CYCYYYC("k^D4C:AEm") & vbCrLf)
CCCCCC.End()
end if
Dim CYCCCCC
const CYYYCCCY="    <span class='bold'>安全起见，请将状态设置为<span class='red'>待审或未完成</span>才能修改和删除。</span>"
const CYYYCCCC="<span title='修改单据备注'><img src='../images/rebz.jpg' alt='修改备注' style='cursor:pointer;' onClick=""javascript:var win=window.open('buy_modi_memo.asp?id=$ID$&tbl=$tbl$','修改备注','width=853,height=470,top=176,left=161,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,scrollbars=yes'); win.focus();"" /></span>"
const CYYCYYYY="<span title='请取消审核再删除'>锁定</span>"
const CYYCYYYC="    <span class='bold'>安全起见，请修改产品并将库存设置为 <span class='red'>0</span> 才能删除。</span>"
CYCCCCC=CYCYYYC("U?3DAjU?3DAjU?3DAjU?3DAjkDA2? ,4=2DDlVC65 ,3@=5Vm甬@争@俘@孓@"&ChrW(-29377)&"@斔@吉@浊@"&ChrW(-30269)&"@噣@封@"&ChrW(-32283)&"@劣@弴@凵@啁@咼@兠@庎@卐@"&ChrW(-244)&",四@歟@"&ChrW(-29710)&"@"&ChrW(-29767)&"@"&ChrW(32617)&"@"&ChrW(27978)&"@"&ChrW(-30269)&"@"&ChrW(22115)&"@"&ChrW(23540)&"@"&ChrW(22490)&"@"&ChrW(21512)&"@"&ChrW(-230)&",“,")&CCCCCY.ServerVariables(CYCYYYC("w%%!0w~$"&ChrW(-243)&"%"))&CYCYYYC("”,"&" ,"&ChrW(20796)&"@"&ChrW(-29773)&"@"&ChrW(24372)&"@"&ChrW(20981)&"@"&ChrW(31378)&"@"&ChrW(21470)&"@"&ChrW(-255)&",k^DA2?m")
CYYCYCYY=CYCYYYC("D6=64E ,Y ,7C@> ,"&ChrW(52)&"@"&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56))
set CYCCYYY=CYCYCYC.execute(CYYCYCYY)
CYCCYYC=CYCCYYY(CYCYYYC("5:2?>:?8"))
CYYCYCCC=CYCCYYY(CYCYYYC("5:2?9F2"))
CYCCYCC=CYCCYYY(CYCYYYC(ChrW(59)&ChrW(58)&ChrW(54)&ChrW(68)&ChrW(57)&ChrW(50)&"@"&ChrW(59)&ChrW(58)&ChrW(55)&ChrW(54)&ChrW(63)))
CYYCCYYY=CYCCYYY(CYCYYYC("IF9F:;:76?"))
CYCCCYY=CYCCYYY(CYCYYYC(ChrW(51)&ChrW(50)&"@"&ChrW(59)&ChrW(58)&ChrW(63)))
CYYCCYYC=CYCCYYY(CYCYYYC(ChrW(51)&ChrW(50)&"@"&ChrW(59)&ChrW(58)&ChrW(63)&ChrW(97)))
CYYCCYCY=CYCCYYY(CYCYYYC("52J:?`"))
CYYCCYCC=CYCCYYY(CYCYYYC("52J:?a"))
CYYCCCYY=CYCCYYY(CYCYYYC(ChrW(68)&ChrW(57)&"@"&ChrW(72)&ChrW(65)&ChrW(58)&ChrW(52)))
CYYCCCYC=CYCCYYY(CYCYYYC(ChrW(62)&ChrW(50)&ChrW(73)&ChrW(67)&ChrW(54)&ChrW(52)&"@"&ChrW(67)&ChrW(53)))
CYYCCCCY=CYCCYYY(CYCYYYC(ChrW(62)&ChrW(50)&ChrW(73)&ChrW(65)&ChrW(67)&"@"&ChrW(53)&ChrW(70)&ChrW(58)&ChrW(69)))
CYYCCCCC=CYCCYYY(CYCYYYC("E:B:2?"))
CYCYYYYY=CYCCYYY(CYCYYYC("496?836?;:2"))
CYCYYYYC=CYCCYYY(CYCYYYC("43;6"))
CYCYYYCY=CYCCYYY(CYCYYYC("5=;"))
CYCYYYCC=CYCCYYY(CYCYYYC("ID;"))
CYYCYCYY=CYCYYYC(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&" ,"&"BF2?I:2?"&" ,"&ChrW(55)&ChrW(67)&"@"&ChrW(62)&" ,"&ChrW(61)&"@"&ChrW(56)&ChrW(58)&ChrW(63)&" ,"&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&" ,"&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&"V")&CYYYYYC(CYCYYYC("D9:H6:0FD6C?2>6"))&CYCYYYC("V")
斯洛文尼亚旅游 2013-09-11
  • 打赏
  • 举报
 回复
path="C:\Documents and Settings\Administrator\桌面\AA001\" 路径改下，这个是我本地测试的了。。改成你的路径 path="H:\other2013\AA001v2\" 最后的\不能少
斯洛文尼亚旅游 2013-09-11
  • 打赏
  • 举报
 回复 
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,".asp","_decode.asp"),2,true,-2)'写入解码后的内容到原来文件名替换为 _decode的文件里面
  ts.write s
  ts.close
  set ts=nothing
  set fso=nothing
end function
  
path="C:\Documents and Settings\Administrator\桌面\AA001\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder1 = objFSO.GetFolder(path)
  
For Each objFile in objFolder1.Files
'只读取并解码asp文件
  if instr(objFile.Name,".asp")>0 then decodechrw(path& objFile.Name)
Next
set objFolder1=nothing
set objFSO=nothing
msgbox "解码完毕"
斯洛文尼亚旅游 2013-09-11
  • 打赏
  • 举报
 回复 
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
  
path="H:\other2013\AA001v2\"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder1 = objFSO.GetFolder(path)
  
For Each objFile in objFolder1.Files
  decodechrw(path& objFile.Name)
Next
set objFolder1=nothing
set objFSO=nothing
gclwlq 2013-09-11
  • 打赏
  • 举报
 回复
行：3 字符：3 错误：文件未找到
斯洛文尼亚旅游 2013-09-11
  • 打赏
  • 举报
 回复
引用 14 楼 gclwlq 的回复:
谢哥哥，真的不好意思，老打扰你，第36行 错误：缺少对象：'Response'
Response.Write "Name: " & objFile.Name & " "删除就行。。拷贝的是asp的代码，忘记修改了
gclwlq 2013-09-11
  • 打赏
  • 举报
 回复
谢哥哥，真的不好意思，老打扰你，第36行 错误：缺少对象：'Response'
斯洛文尼亚旅游 2013-09-11
  • 打赏
  • 举报
 回复
引用 12 楼 gclwlq 的回复:
用记事本重新保存为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
斯洛文尼亚旅游 2013-09-11
  • 打赏
  • 举报
 回复
每个页面解码函数都不一样。。。随机生成的。。我贴的那个是index.asp解码函数 其他页面的只能一个个对照解码函数来修改正则了。。 这个没空帮你弄了 你要做的就是将rx2.Pattern="CCYCCC\(""[^""]+""\)"这个这种修改函数名称，然后将对应的解码函数替换 Function CCYCCC(ByVal CYCCCYC) Dim CCYCYYY, CCYCYYC, CCYCYCY CYCCCYC = Replace(CYCCCYC, Chr(36) & ChrW(-243), Chr(36)) CYCCCYC = Replace(CYCCCYC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCYCYYC = 1 To Len(CYCCCYC) If CCYCYYC <> CCYCYCY Then CCYCYYY = AscW(Mid(CYCCCYC, CCYCYYC, 1)) If CCYCYYY >= 33 And CCYCYYY <= 79 Then CCYCCC = CCYCCC & Chr(CCYCYYY + 47) ElseIf CCYCYYY >= 80 And CCYCYYY <= 126 Then CCYCCC = CCYCCC & Chr(CCYCYYY - 47) Else CCYCYCY = CCYCYYC + 1 If Mid(CYCCCYC, CCYCYCY, 1) = CCYCCC("o") Then CCYCCC = CCYCCC & ChrW(CCYCYYY + 5) Else CCYCCC = CCYCCC & Mid(CYCCCYC, CCYCYYC, 1) End If End If Next End Function 这个
gclwlq 2013-09-10
  • 打赏
  • 举报
 回复
用记事本重新保存为2.vbs后，运行时出现
行：32
字符： 1
错误：缺少对象：'Server'
代码：800A01A8
gclwlq 2013-09-10
  • 打赏
  • 举报
 回复
刚保存为vbs文件，双击运行，出现这个
斯洛文尼亚旅游 2013-09-10
  • 打赏
  • 举报
 回复
vbs文件。。
加载更多回复（9）
基于Go语言的棋牌游戏框架源代码+文档说明（高分项目）.zip
基于Go语言的棋牌游戏框架源代码+文档说明（高分项目）.zip，含有代码注释，新手也可看懂。毕业设计、期末大作业、课程设计、高分必看，下载下来，简单部署，就可以使用。该项目可以作为毕设、课程设计期末大作业使用，该系统功能完善、界面美观、操作简单、功能齐全、管理便捷，具有很高的实际应用价值。 基于Go语言的棋牌游戏框架源代码+文档说明（高分项目）.zip，含有代码注释，新手也可看懂。毕业设计、期末大作业、课程设计、高分必看，下载下来，简单部署，就可以使用。该项目可以作为毕设、课程设计期末大作业使用，该系统功能完善、界面美观、操作简单、功能齐全、管理便捷，具有很高的实际应用价值。 基于Go语言的棋牌游戏框架源代码+文档说明（高分项目）.zip，含有代码注释，新手也可看懂。毕业设计、期末大作业、课程设计、高分必看，下载下来，简单部署，就可以使用。该项目可以作为毕设、课程设计期末大作业使用，该系统功能完善、界面美观、操作简单、功能齐全、管理便捷，具有很高的实际应用价值。 基于Go语言的棋牌游戏框架源代码+文档说明（高分项目）.zip，含有代码注释，新手也可看懂。毕业设计、期末大作业、课程
TapTap某高分跑酷游戏实现自动奔跑教程-破解验证分析
TapTap某高分跑酷游戏实现自动奔跑教程-破解验证分析
基于若依的爬虫百度云爬虫高分项目+详细文档+全部资料.zip
【资源说明】 基于若依的爬虫百度云爬虫高分项目+详细文档+全部资料.zip 【备注】 1、该项目是个人高分项目源码，已获导师指导认可通过，答辩评审分达到95分 2、该资源内项目代码都经过测试运行成功，功能ok的情况下才上传的，请放心下载使用！ 3、本项目适合计算机相关专业(人工智能、通信工程、自动化、电子信息、物联网等)的在校学生、老师或者企业员工下载使用，也可作为毕业设计、课程设计、作业、项目初期立项演示等，当然也适合小白学习进阶。 4、如果基础还行，可以在此代码基础上进行修改，以实现其他功能，也可直接用于毕设、课设、作业等。 欢迎下载，沟通交流，互相学习，共同进步！
基于 selenium 模拟登录空间QQ 空间爬虫，破解滑动验证码， 抓取好友留言板的所有留言与回复，并生成词图资料齐全+详细文档+高分项目+源码.zip
【资源说明】 基于 selenium 模拟登录空间QQ 空间爬虫，破解滑动验证码，拿到 cookies，然后使用 requests 抓取好友留言板的所有留言与回复，并生成词图资料齐全+详细文档+高分项目+源码.zip 【备注】 1、该项目是个人高分项目源码，已获导师指导认可通过，答辩评审分达到95分 2、该资源内项目代码都经过测试运行成功，功能ok的情况下才上传的，请放心下载使用！ 3、本项目适合计算机相关专业(人工智能、通信工程、自动化、电子信息、物联网等)的在校学生、老师或者企业员工下载使用，也可作为毕业设计、课程设计、作业、项目初期立项演示等，当然也适合小白学习进阶。 4、如果基础还行，可以在此代码基础上进行修改，以实现其他功能，也可直接用于毕设、课设、作业等。 欢迎下载，沟通交流，互相学习，共同进步！
成功案例：In-Sight视觉系统为Rommel GmbH公司印刷电路板上的激光代码提供光学控制.zip
成功案例：In-Sight视觉系统为Rommel GmbH公司印刷电路板上的激光代码提供光学控制zip,成功案例：In-Sight视觉系统为Rommel GmbH公司印刷电路板上的激光代码提供光学控制
ASP

28,409

社区成员

356,971

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章