Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 750
  • Last Modified:

Generating and Compressing Computer ID

Hi Experts,

To protect my software, i'm trying to generate a unique computer id. I'm trying to combine Hardisk ID, Windows Key, MAC Address etc. My question is, after i retrieved all the above information, how should i compress all the information into 25 character computer id?

Thanks in advance
Reynaldi
0
reynaldio
Asked:
reynaldio
  • 3
2 Solutions
 
Mahdi78Commented:
You will find all what want about your need in OnGuard library
http://sourceforge.net/projects/tponguard/
0
 
Mahdi78Commented:
As short way to get Machine ID without installing package, do the following

1- Add the folder OnGuard\source to your project search path.
2- Add OnGuard unit to uses clause.
3- Create the following function to get machine id


uses OnGuard;

function GetMachineID: String;
begin
Result := IntToStr(ABS(CreateMachineID([midUser,
      midSystem, {midNetwork,} midDrives])));
end;

Open in new window

0
 
Mahdi78Commented:
If you're going to use your method, you can collect information and compress them by this function


uses IdHashMessageDigest;

function CompressID(str:string):string;
var
  md5 : TIdHashMessageDigest5;
begin
  md5 := TIdHashMessageDigest5.Create;
  try
    Result:=copy(md5.HashStringAsHex(str), 1 , 25);
  finally
    md5.Free;
  end;
end;

Open in new window

0
 
mlmccCommented:
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
0

Featured Post

NEW Veeam Agent for Microsoft Windows

Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!

  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now