mirror of
https://github.com/XiaoliChan/wmiexec-Pro.git
synced 2026-10-19 23:45:30 +08:00
XiaoliChan
34 lines
1.0 KiB
Plaintext
34 lines
1.0 KiB
Plaintext
Function Base64Decode(ByVal vCode)
|
|
Set oNode = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
|
|
oNode.dataType = "bin.base64"
|
|
oNode.text = vCode
|
|
Base64Decode = Stream_BinaryToString(oNode.nodeTypedValue)
|
|
Set oNode = Nothing
|
|
End Function
|
|
|
|
Function Stream_BinaryToString(Binary)
|
|
Set BinaryStream = CreateObject("ADODB.Stream")
|
|
BinaryStream.Type = 1
|
|
BinaryStream.Open
|
|
BinaryStream.Write Binary
|
|
BinaryStream.Position = 0
|
|
BinaryStream.Type = 2
|
|
' All Format => utf-16le - utf-8 - utf-16le
|
|
BinaryStream.CharSet = "utf-8"
|
|
Stream_BinaryToString = BinaryStream.ReadText
|
|
Set BinaryStream = Nothing
|
|
End Function
|
|
|
|
Dim xmldoc, node, bytes
|
|
Set xmldoc = CreateObject("Msxml2.DOMDocument")
|
|
Set node = xmldoc.CreateElement("binary")
|
|
node.DataType = "bin.base64"
|
|
node.Text = "REPLACE_WITH_DATA"
|
|
bytes = node.NodeTypedValue
|
|
FilePath = Base64Decode("REPLACE_WITH_DEST")
|
|
Set objStream = CreateObject("ADODB.Stream")
|
|
objStream.Type = 1 'Binary
|
|
objStream.Open
|
|
objStream.Write bytes
|
|
objStream.SaveToFile FilePath
|
|
objStream.Close |