这段代码看不懂
获取进程命令行的代码Private Type CLIENT_IDUniqueProcess As Long
UniqueThreadAs Long
End Type
Private Const SYNCHRONIZE As Long = &H100000
Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Private Declare Function NtOpenProcess Lib "NTDLL.DLL" (ByRef ProcessHandle As Long, _
ByVal AccessMask As Long, _
ByRef ObjectAttributes As OBJECT_ATTRIBUTES, _
ByRef ClientID As CLIENT_ID) As Long
Private Type OBJECT_ATTRIBUTES
Length As Long
RootDirectory As Long
ObjectName As Long
Attributes As Long
SecurityDescriptor As Long
SecurityQualityOfService As Long
End Type
Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_CREATE_THREAD = &H2
Private Const PROCESS_VM_OPERATION = &H8
Private Const PROCESS_QUERY_INFORMATION As Long = (&H400)
Private Const PROCESS_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)
Private Const PROCESS_DUP_HANDLE As Long = (&H40)
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function NtClose Lib "NTDLL.DLL" (ByVal ObjectHandle As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, _
ByRef Source As Any, _
ByVal Length As Long)
Private Function GetProcessCommandLine(ByVal dwProcessId As Long) As String
Dim objCid As CLIENT_ID
Dim objOa As OBJECT_ATTRIBUTES
Dim ntStatus As Long, hKernel As Long, strName As String
Dim hProcess As Long, dwAddr As Long, dwRead As Long
objOa.Length = Len(objOa)
objCid.UniqueProcess = dwProcessId
ntStatus = NtOpenProcess(hProcess, &H10, objOa, objCid)
If hProcess = 0 Then
GetProcessCommandLine = ""
Exit Function
End If
hKernel = LoadLibrary("kernel32")
dwAddr = GetProcAddress(hKernel, "GetCommandLineA")
CopyMemory dwAddr, ByVal dwAddr + 1, 4
If ReadProcessMemory(hProcess, ByVal dwAddr, dwAddr, 4, dwRead) Then
strName = String(260, Chr(0))
If ReadProcessMemory(hProcess, ByVal dwAddr, ByVal strName, 260, dwRead) Then
strName = Left(strName, InStr(strName, Chr(0)) - 1)
NtClose hProcess
GetProcessCommandLine = strName
Exit Function
End If
End If
NtClose hProcess
End Function
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/chenhui530/archive/2007/12/10/1928409.aspxdwAddr = GetProcAddress(hKernel, "GetCommandLineA")下面的代码就不懂了。
CopyMemory dwAddr, ByVal dwAddr + 1, 4这句不懂，为什么要dwAddr + 1，为什么要复制4个字节
ReadProcessMemory为什么要调用2次，这2次分别是什么作用。 代码能正确运行吗？能得到正确结果吗？如果能的话，你跟踪一下 strName的值不就明白了？ dwAddr = GetProcAddress(hKernel, "GetCommandLineA")下面的代码就不懂了。
CopyMemory dwAddr, ByVal dwAddr + 1, 4这句不懂，为什么要dwAddr + 1，为什么要复制4个字节
ReadProcessMemory为什么要调用2次，这2次分别是什么作用。
everyone 发表于 2009-11-26 00:16 http://www.m5home.com/bbs/images/common/back.gif
GetProcAddress返回的是一个指针.这个指针存在于IAT表里,里面放的是另一个指针,指向什么地址不知道....需要了解PE格式才行.
所以把地址加1,再复制4字节,是为了得到这个指针.(CopyMemory dwAddr, ByVal dwAddr + 1, 4)
从代码来看,上面那个指针指向的地址里,又是一个指针........
所以,第一次ReadProcessMemory是为了读到这个指针.....
而这个指针指向的地址,正好就是命令行字符串的存放开始地址,因此,在得到了这个指针后,马上进行第二次ReadProcessMemory.
这次ReadProcessMemory,就是复制字符串了,复制回来就马上返回了.
有点晕......:Q
总结一下.
GetProcAddress返回指针A------->指针A+1处,存放的是指针B--------->指针B指向地址C------->地址C存放的是命令行字符串
哎,晕.....要知道为什么要这样做,应该只有研究PE格式了吧.....陈辉那鸟人对PE格式非常熟.
页:
[1]