machouillemacro.py

#!/usr/bin/env python
# coding=utf-8   
import re, sys, random, string

#Dim vaLFVutQ As Integer^M
#vaLFVutQ = 3^M
#Do While vaLFVutQ < 32^M
#DoEvents: vaLFVutQ = vaLFVutQ + 1^M
#Loop^M

# Functions
def getparam(count):
  if len(sys.argv) != count+1:
    print 'Machouille Macro'
    print 'Obfuscate VBA macro .. To Use: '+ sys.argv[0]+  ' filename'
    sys.exit(1)
  else:
    return sys.argv[1]

# Main Code #####
def decoy():
  N = random.randrange(16)
  param = getparam(1)
  NAME = random.choice(string.letters) + ''.join(random.choice(string.letters + string.digits) for _ in range(N))
  NUM = random.randrange(16)
  body = ("\nDim %s As Integer\n" % NAME)
  body += ("%s = %d\n" % (NAME, NUM))
  body += ("Do While %s < %d\n" % (NAME, NUM + 1 + random.randrange(15)))
  body += ("DoEvents: %s = %s + 1\n" % (NAME,NAME))
  body += ("Loop\n\n")
  return body

def main():
  PENDOWN = False
  mfile = getparam(1)
  f = open(mfile, 'rb')
  for line in f.readlines():
    print line
    if line.upper().startswith("SUB"):
      PENDOWN = True
    if line.upper().startswith("END SUB"):
      PENDOWN = False
    if PENDOWN:
      print decoy()



if __name__ == '__main__':
  main()