regunit.pas

来自「这是为工商所开发的工商收费簿套打软件,借初学者学习」· PAS 代码 · 共 27 行

unit REGUnit;

interface
Uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, Registry, GetCPUID, StdCtrls, BiosHelp, md5, shellapi,StrUtils ;

   Function GetMachineCode: String;
   Function GetSNFromMCode(MCode: String): String;
implementation

Function  GetMachineCode: String;
Var
   ID1, ID2         : String;
Begin
   ID1 := GetCPUID.CpuData.GetCPUID;
   ID2 := BiosHelp.GetmotherboradKey;
   result := Copy(MD5Print(MD5String(ID1 + ID2)), 0,9);
End;

Function  GetSNFromMCode(MCode: String): String;
Begin

   result :='ABICO'+Copy(MD5Print(MD5String(MCode)),6,16);
End;
end.