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

通过机器码获得注册码的完整方案（转贴过来,留着看看） 想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。生成机器码代码2、用户将该机器码EMAIL给我，我用该机器码生成一个注册码，发送给用户。注册码生成代码3、用户在程序中输入该注册码，程序逆算该注册码，与机器码核对，查看是否相符。注册码逆算、核对代码，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,MaximumComponentLength,FileSystemFlags,nil,0);Result:= (VolumeSerialNumber);end; function Serial(Num:DWORD):string; //这个号码是用户给你生成注册码的，它通过对硬盘序列号编码而来。var sNum:string; inChar:array[1..4]of char;begin Num:=Num xor 8009211011;sNum:=inttostr(Num);inChar[1]:=char(((integer(sNum[1])+integer(sNum[2]))mod 5)+integer(a));inChar[2]:=char(((integer(sNum[3])+integer(sNum[4]))mod 5)+integer(a));inChar[3]:=char(((integer(sNum[5])+integer(sNum[6]))mod 5)+integer(a));inChar[4]:=char(((integer(sNum[7])+integer(sNum[8])+integer(sNum[9]))mod 5)+integer(a));insert(inChar[1],sNum,1);insert(inChar[4],sNum,3);insert(inChar[2],sNum,5);insert(inChar[3],sNum,9);Result:=sNum; end; function encode(License:string):string;var str,sNum:string; number:dword; byte,byte1:array[1..4]of dword;inChar:array[1..3]of char;beginstr:=license;delete(str,1,1);delete(str,2,1);delete(str,3,1);delete(str,6,1);number:=strtoint64(str);number:=not number;number:=number xor $1973122980;byte[1]:=(number and $0ff000000) shr 24;byte[2]:=(number and $0ff0000) shr 16;byte[3]:=(number and $0ff00) shr 8;byte[4]:=(number and $0ff); byte1[1]:=((byte[1]and $0c0)+(byte[2]and $0c0)shr 2)+((byte[3]and $0c0)shr 4)+((byte[4]and $0c0)shr 6);byte1[2]:=((byte[1]and $30)shl 2)+(byte[2]and $30)+((byte[3]and $30)shr 2)+((byte[4]and $30)shr 4);byte1[3]:=((byte[1]and $0c)shl 4)+((byte[2]and $0c)shl 2)+(byte[3]and $0c)+((byte[4]and $0c)shr 2);byte1[4]:=((byte[1]and $03)shl