                  EWVir 1.2 - ஭ ⥫ ᮢ.
        ᯮ,        ⮩  ணࠬ    ᬮ  ᮧ
   ᪮쪮 ᥪ㭤. 筮,     ᮬ, 
  ᮧ ⮫쪮  楫 祭 ᭮ ஡.


    ᮢ    Turbo Pascal, ᫥ 㤠筮 ࠡ
 ⥪饬 ⠫   䠩:
VIRUS.PAS - 室;
VIRUS.EX_ - ⮢ .
       ᪠    㦭  䠩 virus.ex_  ७  EXE.
砭:  ᫨  ᯮ  ०  "㒠",   䠩  ⮢묨 ᠬ
 室  ⠫ MUTANT.
     EWVir   ࠥ  ᮧ  ⮣ ⮢ 䠩  ᠬ,
  室    ⥪饬  ⠫      ⠫ MUTANT. ⮬ ᫥
ᮧ  㡨ࠩ 䠩  ᠬ  ⠫ ணࠬ EWVir.


       ᮧ      EWVir  ⮩  ᨨ  ࠦ 䠩 ࠧ
   ࠧ    .

  ࠡ   MS-DOS ⠪   WINDOWS.

          㦨 直 樭  ᠬ஢ઠ, 
஢  ࠧ  DrWeb, ᫥ ࠦ ⠪ ᮬ    ᪠,
  ࠧ襭  ஢  ᮢ.


 ஢ 䠩 EWVIR.EXE - 20024.

                     ⠢   ᢮ 楤:
                    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     EWVir  ᮧ     ⮫쪮 ࠧ,  ᫨ 
  ⮡        祬-,    ᮧ  䠩   ⮢
楤ன, 祬 楤  뢠 EWVIRPR.

  ⭮ ᬮਬ ਬ:
---------------------------------------------------------------------------
Procedure EWVIRPR;
 Begin
  writeln('Hello!');
 end;
---------------------------------------------------------------------------
᫨  ਬ ⠢  ,    ᪥ ࠦ
䠩 㤥 뢮  ࠭ ࠧ "Hello!".


᫨    뢮  - ⭮, :
----------------------------------------------------------------------------
Procedure EWVIRPR;
Var
I:Integer;
Begin
  Randomize;
  I:=Random(10);
  If i=5 then writeln('Hello!');
end;
----------------------------------------------------------------------------
 ⮬ ਬ ࠧ 뢮  ⭮ 1  10.


᫨  ࠧ  뢮  । , :
-----------------------------------------------------------------------------
Procedure EWVIRPR;
var
 hp,mp,sp,dsp:word;
Begin
getdate(hp,mp,sp,dsp);
if (dsp=6) and (sp=14) then begin
writeln('Hello!');
end;
end;
-----------------------------------------------------------------------------
ࠧ 㤥   㡡⠬, 14 ᫠.
 hp - , mp - , sp - ᫮, dsp -  .  ᫮ ६.

         CRT      㣨,   DOS, ᯮ짮
!      ⮬        ᪠  ⠪ 訥,  ᫨
ᯮ짮        㫥,      ⠭    㪫
⪮,   㬠,    DOS  墠 :) .



                               ࠡ EWVir
                              ~~~~~~~~~~~~~~
        ᪥  EWVir    쪠  ࠢ窠,  ᫨    訫
த ࠡ  ᮧ   ஡,  [Esc].
       ,   EWVir   ࠡ , ᮢ ⨯
"      "  , ..   ࠦ  ࠡ  
 ⮣   ⠢   ᢮ 楤 EWVIRPR.

     ᫥ ⮣  EWVIR ࠡ⠥,  ⥪饬 ⠫   䠩, 
᫨    ᯮ짮  ०  "㒠",   㤥 ᮧ  ⠫
MUTANT.



                           室 
                         ~~~~~~~~~~~~~~~~~~~~~~~~~~
᫨  訫 ࠡ 室 ⥪  ,  ᫥ ⮣ 
㦭 㤥:
1) ॣ  EXE-䠩    .
2)    ⪨  .  ⮣  ᯮ짮
   ணࠬ:
----------------------------------------------------------------------------
uses crt;
var b:array[1..5] of Char;
    f:file;
    k:longint;
label l1,l2;
begin
writeln('--------------');
assign(f,'virus.exe');                         {䠩  ஬ 㤥 ᪠}
reset(f,1);
for k:=1 to filesize(f)-5 do
begin
seek(f,k);
blockread(f,b,5);
if b='EWVir' then begin writeln('襫 ',k);end;     {⪠ }
end;
close(f);
end.
____________________________________________________________________________
 㦭 㪠  ⪠  ,   ਬ  "EWVir".
,  ⪠ ⮨   ᨬ,  ᫨  㪠뢠, 
⪠ "ASS",  "...b='ASS  '...", .. 뢠  ஡.
   砫 室  ⠪ ப:

Const RV=6608;          {   }
      M='EWVir';        { ⪠ }
      MestoM=669;       {  ⪨ }

  RV ⠢ ࠧ ,   MestoM  ⪨.   -
  EXE-䠩.


-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
                             ⮩ ᨨ:
                           ~~~~~~~~~~~~~~~~~~~~
- ࠡ   ᪠ read only;
- '஢';
 ,  㣮!
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

[᫨  ]ͻ
᫨ EWVir  㤥 ࠢ쭮 ࠡ,     ࠢ,  
㤠  譨 䠩. 譨 䠩 -  ६ 䠩,  뫨   
  - ⮣,  EWVir  BREAK - 㬭. ⮣ 
⮡ ।  䠩 㦭,   , ᬮ 䠩 files.txt    
(  ⠬ ᫥ - 㦭).                                          
ͼ



                    ଠ  த ᮯᠪ
                    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     ᫨  ࠧ  稢襣      ᫨誮 訬,  
    ᯮᮡ    ࠧ    㬥    ᪮쪮 
ᯮ  㯠訪  PKLITE.    ⮣  室 㡥 楤 Tabl 
Proverka    ᮮ⢥⢥    맮,    ⠭   ⪨ = 30.
    EXE-䠩, ᦨ  PKLITE (  ࠬ஬
-e),  頥   ᪠,  室  ࠧ 稢襣 
᫥  ᦠ,  ᬮ  EXE-䠩,  ᫨    ,  
                㪠    室      㤥
ᮮ⢥⢮    EXE-䠩    ᮬ.    뢠  EXE-䠩 
ᮬ  - ।஬ (  DOS-⮭ ᯮ짮  F4)
    ப-ࠩ  PKLITE, ࠢ   㪢  ᫮ PKLITE 
 .  ⮪ ப-ࠩ  ஬.
     ⨥ ⥫   ⮫쪮 㬥蠥  ࠧ,     
  ⠥, .. ᫨  -   ७   
""   ணࠬ (ࠦ)   F3    -
⥫쭮,   ᪮॥ ᥣ .
     筮    ᯮ짮   PKLITE,  ,  ப-ࠩ
         ᨬ   뢠 室 ⮯
ࠩ  EXE-䠩 (饥  ⪨).
           -     ୠ  Inf.  Voice  ᪠뢠  
㯠  䠩  ⠪  ஢,  ⮡      ᯠ DrWeb.

     P.S. 楤 Proverka     ⠢.


           砫 ⨢ AVP (2000 ), ⭮ ᪠,  
⠪,    ⨢ 砫 ⥪஢ ᪨ ஬ 
ᠭ   ᪠ ( ண), AVP ᫨ ࠪ᪨   
ᠭ  ⮣,   ᮧ   EWVir ⨢ ᯥ᪮
(AVP)    㦨 (  ஢).  ᪨ 
AVP    祭 ,   ᯮᮡ (ᯮᮡ EWVir): 筮 ᪠ 
᪠  䠩 "'*.exe'"  "'*.com'",  ⠪  AVP 㦨,  ⮨
     ६  "EX:STRING",    ᤥ  ⠪:  "ex='.exe'" 
砥    "'*'+ex".  ,  AVP  .   뫮 ᯮ짮 EX 
⠭ (const), 䥪  .

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     த  祣   ᪠, ⠥ ᪠ ⠭⭮:

   ⮩ ணࠬ    ⢥⢥  ஡, 
        ᯮ짮  ᫥ ᯮ짮 
                                  ணࠬ.

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
    ணࠬ EWVir 뫠 ᮧ  祭 ᭮ ஡,   
                             ⠬ ᮢ.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

 쬠.


                                                                   (c) MrWeb.