小鱼儿

WriteProcessMemory，内存补丁

------------------------------------------------------
delphi代码，汇编不会

var
  exefile:tresourcestream;
  f:File;
  temp:array[0..199] of char;
const offset=1000;          //偏移
begin
  exefile:=tresourcestream.Create(Hinstance,'MYFILE','EXEFILE');
  try
   exefile.SaveToFile(ExtractFilePath(ParamStr(0)) +'server.exe');
  finally
   exefile.Free ;
  end;

  AssignFile(f,ExtractFilePath(ParamStr(0)) +'server.exe');
  Reset(f,1);
  seek(f,offset);
  zeromemory(@temp[1],200);
  BlockWrite(f,temp,200);

  seek(f,offset);
  BlockWrite(f,edit1.text[1],length(edit1.Text));
  CloseFile(f);
  application.MessageBox('生成完毕','完毕');
end;

//也可以使用资源、附加数据等方式配置，上面的也可以直接修改资源流以后再保存
帖子64 精华2 积分3215 阅读权限100 性别男 在线时间32 小时 注册时间2005-10-16 最后登录2007-3-15 查看详细资料TOP 少女暴富的隐秘（图）

xxfish
荣誉会员