Generate a unique Hardware ID for a computer, for use with authentication/ licensing systems.
Updated and revised version generates the same HWID as long as no (fixed)hardware is added/removed from the pc(regardless of software changes)
Func _HWID()
local $drives = DriveGetDrive("FIXED")
local $space = 0
local $serial = ""
local $RAM = MemGetStats()
for $i=1 to $drives[0]
$space += DriveSpaceTotal ($drives[$i])
$serial &= StringUpper(DriveGetSerial($drives[$i]))
Next
$roms = DriveGetD