NOVINKA - Online rekvalifikační kurz Python programátor. Oblíbená a studenty ověřená rekvalifikace - nyní i online.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.
Funkce, kterou se snažíš použít je dostupná pouze pro registrované uživatele. Buďto se přihlas nebo si zdarma vytvoř nový účet.
Funkce, kterou se snažíš použít je dostupná pouze pro registrované uživatele. Buďto se přihlas nebo si zdarma vytvoř nový účet.

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žením následujícího souboru souhlasíš s licenčními podmínkami

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

 

Všechny články v sekci
Pascal
Program pro vás napsal David Hartinger
Avatar
Uživatelské hodnocení:
2 hlasů
David je zakladatelem ITnetwork a programování se profesionálně věnuje 15 let. Má rád Nirvanu, nemovitosti a svobodu podnikání.
Unicorn university David se informační technologie naučil na Unicorn University - prestižní soukromé vysoké škole IT a ekonomie.
Aktivity