VFP 愛用者社區

[syntech]

現在用 NETHASP KEYPRO 保護,
未來打算作一個 Lincense Manager .

[KKKLYNN]

使用
GetCurrentHwProfile

取得目前這台電腦的硬體資料(有混合各種資料)
如此只要更換任一硬體就會得到不同的序號
系統就可得到最初步的保護

[garfield]

#Define HW_PROFILE_GUIDLEN 39
#Define MAX_PROFILE_LEN 80

#Define DOCKINFO_UNDOCKED 1
#Define DOCKINFO_DOCKED 2
#Define DOCKINFO_USER_SUPPLIED 4
#Define DOCKINFO_USER_UNDOCKED 5
#Define DOCKINFO_USER_DOCKED 6

Declare INTEGER GetLastError IN kernel32

Declare INTEGER GetCurrentHwProfile IN advapi32;
STRING @ lpHwProfileInfo

lpHwProfileInfo = Repli(Chr(0), 4 + HW_PROFILE_GUIDLEN + MAX_PROFILE_LEN)

If GetCurrentHwProfile (@lpHwProfileInfo) = 0
* 120 = ERROR_CALL_NOT_IMPLEMENTED
* 1015 = ERROR_REGISTRY_CORRUPT
? "Error code:", GetLastError()
Else
? lpHwProfileInfo
Endif

[chioucy]

[jtcom01]

請教..Syntech..用了你下列的方式.成功找到了hdid編輯也成功..但..在vfp下執行沒問題..離開vfp就會出現..檔案getvolno.prg不存在..
請不吝指導..謝謝..
FUNCTION GetVolNO
LPARAMETERS m.rootpath

DECLARE GetVolumeInformation IN win32api STRING, STRING @, ;
INTEGER, INTEGER @, INTEGER @, INTEGER @, STRING @, INTEGER

m.volname = SPACE(255)
m.volnamelen = LEN(m.volname)
m.volumeserialnumber = 0
m.maxfilenamelen = 0
m.filesystemflags = 0
m.filesystemname = SPACE(255)
m.fsnamelen = LEN(m.filesystemname)

=GetVolumeInformation(m.rootpath, @m.volname, m.volnamelen, ;
@m.volumeserialnumber, @m.maxfilenamelen, ;
@m.filesystemflags, @m.filesystemname, m.fsnamelen)

RETURN m.volumeserialnumber

[goodnight]

[goodnight]

現在有人專門做一種用usb碟做驗證的key, 還可以備份資料
而且有一個好處, 就是可以帶著走, 在公司用, 備份完資料
還可以帶回家作業,

這東西我還在誠品看過一本usb設計大全 , 可以自己寫一段程式在裡面

p.s: 軟體寫得不好, 再強的保護也沒用, 現在市面已經有免費版的進銷存軟體, copy 不了你的軟體，還有別人的可用

[syntech]

[jasonyummy]

貢獻一下
網上找到的
*******************************
LOCAL oWMI AS OBJECT,oLocal AS OBJECT,oHARDWARE AS OBJECT,object1 AS OBJECT,lcCPUID,LcMAC,lcHDID,lcSerial
oWMI=CREATEOBJECT("WbemScripting.SWbemLocator")
oLocal=oWMI.ConnectServer(".", "root\cimv2")

oHARDWARE=oLocal.ExecQuery("SELECT * FROM Win32_Processor")
FOR EACH object1 IN oHARDWARE
lcCPUID=object1.Properties_('ProcessorId').VALUE
EXIT
ENDFOR

oHARDWARE=oLocal.ExecQuery("SELECT * FROM Win32_PhysicalMedia")
FOR EACH object1 IN oHARDWARE
lcHDID=object1.Properties_('SerialNumber').VALUE
EXIT
ENDFOR

oHARDWARE=oLocal.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled=1")
FOR EACH object1 IN oHARDWARE
LcMAC=object1.Properties_('MACAddress').VALUE
EXIT
ENDFOR
?'CPU：',lcCPUID
?'硬碟：',lcHDID
?'網卡：',LcMAC
************************************************

[kalok]

>我們假設：
>客戶買了20台新電腦....也非常順利地付費註冊了閣下的一套軟體，得到了一個寶貴的Serial No.之後，
>第二天，他竟然用ghost複製了其它19份系統....

>口圭！...少賺19個版權....

如果所有20部電腦是同一樣硬體, 就沒問題, 否則可能連電腦也boot不起來

[kalok]

[Watermelon]

[arthur]

我有讀取硬碟物理型號及物理序列號的Dll,如果你有需要,我上傳給你.

[ezpos]

利用網卡作保護
如果停用..將會找不到的喔