如何在特定的内存写入数据？

[lenga1]

比如说我想在自身程序内存的123456地址处写入数据为"100"，该怎么做啊？
假设这个数据地址原本是没有初始化也没有被使用过的。。。

[lenga1]

[Quote=引用 4 楼 lihuasoft 的回复:]
Delphi(Pascal) codevarX: integer;procedureTForm1.Button1Click(Sender: TObject);varP : ^Integer;beginP :=@X;
Showmessage(Format('%p', [P]));{P的内容，即X的地址} //在我这里，P的内容即X的地址是12F5D0
P^ :=9999;
Showmessage(inttostr(X));end;
[/Quote]

现在X的地址是12F5D0，应该是由编译器指定的吧
现在我想让X的地址变成123456。 //12F5D0--我变-->123456
或者生成另外一个变量Y:integer，强制Y使用123456这个地址，再Y:=9999;
就是这个样的了~

[lihuasoft]

楼主：

我又改变看法了：你的行为不简单！

这就是我说的非正常途径！

俺才疏学浅，退出本贴讨论。

[lenga1]

老兄，不用这样吧，灌水也欢迎啊~

[lihuasoft]

别误会
退出讨论，是因为问题涉及的领域已经超出我的能力范围

灌水.... 我一般不灌水的

帮你顶吧。

^_^

[sheenl]

var
  pi : PInteger;
begin
  pi := PInteger($123456);
  pi^ := 5; //如果$123456是个非法地址, 程序就会崩溃. 
end;

当然$123456确实是个非法地址, 所以这段程序会崩溃. 你先要找到一个合法的地址, 才能这么做.

[lenga1]

[Quote=引用 9 楼 sheenl 的回复:]
Delphi(Pascal) codevarpi : PInteger;beginpi :=PInteger($123456);
pi^ :=5;//如果$123456是个非法地址, 程序就会崩溃.end;
当然$123456确实是个非法地址, 所以这段程序会崩溃. 你先要找到一个合法的地址, 才能这么做.

[/Quote]

那怎么让$123456这个原本不存在的非法地址变成合法的呢？

楼上的是通过a的地址来修改a的值吧，这个时候a的地址是已经初始化的合法地址了
但是如果我想使用$123456这个没有被系统初始化过的地址，该怎么办呢？

[sheenl]

[Quote=引用 11 楼 lenga1 的回复:]
引用 9 楼 sheenl 的回复:
Delphi(Pascal) codevarpi : PInteger;beginpi :=PInteger($123456);
pi^ :=5;//如果$123456是个非法地址, 程序就会崩溃.end;
当然$123456确实是个非法地址, 所以这段程序会崩溃. 你先要找到一个合法的地址, 才能这么做.



那怎么让$123456这个原本不存在的非法地址变成合法的呢？

楼上的是通过a的地址来修改a的值吧，这个时候a的地址是已经初始化的合法地址了
但是如果我想使用$1…
[/Quote]
操作系统保证你说的访问方法不能发生, 如果你一定想这么做, 请自己写一个允许这种操作的操作系统.(某些操作系统在栈区, 如果你强行访问非法的内存区, 有可能会自动为你分配内存, 保证这种操作的顺利完成)

[sheenl]

var
  pi : PInteger;
begin
  pi := PInteger(Integer(@pi) + 400);
  pi^ := 100; 
  ShowMessageFmt('%x - %x', [Integer(pi), pi^]);
end;

这个程序, 在栈上乱改数据, 可能也能运行, 当然你要是把
PInteger(Integer(@pi) + 400);
改成
PInteger(Integer(@pi) + 40000);

一定会死得很难看.

[fasmot]

var
a:dword;

procedure TForm1.Button1Click(Sender: TObject);
var
hwnd,hPID,hProcess,lpNumberOfBytesRead,b:dword;
p:Pointer;
begin
a:=123;
b:=1;
p:=@a;
hwnd:= FindWindow(nil,'Form1');
GetWindowThreadProcessId(hwnd, @hPID);
hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, hPID);
WriteProcessMemory(hProcess, Pointer(p), @b, 4, lpNumberOfBytesRead);
CloseHandle(hProcess);
showmessage(inttostr(a));
end;

[oosmile]

没有关系吧，分配有4G的内存啊，主要不要超了啊

[喝口水]

指针很有用，但是却不能乱用，否则会死的。。。

[fasmot]

[Quote=引用 11 楼 lenga1 的回复:]
引用 9 楼 sheenl 的回复:
Delphi(Pascal) codevarpi : PInteger;beginpi :=PInteger($123456);
pi^ :=5;//如果$123456是个非法地址, 程序就会崩溃.end;
当然$123456确实是个非法地址, 所以这段程序会崩溃. 你先要找到一个合法的地址, 才能这么做.



那怎么让$123456这个原本不存在的非法地址变成合法的呢？

楼上的是通过a的地址来修改a的值吧，这个时候a的地址是已经初始化的合法地址了
但是如果我想使用$1…
[/Quote]

只是演示下修改某内存地址
你把
WriteProcessMemory(hProcess, Pointer(p), @b, 4, lpNumberOfBytesRead);
p换成$123456不就可以了？

或者直接
asm
mov [$123456],1
end;
修改之前最好读一下那个地址，如果不为0最好就不要写了

[UndefinedCoder]

VirtualQuery

[lenga1]

[Quote=引用 16 楼 fasmot 的回复:]
引用 11 楼 lenga1 的回复:
引用 9 楼 sheenl 的回复:
Delphi(Pascal) codevarpi : PInteger;beginpi :=PInteger($123456);
pi^ :=5;//如果$123456是个非法地址, 程序就会崩溃.end;
当然$123456确实是个非法地址, 所以这段程序会崩溃. 你先要找到一个合法的地址, 才能这么做.



那怎么让$123456这个原本不存在的非法地址变成合法的呢？

楼上的是通过a的地址来修改a的值吧，这个时候a的地址是已经初始化的合法地址了
…
[/Quote]
直接Write的试过了，写不进去。。。
汇编的还没测。。。

VirtualQuery我试的时候好像也没成功（反正是跟这个差不多名字的一个函数，不过代码丢了。。。）。。。也偶可能是我的方法不对。。。

[LIANGQIAN1984]

up

[knowledge_Is_Life]

关注 接分

[meiZiNick]

不明LZ在说什么

[anypsky]

WriteProcessMemory 用这个貌似可以，呵呵，暂时没领悟LZ的意思。。

[大大怪老张]

直接往指定地址上写？ 这需求真够操蛋的。

[daixiulin]

up