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

[Debug007]

我想读取一程序在内存中的用户名和密码
用以下代码可以取得用户名,但是却得不到密码
到底是为什么，我在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;

[Debug007]

先谢谢你
但是我发给你的MAIL老超时收不到
你有没MSN？上面聊，我没有QQ；）

[pankun]

对不起,我留错了.是
[e-mail]
你的MSN是多少?

[Debug007]

我的Msn是[e-mail]

[fengyvn]

楼主,你怎样得到内存地址的?

[Debug007]

金山游侠

[pankun]

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]

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

[pankun]

你想要读什么程序?如果可以的话,发给我帮你试试.
[e-mail]

[Debug007]

xz

[Debug007]

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