regunit.pas

来自「有学习Delphi的套打的朋友」· 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.