对软件加密最好的办法就是读硬件信息的办法，现在我把代码贴出，但没办法贴文件如有需要可以留下EMAIL我把DISKSERIAL。DLL发给大家
Clea
#Define MAX_PATH 260
Declare integer GetSerialNumber   in DiskSerial.dll Integer nDrive, String @lpBuffer
Declare integer GetModelNumber    in DiskSerial.dll Integer nDrive, String @lpBuffer
Declare integer GetRevisionNumber in DiskSerial.dll Integer nDrive, String @lpBuffer
Declare integer GetBufferSize     in DiskSerial.dll Integer nDrive
Declare integer GetDiskCylinders  in DiskSerial.dll Integer nDrive
Declare integer GetDiskHeads      in DiskSerial.dll Integer nDrive
Declare integer GetSectorsOfTrack in DiskSerial.dll Integer nDrive
i=0
    lnSerialNumber  =space(40)
    lnModelNumber   =space(40)
    lnRevisionNumber=space(40)
    =GetserialNumber  (i,@lnSerialNumber)
    =GetModelNumber   (i,@lnModelNumber)
    =GetRevisionNumber(i,@lnRevisionNumber)
     kk1=alltrim(lnSerialNumber)
     ?kk1
     Clea dlls
Return