Neonprimetime

swf_version.vbs

Aug 26th, 2016
159
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Interesting file
  2. -----------------
  3. swf_version.vbs
  4. -----------------
  5. <!-- // Visual basic helper required to detect Flash Player ActiveX control version information
  6. Function VBGetSwfVer(i)
  7.   on error resume next
  8.   Dim swControl, swVersion
  9.   swVersion = 0
  10.   set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
  11.   if (IsObject(swControl)) then
  12.     swVersion = swControl.GetVariable("$version")
  13.   end if
  14.   VBGetSwfVer = swVersion
  15. End Function
  16. // -->
  17. *******
  18. More FROM @neonprimetime security
  19.  
  20. http://pastebin.com/u/Neonprimetime
  21. https://www.virustotal.com/en/USER/neonprimetime/
  22. https://twitter.com/neonprimetime
  23. https://www.reddit.com/USER/neonprimetime
Add Comment
Please, Sign In to add comment