通过机器码获得注册码的完整方案(转贴过来.doc

上网导航 2023-10-19 75 0条评论
摘要: 器码获得注册码的完整方案(转贴过来,留着看看)想加密自己的软件,看过一些软件的作法,思路如下: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 给我,我用该机器码生成一个携鸣弗氦

文章版权及转载声明:

作者:上网导航本文地址:https://www.90xe.com/post/6202.html发布于 2023-10-19
文章转载或复制请以超链接形式并注明出处技术导航

分享到:

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏