摘要：
器码获得注册码的完整方案（转贴过来,留着看看）想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很..... 器码获得注册码的完整方案（转贴过来,留着看看）想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。生成机器码代码2、用户将该机器码EMAI韵芋肝通过机器码获得注册码的完整方案(转贴过来伪署韦熊哥辑通过机器码获得注册码的完整方案（转贴过来,留着看看）通过机器码获得注册码的完整方案(转贴过来通过机器码获得注册码的完整方案（转贴过来,留着看看）想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。生成机器码代码2、用户将该机器码EMAI想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。生成机器码代码2、用户将该机器码EMAIL给我，我用该机器码生成一个注册码，发送给用户。注册码生成代码3、用户在程序中输入该注册码，程序逆算该注册码，与机器码核对，查看是否相符。注册码逆算、核对代码，4、如果用户安装后没有得到注册码，在N天后部分功能不可用。不要太容易被改（虽然说安装后也只有少部份功能能用）。
时限功能代码，zw84611(2002-12-223:8)functionGetHDNumber(DrvString):DWORD;//得到硬盘序列号varVolumeSerialNumberDWORD;MaximumComponentLengthDWORD;FileSystemFlagsDWORD;beginGetVolumeInformation(pChar(Drv),nil,@VolumeSerialNumber,MaximumComponentLength,FileSystemFlags,nil,Result:=(VolumeSerialNumber);end;通过机器码获得注册码的完整方案(转贴过来通过机器码获得注册码的完整方案（转贴过来,留着看看）想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。生成机器码代码2、用户将该机器码EMAIL给我，我用该机器functionSerial(Num:DWORD):string;//这个号码是用户给你生成注册码的，它通过对硬盘序列号编码而来。varsNum:string;inChar:array[1..4]ofchar;begin通过机器码获得注册码的完整方案(转贴过来通过机器码获得注册码的完整方案（转贴过来,留着看看）想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。
生成机器码代码2、用户将该机EMAIL给我，我用该机器码生成一个携鸣弗氦武妙Num:=Numxor8009211011;sNum:=inttostr(Num);inChar[1]:=char(((integer(sNum[1])+integer(sNum[2]))mod5)+integer('a'));inChar[2]:=char(((integer(sNum[3])+integer(sNum[4]))mod5)+integer('a'));inChar[3]:=char(((integer(sNum[5])+integer(sNum[6]))mod5)+integer('a'));inChar[4]:=char(((integer(sNum[7])+integer(sNum[8])+integer(sNum[9]))mod5)+integer('a'));insert(inChar[1],sNum,1);insert(inChar[4],sNum,3);insert(inChar[2],sNum,5);insert(inChar[3],sNum,9);Result:=sNum;通过机器码获得注册码的完整方案(转贴过来通过机器码获得注册码的完整方案（转贴过来,留着看看）想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。
生成机器码代码2、用户将该机器码EMAIL给我，我用该机器码生end;通过机器码获得注册码的完整方案(转贴过来通过机器码获得注册码的完整方案（转贴过来,留着看看）想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。生成机器码代码2、用户将该机器码EMAIL给我，我用该机器functionencode(License:string):string;varstr,sNum:string;number:dword;byte,byte1:array[1..4]ofdword;inChar:array[1..3]ofchar;beginstr:=license;delete(str,1,1);delete(str,2,1);delete(str,3,1);delete(str,6,1);number:=strtoint64(str);number:=notnumber;number:=numberxor$1973122980;byte[1]:=(number$0ff000000)shr24;byte[2]:=(number$0ff0000)shr16;byte[3]:=(number$0ff00)shr$0ff);通过机器码获得注册码的完整方案(转贴过来通过机器码获得注册码的完整方案（转贴过来,留着看看）想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。
生成机器码代码2、用户将该机器码EMAIL给我，我用该机器码生成一个携鸣弗氦byte1[1]:=((byte[1]and$0c0)+(byte[2]and$0c0)shr2)+((byte[3]and$0c0)shr4)+((byte[4]and$0c0)shrbyte1[2]:=((byte[1]and$30)shl2)+(byte[2]and$30)+((byte[3]and$30)shr2)+((byte[4]and$30)shrbyte1[3]:=((byte[1]and$0c)shl4)+((byte[2]and$0c)shl2)+(byte[3]and$0c)+((byte[4]and$0c)shrbyte1[4]:=((byte[1]and$03)shl6)+((byte[2]and$03)shl4)+((byte[3]and$03)shl 2)+(byte[4]and $03); number:=((byte1[1])shl 24)+((byte1[2])shl 16) +((byte1[3])shl 8)+(byte1[4]);通过机器码获得注册码的完整方案(转贴过 来通过机器码获得注册码的 完整方案（转贴过来,留着看 看）想加密自己的软件，看 过一些软件的作法，思路如 下：1、用户安装后，得出 本机的机器码（硬盘的序列 号，不想用网卡，因为很多 机器没有网卡）。
生成机器码 代码 2、用户将该机器码 EMAIL 给我，我用该机器码生成一个携鸣弗 $0ff000000)shr24);//右移24 $0ff0000)shr16); byte[3]:=((number $0ff);通过机器码获得注册码的完整方案(转贴过来通过机器码获得注册码的完 整方案（转贴过来,留着看 看）想加密自己的软件，看过 一些软件的作法，思路如下 ：1、用户安装后，得出本 机的机器码（硬盘的序列号 ，不想用网卡，因为很多机 器没有网卡）。生成机器码 代码 2、用户将该机器码 EMAIL 给我，我用该机器码生成一个携鸣弗氦
