发布网友 发布时间:2022-05-14 15:42
共1个回答
热心网友 时间:2023-10-22 21:32
按对方电脑硬件配置,如CPU、硬盘等计算出序列号,再生成注册码追答程序代码复杂,例如:你百度下载个DiskID.DLL,用来读取硬盘参数
Public Declare Function ReadPhysicalDriveInNT Lib "DiskID.DLL" (driveID As Long, buffer As Long, bufLen As Long) As Long
Private Declare Function ReadPhysicalDrive9X Lib "DiskID.DLL" (driveID As Long, buffer As Long, bufLen As Long) As Long
Public Type DRIVER_INFO_OK
ModalNumber(39) As Byte
SerialNumber(19) As Byte
ControlNum(7) As Byte
DriveType As Long
Cylinders As Long
Heads As Long
Sectors As Long
End Type
用ReadPhysicalDriveInNT(ByVal 0, ByVal VarPtr(X), ByVal 256)读取参数
用 s = StrConv(X.SerialNumber, vbUnicode)转换成序列号
注册码就简单了,按你自己设计的计算公式,例如求反或位运算
因方法复杂一些,不能给你提供全部代码,重点是你自己学习一下
本回答只能起到抛砖引玉的作用