RAR密码探测源码

用于RAR密码暴力破解的源码-仅供参考 function ExtractArchive(ArcName: PChar; Mode: Integer):boolean; var hArcData: THandle; RHCode, PFCode: Integer; CmtBuf: array[0..Pred(16384)] of Char; HeaderData: RARHeaderData; OpenArchiveData: RAROpenArchiveDataEx; Operation: Integer; begin OpenArchiveData.ArcName := ArcName; OpenArchiveData.CmtBuf := @CmtBuf; OpenArchiveData.CmtBufSize := SizeOf(CmtBuf); OpenArchiveData.OpenMode := RAR_OM_EXTRACT; hArcData := RAROpenArchiveEx(OpenArchiveData); if (OpenArchiveData.OpenResult <> 0) then begin showmessage('打开失败'); Exit; end; RARSetCallback (hArcData, CallbackProc, Integer (@Mode)); HeaderData.CmtBuf := nil; repeat RHCode := RARReadHeader(hArcData, HeaderData); if RHCode <> 0 then Break; if Mode = EXTRACT then Operation := RAR_EXTRACT else Operation := RAR_TEST; PFCode := RARProcessFile(hArcData, Operation, nil, nil);