♂◇◆♂◇◆在DFW没人能答的贴子♂◇◆♂◇◆谁能回答500分相送！

Debug007 2003-10-13 05:30:55

我想读取一程序在内存中的用户名和密码
用以下代码可以取得用户名,但是却得不到密码
到底是为什么，我在DFW顶了好几天贴子就是没人回答
哪位高手帮帮忙，必给500分！！！！

procedure TForm1.Timer1Timer(Sender: TObject);
var
WinHandle: HWND;
ProcessID: DWORD;
ProcessHandle: THandle;
S: String;
Bytes: DWORD;
begin
WinHandle := FindWindow(nil, 'XXX');
if WinHandle = 0 then Exit;
GetWindowThreadProcessId(WinHandle, ProcessID);
if ProcessID = 0 then Exit;
ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID);
if ProcessHandle = 0 then Exit;
try
SetLength(S, 10);
if ReadProcessMemory(ProcessHandle, Pointer($XXXXXX), PChar(S), 10, Bytes) then //注：内存地址正确，我用其它软件试过
listbox1.items.Add(s);
finally
CloseHandle(ProcessHandle);
end;
end;

...全文

39 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

Debug007 2003-10-18

打赏
举报

最新消息
地址字符没加密
为什么不行？
兄弟们帮帮忙~~~~~~

Debug007 2003-10-18

打赏
举报

pankun 2003-10-13

打赏
举报

你想要读什么程序?如果可以的话,发给我帮你试试.
akunspy@netease.com

Debug007 2003-10-13

打赏
举报

pankun(剑神一笑)
谢谢你:)

pankun 2003-10-13

打赏
举报

procedure TForm1.Timer1Timer(Sender: TObject);
var
WinHandle: HWND;
ProcessID, OldFlg: DWORD;
ProcessHandle: THandle;
S: String;
Bytes: DWORD;
begin
WinHandle := FindWindow(nil, 'XXX');
if WinHandle = 0 then Exit;
GetWindowThreadProcessId(WinHandle, ProcessID);
if ProcessID = 0 then Exit;
ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID);
if ProcessHandle = 0 then Exit;
try
SetLength(S, 10);
//试试更改页保护属性,如果不行就有可能是被加过密的.
VirtualProtectEx(ProcessHandle, $xxxxxx, 10, PAGE_READWRITE, OldFlg);
if ReadProcessMemory(ProcessHandle, Pointer($XXXXXX), PChar(S), 10, Bytes) then //注：内存地址正确，我用其它软件试过
listbox1.items.Add(s);
VirtualProtectEx(ProcessHandle, $xxxxxx, 10, OldFlg, OldFlg); // 恢复页码保护属性
finally
CloseHandle(ProcessHandle);
end;
end;

Debug007 2003-10-13