• 设为首页
  • 收藏本站
  • 积分充值
  • VIP赞助
  • 手机版
  • 微博
  • 微信
    微信公众号 添加方式:
    1:搜索微信号(888888
    2:扫描左侧二维码
  • 快捷导航
    福建二哥 门户 查看主题

    教初学者如何把执行文件内存中的DLL的代码全部保存下来

    发布者: 山止川行 | 发布时间: 2025-6-27 16:22| 查看数: 109| 评论数: 0|帖子模式

    有时,有些软件有保护,看不到他程序内部是怎么一个样,如果想简单的把他的内存保存下来!
    我写了一个简单的函数,调用一下就可以把DLL和EXE的内存里的信息全部导到文件里!到时再慢慢查吧!uses
    TlHelp32;
    procedure GetDLLMemToFile;
    var
      PID: Dword;
      Hand: THandle;
      lppe: TModuleEntry32;
      found: boolean;
      File111: TFileStream;
      dd, Add1, Add2, index: dword;
    begin
      Hand := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, GetCurrentProcessID);
      lppe.dwSize := SizeOf(lppe);
      found := Module32First(Hand, lppe);
      while found do
      begin
        File111 := TFileStream.Create('debug\'   extractfilename(lppe.szExePath), $FFFF);    Add1 := dword(lppe.modBaseAddr);
        Add2 := Add1   lppe.modBaseSize;
        index := dword(lppe.modBaseAddr);
        while true do
        begin
          dd := Pdword(index)^;
          File111.WriteBuffer(dd, 4);
          inc(index, 4);
          if index >= Add2 - 4 then break;
        end;    File111.Destroy;    found := Module32Next(Hand, lppe);
      end;
      CloseHandle(Hand); // 释放快照句柄
    end;

    来源:https://www.jb51.net/hack/5880.html
    免责声明:如果侵犯了您的权益,请联系站长,我们会及时删除侵权内容,谢谢合作!

    最新评论

    QQ Archiver 手机版 小黑屋 福建二哥 ( 闽ICP备2022004717号|闽公网安备35052402000345号 )

    Powered by Discuz! X3.5 © 2001-2023

    快速回复 返回顶部 返回列表