unitlockconst.~pas

有密码的加壳源码.只是简单的介绍下壳方法.牛人见笑了

unit UnitLockConst;

interface

const
  MaxBufferSize = 32768; {磁盘缓冲区的大小}
  PassSize = 15; {密码的最大长度}
  CFlag = 'PROTECT'; {文件名，可以自定义}
//  AdditionalCodeLen = $50000; {附加代码的长度}

{文件加锁记录}
type
  TLockedFile = record
    {加壳标志，由用户自定义}
    Flag: string[Length(CFlag)];
    {文件名}
    Name: ShortString;
    {标题}
    Caption: string[63];
    {密码}
    PassWord: string[PassSize];
    {附加代码的长度}
    AdditionalCodeLen :integer;
  end;

implementation

end.