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

2013-09-10 09:52:15 738 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【C语言】【信息学奥赛一本通】【期末复习专题】期末大复习之字符串【C语言】【信息学奥赛一本通】【期末复习专题】期末大复习之字符串精选8个题目以及解析阅读详情

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

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

...全文

解决VMware与Hyper-V/Device Guard冲突的实用指南本文详细解析了VMware与Hyper-V/Device Guard冲突的根源，并提供了三种实用的解决方案：彻底关闭相关功能、通过启动配置实现选择性引导，以及使用VMware Workstation Pro的Hyper-V兼容模式。指南包含清晰的诊断步骤、操作命令和避坑建议，帮助用户根据自身需求灵活选择，实现虚拟化环境的稳定运行或高效共存。阅读详情

gclwlq

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

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）

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

相关推荐