文件名称：RAR密码探测源码
文件大小：286KB
文件格式：RAR
更新时间：2017-05-20 08:56:12
密码探测源码
用于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);
【文件预览】：
test
----Unit1.dfm(589B)
----Project1.exe(389KB)
----Unit1.pas(3KB)
----123.rar(20B)
----Unit1.dcu(6KB)
----UnRAR.dcu(4KB)
----Project1.res(876B)
----UnRAR.pas(5KB)
----unrar.dll(214KB)
----UnRDLL.dpr(7KB)
----Project1.dof(16KB)
----Project1.dpr(213B)
----Project1.cfg(434B)