实现读硬盘物理序列号实现对软件加密

主题：实现读硬盘物理序列号实现对软件加密

lm60974 [专家分：90] 发布于 2006-03-31 23:56:00

对软件加密最好的办法就是读硬件信息的办法，现在我把代码贴出，但没办法贴文件如有需要可以留下EMAIL我把DISKSERIAL。DLL发给大家
Clea
#Define MAX_PATH 260
Declare integer GetSerialNumber   in DiskSerial.dll Integer nDrive, String @lpBuffer
Declare integer GetModelNumber    in DiskSerial.dll Integer nDrive, String @lpBuffer
Declare integer GetRevisionNumber in DiskSerial.dll Integer nDrive, String @lpBuffer
Declare integer GetBufferSize     in DiskSerial.dll Integer nDrive
Declare integer GetDiskCylinders  in DiskSerial.dll Integer nDrive
Declare integer GetDiskHeads      in DiskSerial.dll Integer nDrive
Declare integer GetSectorsOfTrack in DiskSerial.dll Integer nDrive
i=0
    lnSerialNumber  =space(40)
    lnModelNumber   =space(40)
    lnRevisionNumber=space(40)
    =GetserialNumber  (i,@lnSerialNumber)
    =GetModelNumber   (i,@lnModelNumber)
    =GetRevisionNumber(i,@lnRevisionNumber)
     kk1=alltrim(lnSerialNumber)
     ?kk1
     Clea dlls
Return

本帖地址： http://bbs.pfan.cn/post/152845.html

回复列表（共112个回复）

41 楼

jianzho [专家分：7560] 发布于 2007-01-23 19:54:00

兄弟,好东西,发一个给我吧,先谢谢了!
Jianzho@tom.com

42 楼

cxx7 [专家分：20] 发布于 2007-01-23 23:07:00

呵呵，好好学习
cxx7@tom.com
谢过。。。。

43 楼

q172047231 [专家分：470] 发布于 2007-01-24 08:30:00

谢谢，给我来一个 gss10@163.com
[em1]

44 楼

sololai2000 [专家分：0] 发布于 2007-01-24 11:48:00

sololai@yahoo.com.cn
谢谢

45 楼

SIMONLIANG [专家分：420] 发布于 2007-01-30 12:13:00

给我发一个吧,谢谢!

simonliangzhihua@chunited.com

46 楼

crocodile3358 [专家分：390] 发布于 2007-01-30 14:10:00

给我一个，非常感谢protectgrass@yahoo.com.cn

47 楼

陽光神龍工作室 [专家分：10] 发布于 2007-01-30 22:32:00

给我一个.多谢!mfwz8000@yahoo.com.cn
非常感谢!

48 楼

shibaolingyn [专家分：510] 发布于 2007-01-31 22:24:00

我给大家一个不用下载的程序
Declare INTEGER GetLastError IN kernel32

Declare INTEGER GetCurrentHwProfile IN advapi32;
    STRING @ lpHwProfileInfo

lpHwProfileInfo = Repli(Chr(0), 4 + HW_PROFILE_GUIDLEN + MAX_PROFILE_LEN)
If GetCurrentHwProfile (@lpHwProfileInfo) = 0
    *  120 = ERROR_CALL_NOT_IMPLEMENTED
    * 1015 = ERROR_REGISTRY_CORRUPT
    ?"Error code:"+ str(GetLastError())
Else
    ?"硬盘码:"+substr(lpHwProfileInfo,5,58)
Endif

49 楼

shibaolingyn [专家分：510] 发布于 2007-01-31 22:26:00

我给大家一个，不用下载任何东东
Declare INTEGER GetLastError IN kernel32

Declare INTEGER GetCurrentHwProfile IN advapi32;
    STRING @ lpHwProfileInfo

lpHwProfileInfo = Repli(Chr(0), 4 + HW_PROFILE_GUIDLEN + MAX_PROFILE_LEN)
If GetCurrentHwProfile (@lpHwProfileInfo) = 0
    *  120 = ERROR_CALL_NOT_IMPLEMENTED
    * 1015 = ERROR_REGISTRY_CORRUPT
    ? "Error code:"+ str(GetLastError())
Else
    ?"硬盘码:"+substr(lpHwProfileInfo,5,58)
Endif

50 楼

my6542 [专家分：500] 发布于 2007-02-01 21:43:00

给我一个，谢谢！
my6542@126.com

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：实现读硬盘物理序列号实现对软件加密

回复列表（共112个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：实现读硬盘物理序列号实现对软件加密

回复列表 （共112个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共112个回复）