如何在unity中获取PC机器码序列号缩写做程序序列号验证
点击联系发帖人
时间：2017-06-16 14:34
如何获取机器码？
[问题点数：20分，结帖人jbzj]
本版专家分：669
结帖率 96.93%
CSDN今日推荐
本版专家分：30
本版专家分：76
本版专家分：103
本版专家分：103
本版专家分：669
本版专家分：0
匿名用户不能发表回复！|
其他相关推荐您的位置： >
根据机器码生成注册码:VB注册机实例下载
根据机器码生成注册码:VB注册机实例
运行环境：windows/vb6.0
更新时间： 20:17:39
论坛转帖：
有无插件：无插件，请您放心使用！
分&享&到：
根据机器码生成注册码，获得序列号并验证，VB注册机实例。我正使用的硬盘算法软件加密钥匙计算器,分享给出大家了，不过有些朋友说用此方法算注册号不好，建议用其他方法。
点击链接开始下载VC++如何获取机器码?硬盘序列号、CPU编号、BIOS编号等~_百度知道
VC++如何获取机器码?硬盘序列号、CPU编号、BIOS编号等~
我知道那个用GetVolumeInformation得到的不是硬盘的序列号，这个大家可以去百度一下。得到的结果是分区的编号，这个东西是可以用软件刷洗更改的！那么到底该用什么函数来获取，我找了...
我知道那个用GetVolumeInformation得到的不是硬盘的序列号，这个大家可以去百度一下。得到的结果是分区的编号，这个东西是可以用软件刷洗更改的！那么到底该用什么函数来获取，我找了半天没有找到，举个例子最好！麻烦大家了~~我需要用这个加入到自己的程序中~~所以是要源代码~~~
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
sai_84知道合伙人
采纳数：162
获赞数：447
可以试试使用WMI（在msdn上有详细的信息）:硬盘序列号: 用Win32_PhysicalMedia class.CPU编号: 用Win32_Processor class.BIOS编号: 用Win32_BIOS class.下面例子取得硬盘的序列号，其他的用法也类似(msdn上的例子，把Win32_OperatingSystem改成了Win32_PhysicalMedia）:#define _WIN32_DCOM#include &iostream&#include &comdef.h&#include &Wbemidl.h&# pragma comment(lib, &wbemuuid.lib&)int main(int argc, char **argv){
// Step 1: --------------------------------------------------
// Initialize COM. ------------------------------------------
CoInitializeEx(0, COINIT_MULTITHREADED);
if (FAILED(hres))
cout && &Failed to initialize COM library. Error code = 0x&
&& hex && hres &&
// Program has failed.
// Step 2: --------------------------------------------------
// Set general COM security levels --------------------------
// Note: If you are using Windows 2000, you need to specify -
// the default authentication credentials for a user by using
// a SOLE_AUTHENTICATION_LIST structure in the pAuthList ----
// parameter of CoInitializeSecurity ------------------------
CoInitializeSecurity(
// COM authentication
// Authentication services
// Reserved
RPC_C_AUTHN_LEVEL_DEFAULT,
// Default authentication
RPC_C_IMP_LEVEL_IMPERSONATE, // Default Impersonation
// Authentication info
EOAC_NONE,
// Additional capabilities
// Reserved
);if (FAILED(hres))
cout && &Failed to initialize security. Error code = 0x&
&& hex && hres &&
CoUninitialize();
// Program has failed.
// Step 3: ---------------------------------------------------
// Obtain the initial locator to WMI -------------------------
IWbemLocator *pLoc = NULL;
hres = CoCreateInstance(
CLSID_WbemLocator,
CLSCTX_INPROC_SERVER,
IID_IWbemLocator, (LPVOID *) &pLoc);
if (FAILED(hres))
cout && &Failed to create IWbemLocator object.&
&& & Err code = 0x&
&& hex && hres &&
CoUninitialize();
// Program has failed.
// Step 4: -----------------------------------------------------
// Connect to WMI through the IWbemLocator::ConnectServer method
IWbemServices *pSvc = NULL;
// Connect to the root\cimv2 namespace with
// the current user and obtain pointer pSvc
// to make IWbemServices calls.
hres = pLoc-&ConnectServer(
_bstr_t(L&ROOT\\CIMV2&), // Object path of WMI namespace
// User name. NULL = current user
// User password. NULL = current
// Locale. NULL indicates current
// Security flags.
// Authority (e.g. Kerberos)
// Context object
// pointer to IWbemServices proxy
if (FAILED(hres))
cout && &Could not connect. Error code = 0x&
&& hex && hres &&
pLoc-&Release();
CoUninitialize();
// Program has failed.
cout && &Connected to ROOT\\CIMV2 WMI namespace& &&// Step 5: --------------------------------------------------
// Set security levels on the proxy -------------------------
hres = CoSetProxyBlanket(
// Indicates the proxy to set
RPC_C_AUTHN_WINNT,
// RPC_C_AUTHN_xxx
RPC_C_AUTHZ_NONE,
// RPC_C_AUTHZ_xxx
// Server principal name
RPC_C_AUTHN_LEVEL_CALL,
// RPC_C_AUTHN_LEVEL_xxx
RPC_C_IMP_LEVEL_IMPERSONATE, // RPC_C_IMP_LEVEL_xxx
// client identity
// proxy capabilities
if (FAILED(hres))
cout && &Could not set proxy blanket. Error code = 0x&
&& hex && hres &&
pSvc-&Release();
pLoc-&Release();
CoUninitialize();
// Program has failed.
// Step 6: --------------------------------------------------
// Use the IWbemServices pointer to make requests of WMI ----
// For example, get the name of the operating system
IEnumWbemClassObject* pEnumerator = NULL;
hres = pSvc-&ExecQuery(
bstr_t(&WQL&),
bstr_t(&SELECT * FROM Win32_PhysicalMedia&),
WBEM_FLAG_FORWARD_ONLY | WBEM_FLAG_RETURN_IMMEDIATELY,
&pEnumerator);
if (FAILED(hres))
cout && &Query for physical media failed.&
&& & Error code = 0x&
&& hex && hres &&
pSvc-&Release();
pLoc-&Release();
CoUninitialize();
// Program has failed.
// Step 7: -------------------------------------------------
// Get the data from the query in step 6 -------------------
IWbemClassObject *pclsO
ULONG uReturn = 0;
while (pEnumerator)
HRESULT hr = pEnumerator-&Next(WBEM_INFINITE, 1,
&pclsObj, &uReturn);
if(0 == uReturn)
VARIANT vtP
// Get the value of the Name property
hr = pclsObj-&Get(L&SerialNumber&, 0, &vtProp, 0, 0);
wcout && &Serial Number : & && vtProp.bstrVal &&
VariantClear(&vtProp);
// Cleanup
// ========
pSvc-&Release();
pLoc-&Release();
pEnumerator-&Release();
pclsObj-&Release();
CoUninitialize();
// Program successfully completed.}
匿名用户知道合伙人
{ // TODO: Add extra validation here CString str1; char buff[1024]; typedef int (WINAPI ICEPUB_MACHINEGETINFO)(int typeFlag,char *strInfo); ICEPUB_MACHINEGETINFO *icePub_machineGetInfo = 0; HINSTANCE hDLLDrv = LoadLibrary(&icePubDll.dll&); if(hDLLDrv) {
icePub_machineGetInfo = (ICEPUB_MACHINEGETINFO *)GetProcAddress(hDLLDrv, &icePub_machineGetInfo&); }icePub_machineGetInfo(1,buff); str1=//mac icePub_machineGetInfo(2,buff); str1=str1+//cpu icePub_machineGetInfo(3,buff); str1=str1+//hard icePub_machineGetInfo(4,buff); str1=str1+//memery icePub_machineGetInfo(5,buff); str1=str1+//biosdateAfxMessageBox(str1);}//icePubDll.dll可baidu之
韩_靖知道合伙人
获赞数：129
下一个cpu-z软件，查看下就可以了，超级简单超级方便，主板硬盘CPU等等全能看到
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。 上传我的文档
 上传文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
读取机器码,cpu序列号,生成注册码类
下载积分：1000
内容提示：c
读取机器码,cpu序列号,生成注册码类
文档格式：TXT|
浏览次数：157|
上传日期： 19:30:57|
文档星级：
全文阅读已结束，如果下载本文需要使用
 1000 积分
下载此文档
该用户还上传了这些文档
读取机器码,cpu序列号,生成注册码类
关注微信公众号下次自动登录
现在的位置:
& 综合 & 正文
通过机器码获得注册码的完整方案
oceanwave ( 19:8) 1479167
想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。生成机器码代码，150分2、用户将该机器码EMAIL给我，我用该机器码生成一个注册码，发送给用户。注册码生成代码，150分3、用户在程序中输入该注册码，程序逆算该注册码，与机器码核对，查看是否相符。注册码逆算、核对代码，150分。4、如果用户安装后没有得到注册码，在N天后部分功能不可用。不要太容易被改（虽然说安装后也只有少部份功能能用）。时限功能代码，150分。其余100分，参与者有分。先出100，其余分另开贴给。谢谢！
zw8-12-2 23:8)
function GetHDNumber(Drv : String): DWORD; //得到硬盘序列号var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;begin
if Drv[Length(Drv)] =':' then Drv := Drv + '/';
GetVolumeInformation(pChar(Drv),
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
Result:= (VolumeSerialNumber);
function Serial(Num:DWORD):
//这个号码是用户给你生成注册码的，它通过对硬盘序列号编码而来。var sNum:
inChar:array[1..4]begin
Num:=Num xor ;
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:=sN
function encode(License:string)://加密函数var str,sNum:
number: byte,byte1:array[1..4]
inChar:array[1..3]begin
delete(str,1,1);
delete(str,2,1);
delete(str,3,1);
delete(str,6,1);
number:=strtoint64(str);
number:=number xor $;
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 6)+((byte[2]and $03)shl 4)+((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]);
byte[1]:=((number and $0ff000000)shr 24);//右移24位
byte[2]:=((number and $0ff0000)shr 16);
byte[3]:=((number and $0ff00)shr 8);
byte[4]:=(number and $0ff);
byte[1]:=(((byte[1] and $f0))shr 4)+(((byte[1] and $0f))shl 4);
byte[2]:=(((byte[2] and $f0))shr 4)+(((byte[2] and $0f))shl 4);
byte[3]:=(((byte[3] and $f0))shr 4)+(((byte[3] and $0f))shl 4);
byte[4]:=(((byte[4] and $f0))shr 4)+(((byte[4] and $0f))shl 4);
number:=((byte[2])shl 24)+((byte[1])shl 16)
+((byte[4])shl 8)+(byte[3]);
sNum:=inttostr(Number);
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'));
insert(inChar[1],sNum,1);
insert(inChar[2],sNum,5);
insert(inChar[3],sNum,9);
result:=sN
function decode(code:string)://解密函数var str: number: byte,byte1:array[1..4]begin
delete(str,1,1);
delete(str,4,1);
delete(str,7,1);
number:= strtoint64(str);
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);
////0123 --& 1032 byte[1]:=(((byte[1] and $f0))shr 4)+(((byte[1] and $0f))shl 4); byte[2]:=(((byte[2] and $f0))shr 4)+(((byte[2] and $0f))shl 4); byte[3]:=(((byte[3] and $f0))shr 4)+(((byte[3] and $0f))shl 4); byte[4]:=(((byte[4] and $f0))shr 4)+(((byte[4] and $0f))shl 4);
number:=((byte[2])shl 24)+((byte[1])shl 16)
+((byte[4])shl 8)+(byte[3]);
byte[1]:=((number and $0ff000000)shr 24);//右移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 $0c
oceanwave ( 7:28)
谢先！试试看，可以后马上开贴给分。
oceanwave ( 8:1)
to zw84611: 试了你的代码后，有几个问题请教：1、用GetHDNumber取得硬盘序列号后，用Serial生成注册码。那encode和decode如何用呢？2、如何将serial逆算成为硬盘序列号与原序列号相核对？3、Serial函数中第一行的应该就是一个加密转换的常量吧？还有inChar的Index值？再请教大家关于加密软件的一些经验，同样给出150分酬谢。（当是散分了）
sxqsxq ( 8:10)
最好做一个不可逆的
oceanwave ( 8:35)
看了一篇这方面的文章，是VC++的，不过思路一样zw84611的回答很好。现在的问题是不可逆算法的实现，多层的加密位，注册信息的保存，还有先前第四个问题。谢谢
youth[dfw] ( 8:37)
1、利用RSA算法2、在功能函数中进行校验3、多处进行校验4、利用线程、消息、延时5、监测软件关键点，防止强行跳过、、、
zbsfg ( 8:39)
这个应该是硬盘的序列号，而不是硬盘的机器码，格式化后序列号失效。
xmodem ( 8:47)
硬盘序列号可以复制的，硬盘的机器码到是不错，但是SCSI硬盘没有，读出来全0
jifee ( 8:51)
即使用硬盘的机器码也有问题，有些硬盘没有序列号。我采用硬盘的机器码加密已经有三年了，这种事情遇到过！最好采用Bios的内容加密。不过Bios一旦升级则密码失效！我所采用的方法是内存大小+硬盘大小+硬盘序列号+CPU型号和速度+Bios中的某固定数据段前提是他的计算机不允许升级或者升级后允许到你那里重新注册（激活）。以上的硬件信息的获取方法本论坛十分丰富（自己找找看吧）。
oceanwave ( 9:1)
其实用GetVolumeInformation这个API获得的是分区的序列号，我说的机器码是对用户而言的。因为是分区的序列号，所以每次格式化或对硬盘的FAT表进行改动后，序列号都会改变。这个问题都不大。to youth[dfw]:请问能给出具体的代码吗？额外给100分。谢谢！
大梦 ( 8:59) JIFEE的做法够可靠，但如果再加上网卡序列号会更好。因为如果组成一个多台计算机的环境，所购计算机会使用相同配置的同一批机器。GHOST就可以解决问题。
oceanwave ( 9:8)
有道理，不过关键是有否网卡的情况下机器码分别是如何生成。谢谢！怎么都没人回答了？分不够可以再加嘛。
lop ( 9:21)
这个问题我最近也想过,可否这样:不一定要取硬件的固定码,可否在程序中生成一个随机码放在系统的注册表中,以后就用这个随机码进行生成注册码和注册码验证.你们觉得这个办法可行吗?
飘摇客 ( 9:25)
可行，使用GUID，放在注册表中，同时把这个GUID发回给你，你可以使用这个进行注册码和注册码验证。
获得GUID，
var guid:TGUID;
CoCreateGUID(guid); ShowMessage(GuidToString(guid));
oceanwave ( 9:51)
希望有完整的通过GUID得到SN的代码方案。将会另外给分300分。原来硬盘序列号方式回答完整后，也同样给分。参与者也有分。这次算是千分大放送了：）谢谢！
fuda ( 10:8)
建议不要用硬盘序列号，因为一方面在2000/NT/XP和中有问题，另一方面对SCSI硬盘有问题。建议不要用主板序列号，因为同批次的主板序列号后部分相同,前部分与所插硬件相关。建议使用CPU序列号
yczjs ( 10:19)
用SoftSentry加密软件搞定Delphi园地
jifee ( 12:31)
GUID是利用网卡的序列号和当前的时间生成的，有些机器可能根本不装网卡，所以用网卡序列号也未必有效。WindowsXP就是利用计算机中的硬件信息进行加密的，如果能获取到WindowsXP中代表硬件信息的序列号就好了！谁有这方面的经验？
xmodem ( 12:34)
放在注册表里还不如不要算了，1、可以检测到你把sn写在注册表哪里，在另外的电脑上复制即可2、克隆整个硬盘关于网卡号也不行，可以伪造，很简单。
oceanwave ( 12:50)
xmodem兄说的没错，这样或那样的加密保护也只是“防君子，不防小人”。查阅了网上的一些相关资料，用硬盘序列号还是比较通用的做法。因此，我还是希望那位高手能回答完我先前的四个问题。应该说zw84611兄已经回答第一个问题，150分是他的了。希望他能告诉我如何生成不可逆的注册码，以及一些稍加的说明。就有第二、三个问题的300分了，谢谢！还有第四个问题……当然还有几位兄弟，如飘摇客，jifee，等等，也不一一列举了，我都会另外开贴给分。总共发分1000分。希望大家踊跃讨论，谢谢！
飘摇客 ( 13:40)
其实任何的加密基本上都能被破解，这里给你一个思路。1、用户第一次运行软件后，生成一个GUID，保存在注册表中，另外存储在文件中或者写入系统已有的文件尾部。
此为机器码，让用户发回，如果用户在注册表中删除了，就从文件中读取GUID，然后写入注册表。当然应该还需用户发回用户的相关信息，保证在重新安装机器时能向你索回注册码；2、根据此GUID写一个验证序列号的过程（软件中）；3、写一个注册机，根据用户邮寄回的GUID得到注册码，发给用户用于注册；4、最好提供在线更新功能，更新时记录用户机器码（GUID），如发现有同一个GUID对同一个版本进行更新，就发布新的版本，使该GUID对应的注册码不可用。
zbsfg ( 13:52)
to 飘摇客那还不如用分区的序列号来的方便,加密解密算法网上不是很多吗?随便弄不就行了。不过话又说回来了，软件只要给别人用，总会被人破解的，所以我一般只发布DEMO版，只有注册用户才给正式版，这样可能会好些。虽然麻烦些，但至少软件被人破解的可能些大大降低了。
qweasd ( 13:55)
我想问一下，是不是收到用户发来的机器码后，作者通过此机器码生成一个注册码给用户？那作者是怎样生成注册码的呢？是不是编一个程序来生成，那这个程序跟那些破解注册机是一回事吗？请各位搞手顺便回答一下我的问题，谢谢。
飘摇客 ( 14:0)
对，其实给Demo的办法不错，其实简单做一个注册的就行（用用户和你联系的邮箱和用户名进行注册），如果别人要买你的软件就会买的。如果使用硬件加密的话相对要好一些，但是也有问题，假如使用硬盘序列号来注册，有些硬盘根本就没有序列号，主板也是一样的，有的主板也没有序列号，网卡的和CPU的就没有试过了，不知道如何。
oceanwave ( 14:0)
谢谢飘摇客！但我的问题与先前用硬盘序列号的方式一样：怎么由这个GUID，或是HD-SN生成一个不可逆的注册码？也就是注册机的实现代码？
oceanwave ( 14:11)
先前zw81644兄提供的代码中，GetVolumeInformation获取的是分区的序列号，而不是硬盘的序列号，我想这个序列号总该是有的。而飘摇客兄用GUID还会更好些，但突然想起来，重新分区的机率应该比重新安装程序小得多，也就是分区序列号的变化会比GUID小。而FAT、FAT32、NTFS的分区都有序列号。而这个序列号不用存储在注册表或是文件中，保密性和方便性会更好。如果是GUID，一是在注册表中找找就可以COPY到其它机器中，保密性会差一些，因为它是存储在外部，二是如果重装系统（分区序列号可以不变），GUID就改变了，用户就要重新申请注册码，这就麻烦了。虽然，这些加密比较表面，但在一定用户范围中可以保证开发者的利益。所以，我想用硬盘序列号（准确的讲是“分区序列号”）做为注册码生成的基础会更适合一些。
oceanwave ( 14:16)
前面我有给过一个网址：这里就有提到：------------------------------------------------------------------------------为了确保注册码的唯一性，在注册源的采集上应当尽量选取一些唯一的、不易复制的软、硬件信息作为原始信息。而硬件由于其不可复制性和物理唯一性成为了我们的首选目标，而且多数计算机配件在出厂时都有一个唯一的标识号，我们可以将其作为识别的依据。符合上述条件的标识号大致有硬盘的序列号、网卡的序列号、BIOS中的主版序列号或主机出厂日期和标志等几种，考虑到硬件通用性、实现起来的难易程度以及系统安全性等多种因素以硬盘序列号为佳，因为网卡随说唯一性最好但不能保证每台计算机都装有网卡，而ROM BIOS中F000H-FFFFH区域虽存有与硬件配置有关的信息、F000H:FFF5H-F000H:FFFFH存有主机出厂日期和主机标志值等参数，但在Windows 9x的保护模式下编程实现是比较困难的。虽然在Windows 9x保护模式下对硬盘序列号也不能按通常在DOS模式下的通过硬盘端口1F6H和1F7H直接读取，但Windows API函数中提供的下面这个函数可以非常简单的获取到指定磁盘驱动器的序列号： GetVolumeInformation("C://",NULL,NULL,&dwIDESerial,NULL,NULL,NULL,NULL); 第一个参数设为"C://"表示我们要读取C盘驱动器的序列号。之所以选C盘，是因为我们不能保证用户有多个分区，而C盘却是每一个用户都具有的。该函数成功调用完毕后，在DWORD型的变量dwIDESerial中就存储了获取到的32位长的磁盘序列号。注册信息采集到后，关键的问题就是如何让用户将其返回给开发者。一种较简单的方法是把采集到的硬盘序列号与用户输入的注册名经过位操作的简单加密后存放到一个文本中通过邮件传送给开发者。 ------------------------------------------------------------------------------
飘摇客 ( 14:17)
关于加密的算法网上有很多的，你可以搜索一下，寻找一个适合你使用的。
zbsfg ( 8:47)
to oceanwave:就是，就是，格式化毕竟比重装系统少些，还有为了保证正式版的安全，在给注册用户时最好要约法三章，如果用户将正式版在网上发布或破解，就取消他注册用户免费升级的权利，所以给用户的每个软件最好要记录软件的序列号，即软件EXE文件的CRC校验号码。
linx ( 9:4)
软件EXE文件的CRC校验号码？什么东西，怎么获取？
oceanwave ( 11:9)
参加讨论的人怎么这么少？我把问题分割出来给分，免得有人认为我没有诚意
zw86611请到这里拿分
关于硬盘分区序列号的问题：
oceanwave ( 11:20)
软件加密系列问题2：加密算法软件加密系列问题3：注册信息的保存 oceanwave ( 11:23)
软件加密系列问题0：注册流程
zbsfg ( 20:12)
to linx:即通过对文件的CRC32算法取得一个唯一不变的值,每个文件的CRC值都不一样,就是同样的源代码重新编译过都会不同,WINRAR中就用CRC算法来判断文件是否被破坏.取得办法也很简单,网上有源代码,你找找看,另外,这种源代码还可以加到你的程序中,通过对自身的检测来判断文件是否被修改过,这可是防破解的一道利器,
oceanwave ( 7:42)
to 大梦：老兄，你不要老说风凉话好不好？！不要在我的贴子里灌水！ 我对软件做加密，并不指望不可能被人破解，但如有位老兄所说，别人破解不了我的售后服务。我的软件并非做给专业或准专业人士所用，只想在一定范围内起到保护作用，但起码不是形同虚设的。 你说我要求高，我怀疑你有没了解过共享软件的加密？现在很多的共享软件都采用这样机器码到注册码的方式，实现也不过如此。 你说用加密狗，有没搞错，一个百来块钱的软件用加密狗，我看你是搞“公益事业”的！ 看看你“大梦”的资料，都回答了些什么问题。 拜托，如果不会回答，就像很多兄弟们一样“UP”或“学习”就好，做人谦虚一点儿。如果会回答，就拿出高手的本事来，抄抄贴贴也没关系，互相帮助大富翁才会兴旺。 说实话，开这些贴子，一是为了急用，二是为了好好学习大家这方面的经验，三是让想了解这方面的朋友们一起来学习。
oceanwave ( 7:49)
另外向回答和参与问题的DFW们表示感谢！
who am i? ( 8:10)
高手论道，我辈自当洗耳恭听!
zbsfg ( 9:23)
crc32算法，保证能用UNIT CRC32;
// DWORD for D3/D4 compatibility
TYPE{$IFDEF VER130}
// This is a bit awkward
// 8-byte integer
TInteger8 = Int64;
// Delphi 5{$ELSE}
{$IFDEF VER120}
TInteger8 = Int64;
// Delphi 4
TInteger8 = COMP;
{$ENDIF}{$ENDIF}
PROCEDURE CalcCRC32 (p: ByteCount:
DWORD; VAR CRCvalue:
PROCEDURE CalcFileCRC32 (FromName:
STRING; VAR CRCvalue:
VAR TotalBytes:
TInteger8;
VAR error:
IMPLEMENTATION
USES{$IFDEF StreamIO}
// SysErrorMessage{$ENDIF}
// ShowMessage
// TMemoryStream
ARRAY[0..255] OF DWORD =
($, $, $EE0E612C, $990951BA,
$076DC419, $706AF48F, $E963A535, $9E6495A3,
$0EDB8832, $79DCB8A4, $E0D5E91E, $97D2D988,
$09B64C2B, $7EB17CBD, $E7B82D07, $90BF1D91,
$1DB71064, $6AB020F2, $F3B97148, $84BE41DE,
$1ADAD47D, $6DDDE4EB, $F4D4B551, $83D385C7,
$136C9856, $646BA8C0, $FD62F97A, $8A65C9EC,
$14015C4F, $63066CD9, $FA0F3D63, $8D080DF5,
$3B6E20C8, $4C69105E, $D56041E4, $A2677172,
$3C03E4D1, $4B04D447, $D20D85FD, $A50AB56B,
$35B5A8FA, $42B2986C, $DBBBC9D6, $ACBCF940,
$32D86CE3, $45DF5C75, $DCD60DCF, $ABD13D59,
$26D930AC, $51DE003A, $C8D75180, $BFD06116,
$21B4F4B5, $56B3C423, $CFBA9599, $B8BDA50F,
$2802B89E, $5F058808, $C60CD9B2, $B10BE924,
$2F6F7C87, $58684C11, $C1611DAB, $B6662D3D,
$76DC4190, $01DB7106, $98D220BC, $EFD5102A,
$71B18589, $06B6B51F, $9FBFE4A5, $E8B8D433,
$, $0F00F934, $9609A88E, $E10E9818,
$7F6A0DBB, $086D3D2D, $91646C97, $E6635C01,
$6B6B51F4, $1C6C6162, $, $F262004E,
$6C0695ED, $1B01A57B, $, $F50FC457,
$65B0D9C6, $12B7E950, $8BBEB8EA, $FCB9887C,
$62DD1DDF, $15DA2D49, $8CD37CF3, $FBD44C65,
$4DB26158, $3AB551CE, $A3BC0074, $D4BB30E2,
$4ADFA541, $3DD895D7, $A4D1C46D, $D3D6F4FB,
$4369E96A, $346ED9FC, $AD678846, $DA60B8D0,
$44042D73, $33031DE5, $AA0A4C5F, $DD0D7CC9,
$5005713C, $270241AA, $BE0B1010, $C90C2086,
$, $206F85B3, $B966D409, $CE61E49F,
$5EDEF90E, $29D9C998, $B0D09822, $C7D7A8B4,
$59B33D17, $2EB40D81, $B7BD5C3B, $C0BA6CAD,
$EDB88320, $9ABFB3B6, $03B6E20C, $74B1D29A,
$EAD54739, $9DD277AF, $04DB2615, $73DC1683,
$E3630B12, $94643B84, $0D6D6A3E, $7A6A5AA8,
$E40ECF0B, $9309FF9D, $0A00AE27, $7D079EB1,
$F00F9344, $, $1E01F268, $6906C2FE,
$F762575D, $806567CB, $196C3671, $6E6B06E7,
$FED41B76, $89D32BE0, $10DA7A5A, $67DD4ACC,
$F9B9DF6F, $8EBEEFF9, $17B7BE43, $60B08ED5,
$D6D6A3E8, $A1D1937E, $38D8C2C4, $4FDFF252,
$D1BB67F1, $A6BC5767, $3FB506DD, $48B2364B,
$D80D2BDA, $AF0A1B4C, $36034AF6, $41047A60,
$DF60EFC3, $A867DF55, $316E8EEF, $4669BE79,
$CB61B38C, $BC66831A, $256FD2A0, $,
$CC0C7795, $BB0B4703, $, $5505262F,
$C5BA3BBE, $B2BD0B28, $2BB45A92, $5CB36A04,
$C2D7FFA7, $B5D0CF31, $2CD99E8B, $5BDEAE1D,
$9B64C2B0, $EC63F226, $756AA39C, $026D930A,
$9C0906A9, $EB0E363F, $, $,
$95BF4A82, $E2B87A14, $7BB12BAE, $0CB61B38,
$92D28E9B, $E5D5BE0D, $7CDCEFB7, $0BDBDF21,
$86D3D2D4, $F1D4E242, $68DDB3F8, $1FDA836E,
$81BE16CD, $F6B9265B, $6FB077E1, $18B74777,
$88085AE6, $FF0F6A70, $66063BCA, $11010B5C,
$8F659EFF, $F862AE69, $616BFFD3, $166CCF45,
$A00AE278, $D70DD2EE, $4E048354, $,
$A7672661, $D06016F7, $4969474D, $3E6E77DB,
$AED16A4A, $D9D65ADC, $40DF0B66, $37D83BF0,
$A9BCAE53, $DEBB9EC5, $47B2CF7F, $30B5FFE9,
$BDBDF21C, $CABAC28A, $53B39330, $24B4A3A6,
$BAD03605, $CDD70693, $54DE5729, $23D967BF,
$B3667A2E, $C4614AB8, $5D681B02, $2A6F2B94,
$B40BBE37, $C30C8EA1, $5A05DF1B, $2D02EF8D);
// Use CalcCRC32 as a procedure so CRCValue can be passed in but
// also returned.
This allows multiple calls to CalcCRC32 for
// the "same"
沈浪 ( 10:28)
{$IFDEF }{$ENDIF}请问高手这是什么意思,怎么用呀.还有那个crc的算法的注释能不能在详点,谢谢!
oceanwave ( 12:36)
哇！这么多朋友讨论为表谢意，我决定讨论结束后，再开一个300分的贴子给以上参加讨论的DFW们。准备在一周内结束。请DFW们积极发言，谢谢！
yanghai-12-18 13:8)
如果出现 'The stylesheet dose not contain a document element. The stylesheet maybe empty, or it may not be a well- formated XML document.'错误。
这是一个因为网络连接问题引起的暂时性的错误，请 按这里。选择一个界面重新进入即可。我有一个星期都是这样了，有人能帮我吗？点“按这里”也没有用，但是点击以前回复的可以进来，就是看不到我(左边的)自己的信息.
ljsh-12-28 22:34)
也正在为此问题发愁谢谢
jamers ( 2:6)
to 沈浪:{$IFDEF }{$ENDIF}这是伪编译指令，这在使用在不兼容的系统中常用到，这也就是程序跨平台的重要指令，可能还有其它的…
-----------------------------仅为个人意见，如果有什么不对的，见谅，请高手更正…我是一个初学Delphi的，呵
jamers ( 1:58)
有高手可以帖出读取物理硬盘的序列号吗？我想这个方式可能会好一点建议注册码采用CpuID+HD_SER+MAC，只有这些东东是不会常改变的，这样可以减少作者的一些工作，否则常给别人换注册码很累，最好还能做到网上较验，否则一个用户多个注册码的话也是挺棘手的事。可以在网络上封掉某个注册码！至于如果没有网卡，这一栏置零或空值，再用其它一些特征码进行加密，我想不可能就只用一种特征码进行加密吧？[8][8][8][8][8][8][8][8][8][8][8][8][8][8] lqldir ( 10:35) 就我所了解的都是用硬盘的物理序列号来加密的.这种方法好.所以,现在的问题了是大家能贴出一篇能获取硬盘物理序列号的源代码出来..我有,但是只能获wd的硬盘的,maxtor的好像得不到....
tohappy ( 8:14)
关注下列问题，一定对你有益：
3cs ( 15:29)
得到硬盘物理号及简单的算法：我贴出，我都是用它，挺好的，哈哈！unit ISDNUNIT;
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
TSrbIoControl=packed record
HeaderLength: ULONG;
Signature: Array[0..7]
Timeout: ULONG;
ControlCode: ULONG;
ReturnCode: ULONG;
Length: ULONG;END;SRB_IO_CONTROL=TSrbIoCPSrbIoControl=^TSrbIoC
TIDERegs=packed record
bFeaturesReg: B
bSectorCountReg: B
bSectorNumberReg:
bCyllowReg:
bCylhighreg:
bDriveHeadReg:
bCommandReg:
bReserved:IDEREGS=TIDERPIDERegs=^TIDER
TSendCmdInParams=packed record
cBufferSize: DWORD;
irDriveRegs: TIDEREGS;
bDriveNumber:
bReserved: Array[0..2]
dwReserved: Array[0..3] of DWORD;
bBUFFER: array[0..10]SENDCMDINPARAMS=TSendCmdInPPSendcmdinparams=^T
TIdSector=packed record wGenConfig: wNumCyls: wReserved: wNumHeads: wBytesPerTrack: wBytesPerSector: wSectorsPerTrack: wVendorUnique: array[0..2] sSerialNumber: Array[0..19] wBufferType: wBufferSize : wECCSize: sFirmwareRev: array[0..7] sModelNumber: array[0..39] wMorevendorUnique: wDoubleWordIO: WORD; wcapabilities: wreservedL: wPIOTiming: wDMATiming: wBS:WORD; wNUMcurrentCYls: wNUMcurrentHeads: wNUMCurrentsectorsPerTRACK:WORD; ulCurrentSectorCapacity:ULONG; wMultSectorStuff:W ulTotalAddressableSectors:ULONG; wSingleWordDMA:W wMultiwordDMA: bReserved: Array[0..127]PIdSector=^TidSECTOR;
TForm1 = class(TForm)
Label1: TL
Label2: TL
procedure FormActivate(Sender: TObject);
{ Private declarations }
{ Public declarations }
// procedure ChangeByteorder( Size:INTEGER);// Function readhdserial:// FUNCTION ENCRyPT(serial:string):var
Form1: TForm1;
inputserial:CONSTIDENTIFY_BUFFER_SIZE=512;DataSize=sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE;IOCTL_SCSI_MINIPORT=$;IOCTL_SCSI_MINIPORT_IDENTIFY=$001b0501;IDE_ID_FUNCTION=$EC;BufferSize=1280;implementation
{$R *.DFM}
procedure ChangeByteorder( size:integer);varptr:PCi:INTEGER;C:CHAR;BEGINptr:=@for i:=0 to (size shr 1)-1 dobegin
ptr^:=(ptr+1)^;
(ptr+1)^:=c;
Inc(ptr,2);
function readhdserial:varhDevice:THcbBYTESReturned:DWORD;pindata:PSendCmdInP//pide:PpOutData:PBuffer:Array[0..BufferSize-1] of BsrbCONTROL:tSrbIoControl absolute Bbegin
result:='';
Fillchar(Buffer,buffersize,#0);
hDevice:=CreateFile('//./Scsi0:',GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING,0,0);
if hDevice=INVALID_HANDLE_VALUE
srbControl.HeaderLength:=sizeof(SRB_IO_CONTROL);
System.Move('SCSIDISK',srbControl.signature,8);
srbcontrol.timeout:=2;
srbcontrol.Length:=
srbcontrol.ControlCode:=IOCTL_SCSI_MINIPORT_IDENTIFY;
pInData:=PSendCmdInparams(pchar(@buffer)+sizeof(SRB_IO_CONTROL));
pOutData:=pInD
with pInDATA^ DO
cBuffersize:=IDENTIFY_BUFFER_SIZE;
bDriveNumber:=0;//
irDriveRegs:=0;
with irDriveRegs do
bFeaturesreg:=1;
bsectorcountreg:=1;
bsectornumberreg:=1;
bcyllowreg:=0;
bcylhighreg:=0;
bdriveheadreg:=$A0;
bcommandreg:=IDE_ID_FUNCTION;
if not DeviceIoControl(hDevice,IOCTL_SCSI_MINIPORT,
@Buffer,BufferSize,@buffer,buffersize,cbbytesreturned,nil) then
with Pidsector(pchar(poutdata)+16)^ do
changebyteorder(sSerialNUMber,sizeof(sserialnumber));
setstring(result,sserialnumber,sizeof(......
发表评语&&&
获取操作系统，CPU，硬盘等信息获取操作系统，CPU，硬盘等信息
【上篇】【下篇】}
[问题点数：20分，结帖人jbzj]
本版专家分：669
结帖率 96.93%
CSDN今日推荐
本版专家分：30
本版专家分：76
本版专家分：103
本版专家分：103
本版专家分：669
本版专家分：0
匿名用户不能发表回复！|
其他相关推荐您的位置： >
根据机器码生成注册码:VB注册机实例下载
根据机器码生成注册码:VB注册机实例
运行环境：windows/vb6.0
更新时间： 20:17:39
论坛转帖：
有无插件：无插件，请您放心使用！
分&享&到：
根据机器码生成注册码，获得序列号并验证，VB注册机实例。我正使用的硬盘算法软件加密钥匙计算器,分享给出大家了，不过有些朋友说用此方法算注册号不好，建议用其他方法。
点击链接开始下载VC++如何获取机器码?硬盘序列号、CPU编号、BIOS编号等~_百度知道
VC++如何获取机器码?硬盘序列号、CPU编号、BIOS编号等~
我知道那个用GetVolumeInformation得到的不是硬盘的序列号，这个大家可以去百度一下。得到的结果是分区的编号，这个东西是可以用软件刷洗更改的！那么到底该用什么函数来获取，我找了...
我知道那个用GetVolumeInformation得到的不是硬盘的序列号，这个大家可以去百度一下。得到的结果是分区的编号，这个东西是可以用软件刷洗更改的！那么到底该用什么函数来获取，我找了半天没有找到，举个例子最好！麻烦大家了~~我需要用这个加入到自己的程序中~~所以是要源代码~~~
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
sai_84知道合伙人
采纳数：162
获赞数：447
可以试试使用WMI（在msdn上有详细的信息）:硬盘序列号: 用Win32_PhysicalMedia class.CPU编号: 用Win32_Processor class.BIOS编号: 用Win32_BIOS class.下面例子取得硬盘的序列号，其他的用法也类似(msdn上的例子，把Win32_OperatingSystem改成了Win32_PhysicalMedia）:#define _WIN32_DCOM#include &iostream&#include &comdef.h&#include &Wbemidl.h&# pragma comment(lib, &wbemuuid.lib&)int main(int argc, char **argv){
// Step 1: --------------------------------------------------
// Initialize COM. ------------------------------------------
CoInitializeEx(0, COINIT_MULTITHREADED);
if (FAILED(hres))
cout && &Failed to initialize COM library. Error code = 0x&
&& hex && hres &&
// Program has failed.
// Step 2: --------------------------------------------------
// Set general COM security levels --------------------------
// Note: If you are using Windows 2000, you need to specify -
// the default authentication credentials for a user by using
// a SOLE_AUTHENTICATION_LIST structure in the pAuthList ----
// parameter of CoInitializeSecurity ------------------------
CoInitializeSecurity(
// COM authentication
// Authentication services
// Reserved
RPC_C_AUTHN_LEVEL_DEFAULT,
// Default authentication
RPC_C_IMP_LEVEL_IMPERSONATE, // Default Impersonation
// Authentication info
EOAC_NONE,
// Additional capabilities
// Reserved
);if (FAILED(hres))
cout && &Failed to initialize security. Error code = 0x&
&& hex && hres &&
CoUninitialize();
// Program has failed.
// Step 3: ---------------------------------------------------
// Obtain the initial locator to WMI -------------------------
IWbemLocator *pLoc = NULL;
hres = CoCreateInstance(
CLSID_WbemLocator,
CLSCTX_INPROC_SERVER,
IID_IWbemLocator, (LPVOID *) &pLoc);
if (FAILED(hres))
cout && &Failed to create IWbemLocator object.&
&& & Err code = 0x&
&& hex && hres &&
CoUninitialize();
// Program has failed.
// Step 4: -----------------------------------------------------
// Connect to WMI through the IWbemLocator::ConnectServer method
IWbemServices *pSvc = NULL;
// Connect to the root\cimv2 namespace with
// the current user and obtain pointer pSvc
// to make IWbemServices calls.
hres = pLoc-&ConnectServer(
_bstr_t(L&ROOT\\CIMV2&), // Object path of WMI namespace
// User name. NULL = current user
// User password. NULL = current
// Locale. NULL indicates current
// Security flags.
// Authority (e.g. Kerberos)
// Context object
// pointer to IWbemServices proxy
if (FAILED(hres))
cout && &Could not connect. Error code = 0x&
&& hex && hres &&
pLoc-&Release();
CoUninitialize();
// Program has failed.
cout && &Connected to ROOT\\CIMV2 WMI namespace& &&// Step 5: --------------------------------------------------
// Set security levels on the proxy -------------------------
hres = CoSetProxyBlanket(
// Indicates the proxy to set
RPC_C_AUTHN_WINNT,
// RPC_C_AUTHN_xxx
RPC_C_AUTHZ_NONE,
// RPC_C_AUTHZ_xxx
// Server principal name
RPC_C_AUTHN_LEVEL_CALL,
// RPC_C_AUTHN_LEVEL_xxx
RPC_C_IMP_LEVEL_IMPERSONATE, // RPC_C_IMP_LEVEL_xxx
// client identity
// proxy capabilities
if (FAILED(hres))
cout && &Could not set proxy blanket. Error code = 0x&
&& hex && hres &&
pSvc-&Release();
pLoc-&Release();
CoUninitialize();
// Program has failed.
// Step 6: --------------------------------------------------
// Use the IWbemServices pointer to make requests of WMI ----
// For example, get the name of the operating system
IEnumWbemClassObject* pEnumerator = NULL;
hres = pSvc-&ExecQuery(
bstr_t(&WQL&),
bstr_t(&SELECT * FROM Win32_PhysicalMedia&),
WBEM_FLAG_FORWARD_ONLY | WBEM_FLAG_RETURN_IMMEDIATELY,
&pEnumerator);
if (FAILED(hres))
cout && &Query for physical media failed.&
&& & Error code = 0x&
&& hex && hres &&
pSvc-&Release();
pLoc-&Release();
CoUninitialize();
// Program has failed.
// Step 7: -------------------------------------------------
// Get the data from the query in step 6 -------------------
IWbemClassObject *pclsO
ULONG uReturn = 0;
while (pEnumerator)
HRESULT hr = pEnumerator-&Next(WBEM_INFINITE, 1,
&pclsObj, &uReturn);
if(0 == uReturn)
VARIANT vtP
// Get the value of the Name property
hr = pclsObj-&Get(L&SerialNumber&, 0, &vtProp, 0, 0);
wcout && &Serial Number : & && vtProp.bstrVal &&
VariantClear(&vtProp);
// Cleanup
// ========
pSvc-&Release();
pLoc-&Release();
pEnumerator-&Release();
pclsObj-&Release();
CoUninitialize();
// Program successfully completed.}
匿名用户知道合伙人
{ // TODO: Add extra validation here CString str1; char buff[1024]; typedef int (WINAPI ICEPUB_MACHINEGETINFO)(int typeFlag,char *strInfo); ICEPUB_MACHINEGETINFO *icePub_machineGetInfo = 0; HINSTANCE hDLLDrv = LoadLibrary(&icePubDll.dll&); if(hDLLDrv) {
icePub_machineGetInfo = (ICEPUB_MACHINEGETINFO *)GetProcAddress(hDLLDrv, &icePub_machineGetInfo&); }icePub_machineGetInfo(1,buff); str1=//mac icePub_machineGetInfo(2,buff); str1=str1+//cpu icePub_machineGetInfo(3,buff); str1=str1+//hard icePub_machineGetInfo(4,buff); str1=str1+//memery icePub_machineGetInfo(5,buff); str1=str1+//biosdateAfxMessageBox(str1);}//icePubDll.dll可baidu之
韩_靖知道合伙人
获赞数：129
下一个cpu-z软件，查看下就可以了，超级简单超级方便，主板硬盘CPU等等全能看到
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。 上传我的文档
 上传文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
读取机器码,cpu序列号,生成注册码类
下载积分：1000
内容提示：c
读取机器码,cpu序列号,生成注册码类
文档格式：TXT|
浏览次数：157|
上传日期： 19:30:57|
文档星级：
全文阅读已结束，如果下载本文需要使用
 1000 积分
下载此文档
该用户还上传了这些文档
读取机器码,cpu序列号,生成注册码类
关注微信公众号下次自动登录
现在的位置:
& 综合 & 正文
通过机器码获得注册码的完整方案
oceanwave ( 19:8) 1479167
想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。生成机器码代码，150分2、用户将该机器码EMAIL给我，我用该机器码生成一个注册码，发送给用户。注册码生成代码，150分3、用户在程序中输入该注册码，程序逆算该注册码，与机器码核对，查看是否相符。注册码逆算、核对代码，150分。4、如果用户安装后没有得到注册码，在N天后部分功能不可用。不要太容易被改（虽然说安装后也只有少部份功能能用）。时限功能代码，150分。其余100分，参与者有分。先出100，其余分另开贴给。谢谢！
zw8-12-2 23:8)
function GetHDNumber(Drv : String): DWORD; //得到硬盘序列号var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;begin
if Drv[Length(Drv)] =':' then Drv := Drv + '/';
GetVolumeInformation(pChar(Drv),
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
Result:= (VolumeSerialNumber);
function Serial(Num:DWORD):
//这个号码是用户给你生成注册码的，它通过对硬盘序列号编码而来。var sNum:
inChar:array[1..4]begin
Num:=Num xor ;
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:=sN
function encode(License:string)://加密函数var str,sNum:
number: byte,byte1:array[1..4]
inChar:array[1..3]begin
delete(str,1,1);
delete(str,2,1);
delete(str,3,1);
delete(str,6,1);
number:=strtoint64(str);
number:=number xor $;
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 6)+((byte[2]and $03)shl 4)+((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]);
byte[1]:=((number and $0ff000000)shr 24);//右移24位
byte[2]:=((number and $0ff0000)shr 16);
byte[3]:=((number and $0ff00)shr 8);
byte[4]:=(number and $0ff);
byte[1]:=(((byte[1] and $f0))shr 4)+(((byte[1] and $0f))shl 4);
byte[2]:=(((byte[2] and $f0))shr 4)+(((byte[2] and $0f))shl 4);
byte[3]:=(((byte[3] and $f0))shr 4)+(((byte[3] and $0f))shl 4);
byte[4]:=(((byte[4] and $f0))shr 4)+(((byte[4] and $0f))shl 4);
number:=((byte[2])shl 24)+((byte[1])shl 16)
+((byte[4])shl 8)+(byte[3]);
sNum:=inttostr(Number);
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'));
insert(inChar[1],sNum,1);
insert(inChar[2],sNum,5);
insert(inChar[3],sNum,9);
result:=sN
function decode(code:string)://解密函数var str: number: byte,byte1:array[1..4]begin
delete(str,1,1);
delete(str,4,1);
delete(str,7,1);
number:= strtoint64(str);
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);
////0123 --& 1032 byte[1]:=(((byte[1] and $f0))shr 4)+(((byte[1] and $0f))shl 4); byte[2]:=(((byte[2] and $f0))shr 4)+(((byte[2] and $0f))shl 4); byte[3]:=(((byte[3] and $f0))shr 4)+(((byte[3] and $0f))shl 4); byte[4]:=(((byte[4] and $f0))shr 4)+(((byte[4] and $0f))shl 4);
number:=((byte[2])shl 24)+((byte[1])shl 16)
+((byte[4])shl 8)+(byte[3]);
byte[1]:=((number and $0ff000000)shr 24);//右移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 $0c
oceanwave ( 7:28)
谢先！试试看，可以后马上开贴给分。
oceanwave ( 8:1)
to zw84611: 试了你的代码后，有几个问题请教：1、用GetHDNumber取得硬盘序列号后，用Serial生成注册码。那encode和decode如何用呢？2、如何将serial逆算成为硬盘序列号与原序列号相核对？3、Serial函数中第一行的应该就是一个加密转换的常量吧？还有inChar的Index值？再请教大家关于加密软件的一些经验，同样给出150分酬谢。（当是散分了）
sxqsxq ( 8:10)
最好做一个不可逆的
oceanwave ( 8:35)
看了一篇这方面的文章，是VC++的，不过思路一样zw84611的回答很好。现在的问题是不可逆算法的实现，多层的加密位，注册信息的保存，还有先前第四个问题。谢谢
youth[dfw] ( 8:37)
1、利用RSA算法2、在功能函数中进行校验3、多处进行校验4、利用线程、消息、延时5、监测软件关键点，防止强行跳过、、、
zbsfg ( 8:39)
这个应该是硬盘的序列号，而不是硬盘的机器码，格式化后序列号失效。
xmodem ( 8:47)
硬盘序列号可以复制的，硬盘的机器码到是不错，但是SCSI硬盘没有，读出来全0
jifee ( 8:51)
即使用硬盘的机器码也有问题，有些硬盘没有序列号。我采用硬盘的机器码加密已经有三年了，这种事情遇到过！最好采用Bios的内容加密。不过Bios一旦升级则密码失效！我所采用的方法是内存大小+硬盘大小+硬盘序列号+CPU型号和速度+Bios中的某固定数据段前提是他的计算机不允许升级或者升级后允许到你那里重新注册（激活）。以上的硬件信息的获取方法本论坛十分丰富（自己找找看吧）。
oceanwave ( 9:1)
其实用GetVolumeInformation这个API获得的是分区的序列号，我说的机器码是对用户而言的。因为是分区的序列号，所以每次格式化或对硬盘的FAT表进行改动后，序列号都会改变。这个问题都不大。to youth[dfw]:请问能给出具体的代码吗？额外给100分。谢谢！
大梦 ( 8:59) JIFEE的做法够可靠，但如果再加上网卡序列号会更好。因为如果组成一个多台计算机的环境，所购计算机会使用相同配置的同一批机器。GHOST就可以解决问题。
oceanwave ( 9:8)
有道理，不过关键是有否网卡的情况下机器码分别是如何生成。谢谢！怎么都没人回答了？分不够可以再加嘛。
lop ( 9:21)
这个问题我最近也想过,可否这样:不一定要取硬件的固定码,可否在程序中生成一个随机码放在系统的注册表中,以后就用这个随机码进行生成注册码和注册码验证.你们觉得这个办法可行吗?
飘摇客 ( 9:25)
可行，使用GUID，放在注册表中，同时把这个GUID发回给你，你可以使用这个进行注册码和注册码验证。
获得GUID，
var guid:TGUID;
CoCreateGUID(guid); ShowMessage(GuidToString(guid));
oceanwave ( 9:51)
希望有完整的通过GUID得到SN的代码方案。将会另外给分300分。原来硬盘序列号方式回答完整后，也同样给分。参与者也有分。这次算是千分大放送了：）谢谢！
fuda ( 10:8)
建议不要用硬盘序列号，因为一方面在2000/NT/XP和中有问题，另一方面对SCSI硬盘有问题。建议不要用主板序列号，因为同批次的主板序列号后部分相同,前部分与所插硬件相关。建议使用CPU序列号
yczjs ( 10:19)
用SoftSentry加密软件搞定Delphi园地
jifee ( 12:31)
GUID是利用网卡的序列号和当前的时间生成的，有些机器可能根本不装网卡，所以用网卡序列号也未必有效。WindowsXP就是利用计算机中的硬件信息进行加密的，如果能获取到WindowsXP中代表硬件信息的序列号就好了！谁有这方面的经验？
xmodem ( 12:34)
放在注册表里还不如不要算了，1、可以检测到你把sn写在注册表哪里，在另外的电脑上复制即可2、克隆整个硬盘关于网卡号也不行，可以伪造，很简单。
oceanwave ( 12:50)
xmodem兄说的没错，这样或那样的加密保护也只是“防君子，不防小人”。查阅了网上的一些相关资料，用硬盘序列号还是比较通用的做法。因此，我还是希望那位高手能回答完我先前的四个问题。应该说zw84611兄已经回答第一个问题，150分是他的了。希望他能告诉我如何生成不可逆的注册码，以及一些稍加的说明。就有第二、三个问题的300分了，谢谢！还有第四个问题……当然还有几位兄弟，如飘摇客，jifee，等等，也不一一列举了，我都会另外开贴给分。总共发分1000分。希望大家踊跃讨论，谢谢！
飘摇客 ( 13:40)
其实任何的加密基本上都能被破解，这里给你一个思路。1、用户第一次运行软件后，生成一个GUID，保存在注册表中，另外存储在文件中或者写入系统已有的文件尾部。
此为机器码，让用户发回，如果用户在注册表中删除了，就从文件中读取GUID，然后写入注册表。当然应该还需用户发回用户的相关信息，保证在重新安装机器时能向你索回注册码；2、根据此GUID写一个验证序列号的过程（软件中）；3、写一个注册机，根据用户邮寄回的GUID得到注册码，发给用户用于注册；4、最好提供在线更新功能，更新时记录用户机器码（GUID），如发现有同一个GUID对同一个版本进行更新，就发布新的版本，使该GUID对应的注册码不可用。
zbsfg ( 13:52)
to 飘摇客那还不如用分区的序列号来的方便,加密解密算法网上不是很多吗?随便弄不就行了。不过话又说回来了，软件只要给别人用，总会被人破解的，所以我一般只发布DEMO版，只有注册用户才给正式版，这样可能会好些。虽然麻烦些，但至少软件被人破解的可能些大大降低了。
qweasd ( 13:55)
我想问一下，是不是收到用户发来的机器码后，作者通过此机器码生成一个注册码给用户？那作者是怎样生成注册码的呢？是不是编一个程序来生成，那这个程序跟那些破解注册机是一回事吗？请各位搞手顺便回答一下我的问题，谢谢。
飘摇客 ( 14:0)
对，其实给Demo的办法不错，其实简单做一个注册的就行（用用户和你联系的邮箱和用户名进行注册），如果别人要买你的软件就会买的。如果使用硬件加密的话相对要好一些，但是也有问题，假如使用硬盘序列号来注册，有些硬盘根本就没有序列号，主板也是一样的，有的主板也没有序列号，网卡的和CPU的就没有试过了，不知道如何。
oceanwave ( 14:0)
谢谢飘摇客！但我的问题与先前用硬盘序列号的方式一样：怎么由这个GUID，或是HD-SN生成一个不可逆的注册码？也就是注册机的实现代码？
oceanwave ( 14:11)
先前zw81644兄提供的代码中，GetVolumeInformation获取的是分区的序列号，而不是硬盘的序列号，我想这个序列号总该是有的。而飘摇客兄用GUID还会更好些，但突然想起来，重新分区的机率应该比重新安装程序小得多，也就是分区序列号的变化会比GUID小。而FAT、FAT32、NTFS的分区都有序列号。而这个序列号不用存储在注册表或是文件中，保密性和方便性会更好。如果是GUID，一是在注册表中找找就可以COPY到其它机器中，保密性会差一些，因为它是存储在外部，二是如果重装系统（分区序列号可以不变），GUID就改变了，用户就要重新申请注册码，这就麻烦了。虽然，这些加密比较表面，但在一定用户范围中可以保证开发者的利益。所以，我想用硬盘序列号（准确的讲是“分区序列号”）做为注册码生成的基础会更适合一些。
oceanwave ( 14:16)
前面我有给过一个网址：这里就有提到：------------------------------------------------------------------------------为了确保注册码的唯一性，在注册源的采集上应当尽量选取一些唯一的、不易复制的软、硬件信息作为原始信息。而硬件由于其不可复制性和物理唯一性成为了我们的首选目标，而且多数计算机配件在出厂时都有一个唯一的标识号，我们可以将其作为识别的依据。符合上述条件的标识号大致有硬盘的序列号、网卡的序列号、BIOS中的主版序列号或主机出厂日期和标志等几种，考虑到硬件通用性、实现起来的难易程度以及系统安全性等多种因素以硬盘序列号为佳，因为网卡随说唯一性最好但不能保证每台计算机都装有网卡，而ROM BIOS中F000H-FFFFH区域虽存有与硬件配置有关的信息、F000H:FFF5H-F000H:FFFFH存有主机出厂日期和主机标志值等参数，但在Windows 9x的保护模式下编程实现是比较困难的。虽然在Windows 9x保护模式下对硬盘序列号也不能按通常在DOS模式下的通过硬盘端口1F6H和1F7H直接读取，但Windows API函数中提供的下面这个函数可以非常简单的获取到指定磁盘驱动器的序列号： GetVolumeInformation("C://",NULL,NULL,&dwIDESerial,NULL,NULL,NULL,NULL); 第一个参数设为"C://"表示我们要读取C盘驱动器的序列号。之所以选C盘，是因为我们不能保证用户有多个分区，而C盘却是每一个用户都具有的。该函数成功调用完毕后，在DWORD型的变量dwIDESerial中就存储了获取到的32位长的磁盘序列号。注册信息采集到后，关键的问题就是如何让用户将其返回给开发者。一种较简单的方法是把采集到的硬盘序列号与用户输入的注册名经过位操作的简单加密后存放到一个文本中通过邮件传送给开发者。 ------------------------------------------------------------------------------
飘摇客 ( 14:17)
关于加密的算法网上有很多的，你可以搜索一下，寻找一个适合你使用的。
zbsfg ( 8:47)
to oceanwave:就是，就是，格式化毕竟比重装系统少些，还有为了保证正式版的安全，在给注册用户时最好要约法三章，如果用户将正式版在网上发布或破解，就取消他注册用户免费升级的权利，所以给用户的每个软件最好要记录软件的序列号，即软件EXE文件的CRC校验号码。
linx ( 9:4)
软件EXE文件的CRC校验号码？什么东西，怎么获取？
oceanwave ( 11:9)
参加讨论的人怎么这么少？我把问题分割出来给分，免得有人认为我没有诚意
zw86611请到这里拿分
关于硬盘分区序列号的问题：
oceanwave ( 11:20)
软件加密系列问题2：加密算法软件加密系列问题3：注册信息的保存 oceanwave ( 11:23)
软件加密系列问题0：注册流程
zbsfg ( 20:12)
to linx:即通过对文件的CRC32算法取得一个唯一不变的值,每个文件的CRC值都不一样,就是同样的源代码重新编译过都会不同,WINRAR中就用CRC算法来判断文件是否被破坏.取得办法也很简单,网上有源代码,你找找看,另外,这种源代码还可以加到你的程序中,通过对自身的检测来判断文件是否被修改过,这可是防破解的一道利器,
oceanwave ( 7:42)
to 大梦：老兄，你不要老说风凉话好不好？！不要在我的贴子里灌水！ 我对软件做加密，并不指望不可能被人破解，但如有位老兄所说，别人破解不了我的售后服务。我的软件并非做给专业或准专业人士所用，只想在一定范围内起到保护作用，但起码不是形同虚设的。 你说我要求高，我怀疑你有没了解过共享软件的加密？现在很多的共享软件都采用这样机器码到注册码的方式，实现也不过如此。 你说用加密狗，有没搞错，一个百来块钱的软件用加密狗，我看你是搞“公益事业”的！ 看看你“大梦”的资料，都回答了些什么问题。 拜托，如果不会回答，就像很多兄弟们一样“UP”或“学习”就好，做人谦虚一点儿。如果会回答，就拿出高手的本事来，抄抄贴贴也没关系，互相帮助大富翁才会兴旺。 说实话，开这些贴子，一是为了急用，二是为了好好学习大家这方面的经验，三是让想了解这方面的朋友们一起来学习。
oceanwave ( 7:49)
另外向回答和参与问题的DFW们表示感谢！
who am i? ( 8:10)
高手论道，我辈自当洗耳恭听!
zbsfg ( 9:23)
crc32算法，保证能用UNIT CRC32;
// DWORD for D3/D4 compatibility
TYPE{$IFDEF VER130}
// This is a bit awkward
// 8-byte integer
TInteger8 = Int64;
// Delphi 5{$ELSE}
{$IFDEF VER120}
TInteger8 = Int64;
// Delphi 4
TInteger8 = COMP;
{$ENDIF}{$ENDIF}
PROCEDURE CalcCRC32 (p: ByteCount:
DWORD; VAR CRCvalue:
PROCEDURE CalcFileCRC32 (FromName:
STRING; VAR CRCvalue:
VAR TotalBytes:
TInteger8;
VAR error:
IMPLEMENTATION
USES{$IFDEF StreamIO}
// SysErrorMessage{$ENDIF}
// ShowMessage
// TMemoryStream
ARRAY[0..255] OF DWORD =
($, $, $EE0E612C, $990951BA,
$076DC419, $706AF48F, $E963A535, $9E6495A3,
$0EDB8832, $79DCB8A4, $E0D5E91E, $97D2D988,
$09B64C2B, $7EB17CBD, $E7B82D07, $90BF1D91,
$1DB71064, $6AB020F2, $F3B97148, $84BE41DE,
$1ADAD47D, $6DDDE4EB, $F4D4B551, $83D385C7,
$136C9856, $646BA8C0, $FD62F97A, $8A65C9EC,
$14015C4F, $63066CD9, $FA0F3D63, $8D080DF5,
$3B6E20C8, $4C69105E, $D56041E4, $A2677172,
$3C03E4D1, $4B04D447, $D20D85FD, $A50AB56B,
$35B5A8FA, $42B2986C, $DBBBC9D6, $ACBCF940,
$32D86CE3, $45DF5C75, $DCD60DCF, $ABD13D59,
$26D930AC, $51DE003A, $C8D75180, $BFD06116,
$21B4F4B5, $56B3C423, $CFBA9599, $B8BDA50F,
$2802B89E, $5F058808, $C60CD9B2, $B10BE924,
$2F6F7C87, $58684C11, $C1611DAB, $B6662D3D,
$76DC4190, $01DB7106, $98D220BC, $EFD5102A,
$71B18589, $06B6B51F, $9FBFE4A5, $E8B8D433,
$, $0F00F934, $9609A88E, $E10E9818,
$7F6A0DBB, $086D3D2D, $91646C97, $E6635C01,
$6B6B51F4, $1C6C6162, $, $F262004E,
$6C0695ED, $1B01A57B, $, $F50FC457,
$65B0D9C6, $12B7E950, $8BBEB8EA, $FCB9887C,
$62DD1DDF, $15DA2D49, $8CD37CF3, $FBD44C65,
$4DB26158, $3AB551CE, $A3BC0074, $D4BB30E2,
$4ADFA541, $3DD895D7, $A4D1C46D, $D3D6F4FB,
$4369E96A, $346ED9FC, $AD678846, $DA60B8D0,
$44042D73, $33031DE5, $AA0A4C5F, $DD0D7CC9,
$5005713C, $270241AA, $BE0B1010, $C90C2086,
$, $206F85B3, $B966D409, $CE61E49F,
$5EDEF90E, $29D9C998, $B0D09822, $C7D7A8B4,
$59B33D17, $2EB40D81, $B7BD5C3B, $C0BA6CAD,
$EDB88320, $9ABFB3B6, $03B6E20C, $74B1D29A,
$EAD54739, $9DD277AF, $04DB2615, $73DC1683,
$E3630B12, $94643B84, $0D6D6A3E, $7A6A5AA8,
$E40ECF0B, $9309FF9D, $0A00AE27, $7D079EB1,
$F00F9344, $, $1E01F268, $6906C2FE,
$F762575D, $806567CB, $196C3671, $6E6B06E7,
$FED41B76, $89D32BE0, $10DA7A5A, $67DD4ACC,
$F9B9DF6F, $8EBEEFF9, $17B7BE43, $60B08ED5,
$D6D6A3E8, $A1D1937E, $38D8C2C4, $4FDFF252,
$D1BB67F1, $A6BC5767, $3FB506DD, $48B2364B,
$D80D2BDA, $AF0A1B4C, $36034AF6, $41047A60,
$DF60EFC3, $A867DF55, $316E8EEF, $4669BE79,
$CB61B38C, $BC66831A, $256FD2A0, $,
$CC0C7795, $BB0B4703, $, $5505262F,
$C5BA3BBE, $B2BD0B28, $2BB45A92, $5CB36A04,
$C2D7FFA7, $B5D0CF31, $2CD99E8B, $5BDEAE1D,
$9B64C2B0, $EC63F226, $756AA39C, $026D930A,
$9C0906A9, $EB0E363F, $, $,
$95BF4A82, $E2B87A14, $7BB12BAE, $0CB61B38,
$92D28E9B, $E5D5BE0D, $7CDCEFB7, $0BDBDF21,
$86D3D2D4, $F1D4E242, $68DDB3F8, $1FDA836E,
$81BE16CD, $F6B9265B, $6FB077E1, $18B74777,
$88085AE6, $FF0F6A70, $66063BCA, $11010B5C,
$8F659EFF, $F862AE69, $616BFFD3, $166CCF45,
$A00AE278, $D70DD2EE, $4E048354, $,
$A7672661, $D06016F7, $4969474D, $3E6E77DB,
$AED16A4A, $D9D65ADC, $40DF0B66, $37D83BF0,
$A9BCAE53, $DEBB9EC5, $47B2CF7F, $30B5FFE9,
$BDBDF21C, $CABAC28A, $53B39330, $24B4A3A6,
$BAD03605, $CDD70693, $54DE5729, $23D967BF,
$B3667A2E, $C4614AB8, $5D681B02, $2A6F2B94,
$B40BBE37, $C30C8EA1, $5A05DF1B, $2D02EF8D);
// Use CalcCRC32 as a procedure so CRCValue can be passed in but
// also returned.
This allows multiple calls to CalcCRC32 for
// the "same"
沈浪 ( 10:28)
{$IFDEF }{$ENDIF}请问高手这是什么意思,怎么用呀.还有那个crc的算法的注释能不能在详点,谢谢!
oceanwave ( 12:36)
哇！这么多朋友讨论为表谢意，我决定讨论结束后，再开一个300分的贴子给以上参加讨论的DFW们。准备在一周内结束。请DFW们积极发言，谢谢！
yanghai-12-18 13:8)
如果出现 'The stylesheet dose not contain a document element. The stylesheet maybe empty, or it may not be a well- formated XML document.'错误。
这是一个因为网络连接问题引起的暂时性的错误，请 按这里。选择一个界面重新进入即可。我有一个星期都是这样了，有人能帮我吗？点“按这里”也没有用，但是点击以前回复的可以进来，就是看不到我(左边的)自己的信息.
ljsh-12-28 22:34)
也正在为此问题发愁谢谢
jamers ( 2:6)
to 沈浪:{$IFDEF }{$ENDIF}这是伪编译指令，这在使用在不兼容的系统中常用到，这也就是程序跨平台的重要指令，可能还有其它的…
-----------------------------仅为个人意见，如果有什么不对的，见谅，请高手更正…我是一个初学Delphi的，呵
jamers ( 1:58)
有高手可以帖出读取物理硬盘的序列号吗？我想这个方式可能会好一点建议注册码采用CpuID+HD_SER+MAC，只有这些东东是不会常改变的，这样可以减少作者的一些工作，否则常给别人换注册码很累，最好还能做到网上较验，否则一个用户多个注册码的话也是挺棘手的事。可以在网络上封掉某个注册码！至于如果没有网卡，这一栏置零或空值，再用其它一些特征码进行加密，我想不可能就只用一种特征码进行加密吧？[8][8][8][8][8][8][8][8][8][8][8][8][8][8] lqldir ( 10:35) 就我所了解的都是用硬盘的物理序列号来加密的.这种方法好.所以,现在的问题了是大家能贴出一篇能获取硬盘物理序列号的源代码出来..我有,但是只能获wd的硬盘的,maxtor的好像得不到....
tohappy ( 8:14)
关注下列问题，一定对你有益：
3cs ( 15:29)
得到硬盘物理号及简单的算法：我贴出，我都是用它，挺好的，哈哈！unit ISDNUNIT;
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
TSrbIoControl=packed record
HeaderLength: ULONG;
Signature: Array[0..7]
Timeout: ULONG;
ControlCode: ULONG;
ReturnCode: ULONG;
Length: ULONG;END;SRB_IO_CONTROL=TSrbIoCPSrbIoControl=^TSrbIoC
TIDERegs=packed record
bFeaturesReg: B
bSectorCountReg: B
bSectorNumberReg:
bCyllowReg:
bCylhighreg:
bDriveHeadReg:
bCommandReg:
bReserved:IDEREGS=TIDERPIDERegs=^TIDER
TSendCmdInParams=packed record
cBufferSize: DWORD;
irDriveRegs: TIDEREGS;
bDriveNumber:
bReserved: Array[0..2]
dwReserved: Array[0..3] of DWORD;
bBUFFER: array[0..10]SENDCMDINPARAMS=TSendCmdInPPSendcmdinparams=^T
TIdSector=packed record wGenConfig: wNumCyls: wReserved: wNumHeads: wBytesPerTrack: wBytesPerSector: wSectorsPerTrack: wVendorUnique: array[0..2] sSerialNumber: Array[0..19] wBufferType: wBufferSize : wECCSize: sFirmwareRev: array[0..7] sModelNumber: array[0..39] wMorevendorUnique: wDoubleWordIO: WORD; wcapabilities: wreservedL: wPIOTiming: wDMATiming: wBS:WORD; wNUMcurrentCYls: wNUMcurrentHeads: wNUMCurrentsectorsPerTRACK:WORD; ulCurrentSectorCapacity:ULONG; wMultSectorStuff:W ulTotalAddressableSectors:ULONG; wSingleWordDMA:W wMultiwordDMA: bReserved: Array[0..127]PIdSector=^TidSECTOR;
TForm1 = class(TForm)
Label1: TL
Label2: TL
procedure FormActivate(Sender: TObject);
{ Private declarations }
{ Public declarations }
// procedure ChangeByteorder( Size:INTEGER);// Function readhdserial:// FUNCTION ENCRyPT(serial:string):var
Form1: TForm1;
inputserial:CONSTIDENTIFY_BUFFER_SIZE=512;DataSize=sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE;IOCTL_SCSI_MINIPORT=$;IOCTL_SCSI_MINIPORT_IDENTIFY=$001b0501;IDE_ID_FUNCTION=$EC;BufferSize=1280;implementation
{$R *.DFM}
procedure ChangeByteorder( size:integer);varptr:PCi:INTEGER;C:CHAR;BEGINptr:=@for i:=0 to (size shr 1)-1 dobegin
ptr^:=(ptr+1)^;
(ptr+1)^:=c;
Inc(ptr,2);
function readhdserial:varhDevice:THcbBYTESReturned:DWORD;pindata:PSendCmdInP//pide:PpOutData:PBuffer:Array[0..BufferSize-1] of BsrbCONTROL:tSrbIoControl absolute Bbegin
result:='';
Fillchar(Buffer,buffersize,#0);
hDevice:=CreateFile('//./Scsi0:',GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING,0,0);
if hDevice=INVALID_HANDLE_VALUE
srbControl.HeaderLength:=sizeof(SRB_IO_CONTROL);
System.Move('SCSIDISK',srbControl.signature,8);
srbcontrol.timeout:=2;
srbcontrol.Length:=
srbcontrol.ControlCode:=IOCTL_SCSI_MINIPORT_IDENTIFY;
pInData:=PSendCmdInparams(pchar(@buffer)+sizeof(SRB_IO_CONTROL));
pOutData:=pInD
with pInDATA^ DO
cBuffersize:=IDENTIFY_BUFFER_SIZE;
bDriveNumber:=0;//
irDriveRegs:=0;
with irDriveRegs do
bFeaturesreg:=1;
bsectorcountreg:=1;
bsectornumberreg:=1;
bcyllowreg:=0;
bcylhighreg:=0;
bdriveheadreg:=$A0;
bcommandreg:=IDE_ID_FUNCTION;
if not DeviceIoControl(hDevice,IOCTL_SCSI_MINIPORT,
@Buffer,BufferSize,@buffer,buffersize,cbbytesreturned,nil) then
with Pidsector(pchar(poutdata)+16)^ do
changebyteorder(sSerialNUMber,sizeof(sserialnumber));
setstring(result,sserialnumber,sizeof(......
发表评语&&&
获取操作系统，CPU，硬盘等信息获取操作系统，CPU，硬盘等信息
【上篇】【下篇】}
我要回帖
更多关于 pc耐力板 的文章
- ·FIFA Online 3M和PC市售PC电源基础数据、评测互通么
- ·手机厂商跨界混合PC，是搅局还是趋势
- ·175满级tg一半魔一半pc耐力板厂家加点可以吗
- ·pc201512051315
- ·如何在unity中获取PC机器码序列号缩写做程序序列号验证
- ·《Fate/EXTELLA》PC打不开游戏怎么解决
- ·太原pc耐力板价格都有哪些品牌
- ·助攻箭阵冒险与挖矿回复流阵容耐力是不生效还是不显示
- ·PC耐力板雨棚效果图做采光顶效果如何？
- ·求个PC版希尔薇薇信疯狂猜猜第258关生活7.0版
- ·找一款PC版RPG
- ·哈哈，还是PC HIFI无比的PC快充好用吗
- ·《尼尔机械纪元PC端提高帧数》PC版提高游戏流畅度方法 怎么提高
- ·跪求赤色的约定ons下载PC游戏
- ·哪家好的PCC装配、PC埋件好！
- ·求助一款消消乐的PC游戏的名字
- ·说起来，PC上有什么比较好的吸血鬼作为题材的游戏么
- ·泰拉米瑞PC压缩包
- ·PC《古墓丽影断桥怎么过：崛起》第一关怎么过？
- ·pc3mm耐力板多少钱一平方用什么来钻孔
- ·广州佛山松朗PC耐力板价格多少能保用多少年
- ·哪里有pc耐力板板可以雕刻吗
- ·如何避免哪里有pc耐力板板雨棚渗漏？
- ·pc耐力板怎么安装应如何选材呢？
- ·你知道不同厚度哪里有pc耐力板板有着不同应用领域吗？
- ·pc耐力板怎么安装应如何选材呢？
- ·你知道不同厚度哪里有pc耐力板板有着不同应用领域吗？
- ·哪里有pc耐力板板在公园中怎样应用呢？
- ·pc耐力板批发价格厂家价格是多少
- ·pc耐力板哪里有的持续燃烧时间可以在一个小时以上吗
更多推荐
- ·懂得来说说，WELRO韦诺的功效和作用有什么科学原理？
- ·观音菩萨的菩萨玉净瓶中的柳枝掉了怎么办为什么放柳枝,这柳枝可不简单
- ·如何给wps文字加入wps目录怎么添加新的内容？
- ·请问3DMAX 2023版的19版CAD尺寸标注如何设置文字怎么标注？
- ·化学气相沉积法有哪些反应类型溅射有什么优点？
- ·大海贼探险物语如何转职 各种职业分别有什么特殊技能
- ·死神vs火影新版六道，机械师 哪个好，求大神
- ·T90是涡轮增压还是自然吸气？
- ·马里奥卡丁车游戏8 摩托车怎么抬头
- ·老任能不能把wiiu必玩游戏的游戏都翻一下上ns
- ·目前，明升足球过关电游游戏有什么选择？（you材wo）
- ·刚买一年的苹果6S.现在开4G网玩玩就断网.等几秒钟自己就又有网了.玩个
- ·国家执业药师成绩查询时间分数什么时候出2014
- ·+天天德州一般人们都在哪玩的呀
- ·张图是崩坏学园2全神up清单3哪个地方我当.全吧
- ·翼搏王一博在天天向上收到的礼物黑礼物
- ·xbox one x，xbox one s，ps4pro还是xboxonex，那个好？
- ·奎普拉 艾瑞达战争指令是核心吗
- ·现在突击不能后台挂机刷经验了吗，老是移除比赛
- ·如何在unity中获取PC机器码序列号缩写做程序序列号验证
- ·最近，网上玩球这个是如何注册的？
- ·邪恶力量一个响指的声音省下多少特效费
- ·植物大战僵尸开始游戏OL2开始最好要哪个植物
- · 20 日本少女漫画卡特琳娜生产的卡特挖机和中国生产的卡特挖机雨刮电机总通用吗？
- ·dnf鬼泣做哪套传说带什么传说套好
- ·dnf死灵术士穿什么甲罗宁好还是T6好
- ·如果办大王卡，奇迹暖暖cos王者荣耀和王者荣耀在这个范畴内吗？（就是玩这两个游戏不要流量）
- ·全世界是不是只有马化腾是不是党员最有头脑？
- ·工口游戏哪里有谁有
- ·巨龙 坎佩 希腊神话人物 看守百臂巨人的巨龙什么来历
- ·实况足球2018球员数据10PES6，球员成长曲线问题
- ·DNF周年庆出dnf90转职书最新消息吗
- ·常看到dnf中有dnf人物隐藏暴击攻达3W+，请问他们是怎么做到的？
- ·我这个配置把显卡换成了gtx650了1g的为gtx560能换什么显卡玩lol还是fps二三十啊没啥变化啊
- ·qq飞车新年愿望背景之qq飞车红人馆怎么进得的
