add_8b.pas

来自「世界著名病毒组织29a的一个病毒源码」· PAS 代码 · 共 29 行

var
  f : file;
  a : longint;
  b : longint;
  c : array[1..16384] of byte;
begin
  assign(f, 'dos.obj');
  reset(f,1);
  a := filesize(f)+8;
  b := 0;
  blockread(f, c, a-8);
  close(f);
  assign(f, '-dos.bin');
  rewrite(f,1);
  blockwrite(f, a, a);
  close(f);

  assign(f, 'win.obj');
  reset(f,1);
  a := filesize(f)+8;
  b := 0;
  blockread(f, c, a-8);
  close(f);
  assign(f, '-win.bin');
  rewrite(f,1);
  blockwrite(f, a, a);
  close(f);
end.