Delphi OP crypter研究

应用背景样品函数ReadFile（文件名：AnsiString字符串）；VaR和公司；公司；公司；公司；公司；公司；公司；公司；公司；公司； ；缓冲区 ； ； ； ； ； ； ；：AnsiString；的规模和规模，并在；和，和，；，；，；readbytes  ； ； ； ； ；：整数； ；defaultfilemode：字节；开始结果是：“”； ；defaultfilemode：=我不； ；我不：= 0； ；assignfile（F，文件名）；重置（女，1）； ；如果（ioresult = 0）然后一开始 ； ； ；尺寸：=文件大小（F）； ； ； ；而（尺寸& gt；1024）做和，开始，开始 ； ； ； ； ；规定长度（缓冲区，1024）； ； ； ； ； ；blockread（F，缓冲[ 1 ]，1024，readbytes）；和，和，和，结果：=结果+缓冲区； ； ； ； ； ；12（大小，readbytes）；和，结束，结束； ； ； ；规定长度（缓冲区，大小）； ； ； ；blockread（F，缓冲[ 1 ]，大小）；和，结果：=结果+缓冲； ； ； ；关闭一个打开的文件（F）；结束了； ；我不defaultfilemode：=；终点功能readeof（delimit1，delimit2：字符串：字符串）；VaR ；缓冲区 ； ； ； ； ；：AnsiString；reslength  ； ； ；：整数；我和公司的；&；&；&；&；&；&；&；posdelimit  ； ；：整数；开始 ；缓冲：= ReadFile（paramstr（0））； ；如果POS（delimit1，缓冲）& gt；POS（delimit2，缓冲）

Stub
Cleaner.bat
Stub.dpr
uEOF.pas
uRunPE.pas
uEOF.pas
Builder.dfm
Builder.pas
Cleaner.bat
OPCrypter.dpr
OPCrypter.res