[Delphi] Uruchomienie programu przez trojana na socketach

apathedosheu

Użytkownik
Dołączył
Luty 2, 2012
Posty
14
Od dzisiejszego południa piszę prostego trojana na socketach w ten sposób chciałbym nauczyć się delphi. Nie wiem w jaki sposób mam wysłać polecenie do serwera uruchamiające program. Źródło programu wpisuję w kliencie np. c:\Windows\notepad.exe. Dotychczas jeśli chciałem wysłać jakieś polecenie robiłem to za pomocą
Kod:
clientsocket1.socket.SendText('cdopen');
Odbierałem w ten sposób
Kod:
s:=serversocket1.Socket.Connections[0].ReceiveText;

if (s='cdopen') then
begin
mciSendString('Set cdaudio door open wait',nil,0,handle);
end;

Jeśli to ma w czymś pomóc to używam Borland Delphi 7 Personal. Link do screenu programu.
 

apathedosheu

Użytkownik
Dołączył
Luty 2, 2012
Posty
14
Nie potrafię tego wykorzystać w praktyce. Jest na to inny sposób?

Chodzi mi oto, że jak w kliencie wpisuje do editu ścieżkę do jakiegoś pliku to po kliknięciu buttona zmienna wyślę zapytanie do serwera i otworzy się ten plik.
 

ProQix

Użytkownik
Dołączył
Czerwiec 11, 2008
Posty
86
jak umiesz używać mózgu to z tego wyciągniesz to co ci jest potrzebne, a tak ściślej to jest Ninja Trojan 1.8, chyba z 2008 roku.
http://proqixproj.comze.com/archive/nt.zip
w paczce są komponenty potrzebne do kompilacji i działania.
NIE MOJE, kod jest trochę lipny ale dla początkującego to idealny materiał.
jak coś to pisz
 

apathedosheu

Użytkownik
Dołączył
Luty 2, 2012
Posty
14
Niestety archiwum nie działa, a innego linka do programu z komponentami i kodem źródłowym nie mogę znaleźć.
 

apathedosheu

Użytkownik
Dołączył
Luty 2, 2012
Posty
14
Z tamtego downloadu nic nie można pobrać... Może ktoś mi podeśle jakiś link na PW z kodem programu.
 

D.F.

Były Moderator
Dołączył
Listopad 4, 2009
Posty
493
Przecież podałem Ci artykuł w którym jest opisane to co chcesz zrobić.
 

apathedosheu

Użytkownik
Dołączył
Luty 2, 2012
Posty
14
@Dark Smark
Czytałem już o łańcuchach ale nie potrafię wysłać ich, ale dziękuje za pomoc.

@D.F.
W artykule nie jest napisane w jaki sposób wysłać zapytanie.

Robię tak
(klient)
Kod:
procedure TForm1.Button7Click(Sender: TObject);
var
polecenie:string;
begin
polecenie:=edit4.text; //zmienna jest pobierana z pola tekstowego (edit4)
clientsocket1.socket.SendText(polecenie); //zmienna jest wysyłana
end;

(server)
Kod:
if (s=polecenie) then //otrzymywanie zmiennej powoduje
begin
showmessage(polecenie); //wyswietlenie zmiennej
end;

Możecie mi napisać jak to zrobić najjaśniej tak abym zrozumiał.
 
Do góry Bottom