regunit.pas

用delphi编写的针对商品房销售合同格式

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.