通过机器码获注册码的完整方案(转贴过来,留着看看).docVIP

通过机器码获得注册码的完整方案（转贴过来,留着看看） 想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。生成机器码代码2、用户将该机器码EMAIL给我，我用该机器码生成一个注册码，发送给用户。注册码生成代码3、用户在 HYPERLINK /doc/ 程序中输入该注册码， HYPERLINK /doc/ 程序逆算该注册码，与机器码核对，查看是否相符。注册码逆算、核对代码，4、如果用户安装后没有得到注册码，在N天后部分功能不可用。不要太容易被改（虽然说安装后也只有少部份功能能用）。时限功能代码，zw84611 (2002-12-2 23:8) function GetHDNumber(Drv : String): DWORD; //得到硬盘序列号varVolumeSerialNumber : DWORD;MaximumComponentLength : DWORD;FileSystemFlags : DWORD;beginif Drv[Length(Drv)] =: then Drv := Drv + \;GetVolumeInformation(pChar(Drv),nil,0,@VolumeSerialNumber,MaximumComponentLengt