Ĺadny brzuch
Witam :)
Mam taki duzy problem, bo juz probowalem prawie wszystkiego :P
Robie takiego "trojana" ktory jest oparty na GG. Jest tak:
Serwer:
if messagecontent='wylacz' then begin //Kod do wylaczenia komputera end; end.
Oczywscie wczesniej sie polaczylem itp. itd.
To jest kod w kliencie:
procedure TForm1.Button1Click(Sender: TObject); begin Hgg1.SendMessage(8877205,'wylacz'); end; end;
Jak widzicie klient poprzez klikniecie na przycisk wysyla wiadomosc tak jak bylo w serwerku napisane.
Tylko nie dziala :(
Jak robie manualnie przez GG i pisze: wylacz, to wtedy wszystko jest ok...
Pomocy.
Pozdrawiam.
Użytkownik Shooter edytował ten post 04 grudzień 2005, 13:16
Hgg1.SendMessage(8877205,'wylacz'+#0);
zdebuguj i sprawdz wartosc wiadomosci przychodzacej ...
Witam :)
Mam taki duzy problem, bo juz probowalem prawie wszystkiego :P
Robie takiego "trojana" ...
Czy to wogule jest legalne? Jeśli nie to dla czego taki temat nie został odrazu usunięty?
jeśli robi to jedynie w celach 'edukacyjnych' to czemu ma być to nielegalne?
Równie dobrze można napisać zamiast 'trojan' - 'program do zdalnej administracji komputerem' :P
Temat zszedl troche na offtopic, czy ktos moze mi pomoc z tym problemem wyzej ?
Do moderatorow: Nie kasujcie tego postu!!! :mad: :mad: :mad:
Ps.:
zdebuguj i sprawdz wartosc wiadomosci przychodzacej ...
Chodzi ci zeby sprawdzic co wysyla dokladnie ?? Wysyla: wylacz... tak jak powinno byc... :o
A byc mogl napisac dokladnie w tym Jak mam zrobic ? :P
ps. Dodalem #0 na koniec stringa i itak nie dziala :blink:
Użytkownik Shooter edytował ten post 04 grudzień 2005, 21:19
ps. Dodalem #0 na koniec stringa i itak nie dziala :blink:
Robie takiego "trojana" ...
Szczery do bólu :)
Może ci coś to pomoże
Pozdro.
Nie wiem, co jest, i jaki mam mozg... ale w tym artykule co mi podal Darkshadow zrobilem wszystko to samo (nigdy wczesniej artykulu nie widzialem :P) co tam jest napisane! :o No moze oprocz polaczenie zrobilem inaczej ;)
Tylko klient mi nie dziala :blink:
Podam czesc klienta:
Button Wylacz:
procedure TForm1.Button1Click(Sender: TObject); begin if HGG1.Connected=true then begin Hgg1.SendMessage(8877205,'wylacz'+#0); end else begin Memo1.Clear; Memo1.Lines.Add('Bys sie moze najpierw polaczyl :);P');
Kod Serwerka:
if messagecontent='wylacz' then begin ExitWindowsEx(EWX_POWEROFF,0); Hgg1.SendMessage(GGNumber, 'Wylaczam kompa ofiary :]'); end else begin [...]
Licze na pomoc ;)
Pozdrawiam
a moze wreszcie powiesz co ci debuger w kliencie pokazuje?
a moze wreszcie powiesz co ci debuger w kliencie pokazuje?
To znaczy ? :blink:
Ustaw watcha na zmienna z wiadomoscia, breakpointa w miejscu w ktorym odbiera wiadomosc i w trakcie dzialania programu sprawdz zawartosc zmiennej <_<
Wy nadal nie wiecie ze ja jestem poczatkujacy ? :o Jak to zrobic ?
Jak robie ctrl+F5 to wyskakuje mi okienko i co mam w Expression wpisac ??
Ymhmmm ... Migajek... Tylko spokojnie :P
Jak robie ctrl+F5 to wyskakuje mi okienko i co mam w Expression wpisac ??
Ymhmmm ... Migajek... Tylko spokojnie :P
Ja juz sie poddaje... Juz was wiecej nie wkurzam ;P
Ja juz sie poddaje... Juz was wiecej nie wkurzam ;P
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam taki duzy problem, bo juz probowalem prawie wszystkiego :P
Robie takiego "trojana" ktory jest oparty na GG. Jest tak:
Serwer:
if messagecontent='wylacz' then begin //Kod do wylaczenia komputera end; end.
Oczywscie wczesniej sie polaczylem itp. itd.
To jest kod w kliencie:
procedure TForm1.Button1Click(Sender: TObject); begin Hgg1.SendMessage(8877205,'wylacz'); end; end;
Jak widzicie klient poprzez klikniecie na przycisk wysyla wiadomosc tak jak bylo w serwerku napisane.
Tylko nie dziala :(
Jak robie manualnie przez GG i pisze: wylacz, to wtedy wszystko jest ok...
Pomocy.
Pozdrawiam.
Użytkownik Shooter edytował ten post 04 grudzień 2005, 13:16
Hgg1.SendMessage(8877205,'wylacz'+#0);
zdebuguj i sprawdz wartosc wiadomosci przychodzacej ...
Witam :)
Mam taki duzy problem, bo juz probowalem prawie wszystkiego :P
Robie takiego "trojana" ...
Czy to wogule jest legalne? Jeśli nie to dla czego taki temat nie został odrazu usunięty?
jeśli robi to jedynie w celach 'edukacyjnych' to czemu ma być to nielegalne?
Równie dobrze można napisać zamiast 'trojan' - 'program do zdalnej administracji komputerem' :P
Temat zszedl troche na offtopic, czy ktos moze mi pomoc z tym problemem wyzej ?
Do moderatorow: Nie kasujcie tego postu!!! :mad: :mad: :mad:
Ps.:
zdebuguj i sprawdz wartosc wiadomosci przychodzacej ...
Chodzi ci zeby sprawdzic co wysyla dokladnie ?? Wysyla: wylacz... tak jak powinno byc... :o
A byc mogl napisac dokladnie w tym Jak mam zrobic ? :P
ps. Dodalem #0 na koniec stringa i itak nie dziala :blink:
Użytkownik Shooter edytował ten post 04 grudzień 2005, 21:19
ps. Dodalem #0 na koniec stringa i itak nie dziala :blink:
Robie takiego "trojana" ...
Szczery do bólu :)
Może ci coś to pomoże
Pozdro.
Nie wiem, co jest, i jaki mam mozg... ale w tym artykule co mi podal Darkshadow zrobilem wszystko to samo (nigdy wczesniej artykulu nie widzialem :P) co tam jest napisane! :o No moze oprocz polaczenie zrobilem inaczej ;)
Tylko klient mi nie dziala :blink:
Podam czesc klienta:
Button Wylacz:
procedure TForm1.Button1Click(Sender: TObject); begin if HGG1.Connected=true then begin Hgg1.SendMessage(8877205,'wylacz'+#0); end else begin Memo1.Clear; Memo1.Lines.Add('Bys sie moze najpierw polaczyl :);P');
Kod Serwerka:
if messagecontent='wylacz' then begin ExitWindowsEx(EWX_POWEROFF,0); Hgg1.SendMessage(GGNumber, 'Wylaczam kompa ofiary :]'); end else begin [...]
Licze na pomoc ;)
Pozdrawiam
a moze wreszcie powiesz co ci debuger w kliencie pokazuje?
a moze wreszcie powiesz co ci debuger w kliencie pokazuje?
To znaczy ? :blink:
Ustaw watcha na zmienna z wiadomoscia, breakpointa w miejscu w ktorym odbiera wiadomosc i w trakcie dzialania programu sprawdz zawartosc zmiennej <_<
Wy nadal nie wiecie ze ja jestem poczatkujacy ? :o Jak to zrobic ?
Jak robie ctrl+F5 to wyskakuje mi okienko i co mam w Expression wpisac ??
Ymhmmm ... Migajek... Tylko spokojnie :P
Jak robie ctrl+F5 to wyskakuje mi okienko i co mam w Expression wpisac ??
Ymhmmm ... Migajek... Tylko spokojnie :P
Ja juz sie poddaje... Juz was wiecej nie wkurzam ;P
Ja juz sie poddaje... Juz was wiecej nie wkurzam ;P