delphi 加密解密注册软件详细案例

【实例简介】
知识点 ：字符串 加、解密 以及注册表的增删查 涉及 ： A、系统硬件信息的读取（HardWareInfo.pas单元） B、字符串根据key值进行随机生成序列码的加密解密单元文件(Encrypt.pas) 效果 : A、针对MAC地址（全球唯一）或者CPU ID 进行加密，加密后的字符串为注册码(算法唯一)，作为注册的关键依据必不可少 B、注册成功后，注册码将再一次被(Encrypt.pas)加密并写入注册表 'SoftWare\Yunkun\RegisterExample\RegisterCode' C、程序判断是否注册的依据是：加密后的注册序列号(MAC或者CPU ID)字符串 == 解密后的注册码字符串
【实例截图】
【核心代码】
16359647623405893915.rar
└── Delphi软件注册加解密demo实例
├── Encrypt.pas
├── HardWareInfo.pas
├── __history
│   ├── Encrypt.pas.~1~
│   ├── Encrypt.pas.~2~
│   ├── Encrypt.pas.~3~
│   ├── HardWareInfo.pas.~1~
│   ├── HardWareInfo.pas.~2~
│   ├── Project2.dpr.~1~
│   ├── Project2.dpr.~2~
│   ├── Project2.dpr.~3~
│   ├── Unit1.dfm.~1~
│   ├── Unit1.dfm.~2~
│   ├── Unit1.pas.~1~
│   ├── Unit1.pas.~10~
│   ├── Unit1.pas.~2~
│   ├── Unit1.pas.~3~
│   ├── Unit1.pas.~4~
│   ├── Unit1.pas.~5~
│   ├── Unit1.pas.~6~
│   ├── Unit1.pas.~7~
│   ├── Unit1.pas.~8~
│   ├── Unit1.pas.~9~
│   ├── Unit3.dfm.~1~
│   ├── Unit3.dfm.~2~
│   ├── Unit3.dfm.~3~
│   ├── Unit3.dfm.~4~
│   ├── Unit3.dfm.~5~
│   ├── Unit3.dfm.~6~
│   ├── Unit3.dfm.~7~
│   ├── Unit3.dfm.~8~
│   ├── Unit3.dfm.~9~
│   ├── Unit3.pas.~10~
│   ├── Unit3.pas.~11~
│   ├── Unit3.pas.~12~
│   ├── Unit3.pas.~13~
│   ├── Unit3.pas.~14~
│   ├── Unit3.pas.~15~
│   ├── Unit3.pas.~16~
│   ├── Unit3.pas.~17~
│   ├── Unit3.pas.~18~
│   └── Unit3.pas.~19~
├── Project2.dpr
├── Project2.dproj
├── Project2.dproj.local
├── Project2.identcache
├── Project2.res
├── Project2.stat
├── __recovery
├── Unit1.dfm
├── Unit1.pas
├── Unit3.dfm
├── Unit3.pas
└── Win32
└── Debug
├── Encrypt.dcu
├── HardWareInfo.dcu
├── Project2.exe
├── Unit1.dcu
└── Unit3.dcu

5 directories, 56 files