BioVirus

Ostatní jazyky Pascal BioVirus

BioVirus jsem kdysi napsal v Pascalu a posloužil v počítačové učebně mé základní školy, kde zablokoval několik počítačů. Běží pod DOSem a byl určen pro systém Windows 98 (který je založen na DOSu), kde se jednoduše vložil do autoexecu. Vtip byl v tom, že virus zasekl autoexec nekonečnou smyčkou a nedovolil systému pokračovat v bootování. Šlo ho vypnout pouze pomocí hesla, které zní: "SOLIM" a možná klávesové kombinace ctrl+pause (ale tím si nejsem jistý a již to nemám možnost vyzkoušet).

Virus obsahuje grafické SVGA rozhraní a několik obrázků, které jsem stáhl na internetu (pozadí je tuším ze hry Virus). Uživatele postraší několika hláškami, které se vypisují stylem ala Matrix včetně zvuku. Po nějaké době Virus přistopuí k formátování systémového disku (samozřejmě jen k simulaci formátování), která je díky viditelné práci disku zapříčiněné zapisováním do textového souboru velmi věrná. Program skončí zmíněnou nekonečnou smyčkou za populární hlášky (Chyba paměťového modulu HIMEM.SYS, system halted) a je doprovázen sirénou a nukleárním logem.

Virus dnes již patrně nemá uplatnění, ale třeba se najde někdo, kdo by ho na nějakém starším počítači zužitkoval. Zdrojové kódy jsou přiloženy a program vyžaduje jednotku SVGA4, kterou naleznete v sekci Pascal.


Galerie


 

Stáhnout

Staženo 305x (73.09 kB)
Aplikace je včetně zdrojových kódů v jazyce Pascal

 

  Aktivity (1)

Program pro vás napsal David Čápka
Avatar
Autor pracuje jako softwarový architekt a pedagog na projektu ITnetwork.cz (a jeho zahraničních verzích). Velmi si váží svobody podnikání v naší zemi a věří, že když se člověk neštítí práce, tak dokáže úplně cokoli.
Unicorn College Autor se informační technologie naučil na Unicorn College - prestižní soukromé vysoké škole IT a ekonomie.

Jak se ti líbí článek?
Celkem (1 hlasů) :
55555


 


Miniatura
Všechny články v sekci
Pascal

 

 

Komentáře

Avatar
Lukas
Neregistrovaný
Avatar
Lukas:

Ten bioVirus by sel udelat i pres MS Visual basic scripty:

http://www.uloz.to/…dobenina-rar

Sice v command.com ne¨jde prikaz set /p ale neva :D

 
Odpovědět 5.10.2010 16:07
Avatar
jindral
Redaktor
Avatar
jindral:

Tak sem to zkoušel spustit na XP. To začalo ječet systemovym reprákem a zkončilo černou obrazovkou. Ale teď dotaz: pojede mi to ve virtualboxu? :D

Odpovědět 4.12.2010 20:22
129x pád = 219x úspěch
Avatar
sdraco
Tým ITnetwork
Avatar
Odpovídá na jindral
sdraco:

pokud tam budou Windows 9X tak určitě ;)

Odpovědět 4.12.2010 20:28
Miluji svou práci a zdejší komunitu, baví mě se rozvíjet, děkuji každému členovi za to, že zde působí.
Avatar
jindral
Redaktor
Avatar
Odpovídá na David Čápka
jindral:

super, teď ještě jak tam nabootovat disketu. Proč musí bejt aplikace pro linux jiný než pro win. Na linuxovim virtualboxu sem moh bootovat z A: na windows mi to nejde ;(

Odpovědět 4.12.2010 20:37
129x pád = 219x úspěch
Avatar
sdraco
Tým ITnetwork
Avatar
Odpovědět 4.12.2010 20:43
Miluji svou práci a zdejší komunitu, baví mě se rozvíjet, děkuji každému členovi za to, že zde působí.
Avatar
Anonym
Člen
Avatar
Anonym:

a to že na islandsoft nejsou viry -.- :D

 
Odpovědět 25.3.2013 18:59
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 6 zpráv z 6.