还是ReadFile函数的问题，请大牛帮帮忙。。。。

2012-08-21 05:17:38 180 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从零开始病毒逆向分析：环境搭建、动静结合与实战解密恶意软件分析是网络安全领域的核心技能，其本质是通过逆向工程理解程序行为。其原理在于结合静态与动态分析技术，在不运行或受控环境中剖析可执行文件。掌握这项技术对于构建有效防御、编写检测规则至关重要，广泛应用于安全运维、应急响应和威胁情报分析。本文聚焦于Windows平台典型样本，通过搭建安全的虚拟机沙箱环境，利用PEiD、IDA Pro、Process Monitor等工具，从文件哈希、字符串、导入表等静态信息入手，再结合进程监控、注册表快照等动态行为，最终深入核心代码解读加密逻辑，完整演示如何将未知程序从“黑阅读详情

请大牛们帮我看看为什么我的程序会死在ReadFile。纠结死了，快哭了都。。。。。



function IsWindowsNT: BOOL;

var

  osv : OSVERSIONINFO;

begin

  osv.dwOSVersionInfoSize := SizeOf(osv);

  GetVersionEx(osv);

  if osv.dwPlatformId = VER_PLATFORM_WIN32_NT then

  begin

    Result := True;

  end

  else

  begin

    Result := False;

  end;

end;

procedure TfrmBMain.ExecuteBack(const CommandLine : string);

var

  sa         : TSecurityAttributes;

  sd         : SECURITY_DESCRIPTOR;

  lpsa       : PSecurityAttributes;

  hReadPipe  : THandle;

  hWritePipe : THandle;

  si         : TStartupInfo;

  pi         : TProcessInformation;

  dest       : array [0..100] of Char;

  BytesRead  : DWORD;

  strString  : string;

begin

  lpsa   := nil;

  try

    if (IsWindowsNT) then

    begin

      InitializeSecurityDescriptor(@sd,SECURITY_DESCRIPTOR_REVISION);

      SetSecurityDescriptorDacl(@sd,True,nil,False);

      sa.nLength              := SizeOf(SECURITY_ATTRIBUTES);

      sa.bInheritHandle       := True;

      sa.lpSecurityDescriptor := @sd;

      lpsa                    := @sa;

    end;

    Assert(CreatePipe(hReadPipe,hWritePipe,lpsa,2500000));

    GetStartupInfo(si);

    si.cb          := SizeOf(TStartupInfo);

    si.dwFlags     := STARTF_USESHOWWINDOW + STARTF_USESTDHANDLES;

    si.wShowWindow := SW_HIDE;

    si.hStdOutput  := hWritePipe;

    si.hStdError   := hWritePipe;

    CreateProcess(

                  nil,

                  PChar(CommandLine),

                  nil,  nil,   True,

                  0,    nil,   nil,

                  si,   pi

    );

    CloseHandle(pi.hThread);

    WaitForSingleObject(pi.hProcess,0);

    while True do

    begin

      if not PeekNamedPipe(hReadPipe,@dest,SizeOf(dest),nil,nil,nil) then Break;

      if ReadFile(hReadPipe, dest, SizeOf(dest), BytesRead, nil) = True then

      begin

        strString :=  Copy(string(dest),1,BytesRead);

        ShowMessage(strString);

        if Length(strString) < SizeOf(dest) then Break;

      end;

      Sleep(200);

      Application.ProcessMessages;

    end;

    CloseHandle(hWritePipe);

    CloseHandle(hReadPipe);

    Closehandle(pi.hProcess);

  except

    ;

  end;

end;