I più cliccati

Trucchi Farmville

Farmville Toolbar [GRATIS]

Vinci Farm Cash $FV[GRATIS]

Farmville Extreme Manager [5€]

Scrivere sottosopra [GRATIS]

Speed Downloading [GRATIS]

Avatarize Facebook [GRATIS]

Personalizza Facebook [GRATIS]

CONSOLIDAMENTO PARETI ROCCIOSE

Trucchi Giochi Facebook

coming soon

Aggiungimi su Facebook

lunedì 5 gennaio 2009

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

2 commenti:

Anonimo ha detto...

scusa ma non hai inserito il Data Arrival nel server

Andrea on 16 gennaio 2009 19:11 ha detto...

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

Posta un commento

Archive

 

juni0r. Copyright 2008 All Rights Reserved Revolution Two Church theme by Brian Gardner Converted into Blogger Template by Bloganol dot com