如何修改EXE文件的代码?谢谢回复!!!

Question

如何修改EXE文件的代码?谢谢回复!!!

Answer 1

找到EXE文件的头部信息，加入新代码偏移地址，在偏移地址处写入自己的代码！
以上是只是原理。晕

Answer 2

成功了!!谢谢各位,我用delphi写了一个,具体是
function Button3Click(sss:string):boolean;   //sss是修改的文件var
  buffer:char; 
  F:file;
begin
  result:=true;
try
  Assignfile(F,sss);
  FileMode:=2;
  Reset(F,1);
  Seek(F,63993);//定位到某地址
  buffer:=char($75);  
  Blockwrite(F,buffer,1); //写入
  Seek(F,64105);
  buffer:=char($C1);
  Blockwrite(F,buffer,1);
  Seek(F,64135);
  buffer:=char($9E);
  Blockwrite(F,buffer,1); 
  Closefile(f);
except
 result:=false;
end;
end;

Answer 3

晕，不知道是要修改EXE文件还是TXT文件

Answer 4

在盒子上看到的
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  TempName: string;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
var
  Sr: TSearchRec;
  size: Longint;
begin
  FindFirst(ParamStr(0), $27, Sr);
  size := Sr.Size;
  FindClose(Sr);
  StatusBar1.SimpleText := '本程序大小为 ' + IntToStr(size) + ' 字节';
end;procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: PChar;
  Ch: array[0..3] of Char;
  Stream1, Stream2: TMemoryStream;
begin
  GetMem(Dir, 254);
  GetTempPath(254, Dir);
  TempName := StrPas(Dir) + 'o.o.0.o.o.exe';
  CopyFile(PChar(ParamStr(0)), PChar(TempName), False);
  Stream1 := TMemoryStream.Create;
  Stream2 := TMemoryStream.Create;
  Stream1.LoadFromFile(TempName);
  //在尾部加入4个随机字节
  Randomize;
  Ch[0] := Chr(Random(256));
  Ch[1] := Chr(Random(256));
  Ch[2] := Chr(Random(256));
  Ch[3] := Chr(Random(256));
  Stream1.Seek(0, soFromEnd);
  Stream1.Write(Ch, 4);
  //修改偏移48的一个字节，记录程序运行次数
  Stream1.Seek(0, soFromBeginning);
  Stream2.CopyFrom(Stream1, 48); 
  Stream1.Seek(48, soFromBeginning);
  Stream1.Read(Ch, 1);
  Ch[0] := Chr(1 + Ord(Ch[0])); 
  Stream2.Write(Ch, 1); 
  Stream1.Seek(49, soFromBeginning);
  Stream2.CopyFrom(Stream1, Stream1.Size - 49); 
  Stream2.SaveToFile(TempName); 
  Stream1.Free;
  Stream2.Free;
  FreeMem(Dir);
  repeat
    Close
  until FileExists(TempName);
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  WinExec(PChar(TempName + '  ' + ParamStr(0)), SW_SHOWNORMAL);
end;end.