Trojan w Delphi

NiuNio

Użytkownik
Dołączył
Listopad 18, 2002
Posty
953
no wiec zna ktos fajne stronki gdzie sa opisy o tym jak napisac trojana w DELPHI 7
a moze ktos sam chcialby przedstawic swoj opis pisania trojana ?
 

Chochlik

Użytkownik
Dołączył
Styczeń 10, 2003
Posty
391
Ja mam Delphi 7 ale bez serialu
<
szukalem ale ni moge znales (chodzi o delphi 7 enterprise ) jesli do niego mash serial to podaj proshe a co do trojka to to jesli w Delphi 7 jest ClientSocket i Server Scoket to mozesh napisac prostego trojka przy ich pomocy... opis znajdziesh na www.cc-team.org
 

yuppj

Użytkownik
Dołączył
Październik 28, 2002
Posty
82
Originally posted by Chochlik
Ja mam Delphi 7 ale bez serialu
<
szukalem ale ni moge znales (chodzi o delphi 7 enterprise ) jesli do niego mash serial to podaj proshe a co do trojka to to jesli w Delphi 7 jest ClientSocket i Server Scoket to mozesh napisac prostego trojka przy ich pomocy... opis znajdziesh na www.cc-team.org

sprobuj ten
serial-6AMD-PKG68E-DB8PP7-9SFE
key-3QH-9QW

a co do pisania trojanow to programowanie.of.pl binboy.prg google.com
na tym forum juz chyba kilka razy o tym bylo , najlepiej poszukaj na google napewno znajdziesz
 

NiuNio

Użytkownik
Dołączył
Listopad 18, 2002
Posty
953
eh czemuni moge napisac trojana w delhpi :
otoz jesli pisze nacisnij dwa razy na button i wpisz
no wiec kopiuje to tam
ale jak biore f9 to wyskakuje blad
np :
begin

// a tutaj piszesz:

s:=serversocket1.Socket.Connections[0].ReceiveText; // nieważne co to jest
smile.gif


if (s='open') then // jeżeli przyjdzie zmienna open cd-rom to:
begin // masz zrobić
mciSendString('Set cdaudio door open wait',nil,0,handle); // funkcja do otwierania szuflady.
end;

TO MI POZNIEJ WYSKAKUJE JAKIS BLAD BO ZA S JEST : A POZNIEJ ZE ZA SERVERSOCKET JEST KROPKA
O CO CHODZI? PRZECIEZ ROBIE WSZYSTKO JAK PISZE
MAM DELPHI 7
 

z3t3c

Użytkownik
Dołączył
Wrzesień 11, 2002
Posty
8
Originally posted by niunio
eh czemuni moge napisac trojana w delhpi :
otoz jesli pisze nacisnij dwa razy na button i wpisz
no wiec kopiuje to tam
ale jak biore f9 to wyskakuje blad
np :
begin

// a tutaj piszesz:

s:=serversocket1.Socket.Connections[0].ReceiveText; // nieważne co to jest
smile.gif


if (s='open') then // jeżeli przyjdzie zmienna open cd-rom to:
begin // masz zrobić
mciSendString('Set cdaudio door open wait',nil,0,handle); // funkcja do otwierania szuflady.
end;

TO MI POZNIEJ WYSKAKUJE JAKIS BLAD BO ZA S JEST : A POZNIEJ ZE ZA SERVERSOCKET JEST KROPKA
O CO CHODZI? PRZECIEZ ROBIE WSZYSTKO JAK PISZE
MAM DELPHI 7

W 6 enterprise robie to tak:
-----------------------------------------------
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);

var
polecenie : string;

begin
polecenie := Socket.ReceiveText;

if polecenie = 'cdopen' then
begin
mciSendString('Set cdaudio door open wait',nil,0,handle);
end;
-------------------------------
i dziala.
 

NiuNio

Użytkownik
Dołączył
Listopad 18, 2002
Posty
953
a nie znasz stronki z opisem jak sie robi trojana w DELPHI 7 ??
bo to jest troche inaczej niz w 6 albo 5
 

z3t3c

Użytkownik
Dołączył
Wrzesień 11, 2002
Posty
8
Nie znam takiej stronki odnosnie delphi 7. Co do 6 i wczesniejzych takie www znam, ale do zaproponowanych tam porad mozesz dojsc sam po chwili namyslu (czyli za bardzo na nie nie licz). Podejdz do szkieletu trojana jako do mechanizmu wysylania lncuchow tekstowych i odpowiadania na nie zadana akcja (co jest banalne). Reszte potrzebnych zeczy typu ukrywanie w sysytemie, rejestr, ftp znajdziesz bez problemu na stronach "nie o trojanach" ale o programowaniu (nawet zrodla). Zreszta niepotrzebne (wedlug mnie) bajerki typu flipscreen tez.
 

I_v0

Użytkownik
Dołączył
Czerwiec 26, 2002
Posty
122
sory nie znam Delphi ale moge zaproponowac przeczytanie RFC i standardu ISO ewentulanie ANSI (ale dla Delphi nie istnieje taki - chyba...) .
Ale z tego co widze chcecie/chcesz napisac trojka szybko a wiec dla Ciebie/Was nie jest to zadna solucja (te dokumenty sa szeroko dostepne jak i szeroko opisane - jakies kilkaset stron przy dobrych warunkach "pogodowych") ;]
Co zas sie tyczy cracoff (takie UfO czasami jest potrzebne pod wingroza - ja wiem ;] ) polecam: www.cracks.am (uwaga, wyskauja 3 pornole na dzien dobry ale sama stronka jest spokojowa)
 
Do góry Bottom