..:: Menu ::..

Strona główna
Nowości
Download
Artykuły
Linki
Produkty
Kontakt

E-mail: cycoslav@poczta.onet.pl
Gadu-Gadu:
4390845

..:: "Wirus" w Delphi ::.. 

 


Artykuł poświęcam napisaniu w Delphi prostego "wirusa". Na początek klikamy prawym na pasku zadań i wybieramy opcję Autoukrywanie -> Zastosuj -> OK. Wtedy wyłączamy wszystkie programy i na pulpicie Windowa naciskamy F5 <odśwież>. Wtedy robimy zrzut ekranowy <klawisz Print Scrn>. Otwieramy paint'a i wklejamy obrazek <Edycja -> Wklej>. Zapisujemy go 
i włączamy Delphi. Zobaczymy główną formatkę. Wybieramy zakładkę Events <Object inspector> i właściwość OnClose ustawiamy <klikamy 2 razy na białym polu i piszemy> na: action:=canone;
Teraz zakładka properties <Object inspector>. Właściwość WindowState ustawiamy na wsMaximized, a wł. BorderStyle na bsNone. Wybieramy zakładkę Additional i wstawiamy komponent Image1. Teraz właściwość Height wpisujemy: 1024 a wł. Width na 768. To wszystko przy rozdzielczości ofiary. Jeśli ma np. 800x600 to wł. Height ustawiamy na 800 a właściwość Width na 600. Jeszcze jedno. Przy picture klikamy 2 razy na białym polu i wybieramy obrazek zapisany wcześniej. Teraz Komponent Timer1 na zakładce System. Właściwość Interval ustawiamy na 1. Teraz klikamy dwukrotnie na Timer'a i piszemy:

beep;
ShowMessage('Z nieznanych przyczyn wystąpił błąd 0150245.');


To wszystko. Zapisuje programik na dysku klikając na dwie dyskietki. Aha jeszcze jedno. Zapiszcie go pod nazwą ERROR. Teraz go zkompilujemy. Jest w katalogu, w którym zapisaliśmy proga. Teraz tylko wystarczy wstawić go do Autostartu ofiary. Emocje amatorskie gwarantowane....

 

 

 

 

 

 






 
CS Corporation 2oo1-2oo5