成人午夜激情影院,小视频免费在线观看,国产精品夜夜嗨,欧美日韩精品一区二区在线播放

利用U盤進行軟件加密的方法(VB)

2010-08-28 10:55:03來源:西部e網作者:

  一般的U盤不具備加密的功能,雖然U盤和加密狗外形有一些相似,但是內部完全不一樣的,U盤只是一個存儲器芯片和簡單的附屬電路,而現在的智能卡加密狗都具有一個單獨的CPU或者加密芯片,可以執行相當復雜的加密算法。

  有的軟件開發商有這樣一種需求,就是使用U盤發布軟件的同時,想要節約成本,防止U盤中的軟件被復制,但又不想再購買昂貴的加密狗,因此想要把軟件綁定在U盤上執行,當U盤拔下來的時候,軟件就不能正常運行,和我先前介紹的綁定硬件指紋相似,使用綁定U盤的方式加密軟件。

  在對軟件安全不是特別在意的情況下,可以在軟件中采用綁定U盤內部ID的方式來實現這種加密,先使用程序將U盤的ID讀出來,然后根據這個ID生成 License文件,當解密者將U盤內的文件復制到其他電腦的時候,軟件執行過程中讀取U盤ID失敗,因此就無法校驗License。

  通常情況下兩個U盤的ID是不相同的,因此即使將軟件復制到另外一個U盤,軟件執行的時候,根據U盤ID驗證License,也會出現不匹配的現象,這樣就實現了軟件綁定U盤的加密方式。

  需要指出的是,這種U盤加密并不算安全,大多數U盤廠商有內部量產工具,可以修改U盤的內部ID號碼,這就存在了復制U盤的可能性,但對于普通用戶來說,通常沒有修改U盤內部ID的能力,因此也具有一定的加密性。

  這個加密方法中,讀取U盤ID號的函數的VB源代碼如下所示:

    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * From Win32_USBHub")
    For Each objItem In colItems
        a = objItem.DeviceID
        If InStr(a, "VID") Then b = Split(a, "\")
        USB_ID = b(UBound(b))
    Next

關鍵詞:U盤VB加密

贊助商鏈接:

主站蜘蛛池模板: 博乐市| 白银市| 伊春市| 南昌市| 平罗县| 治县。| 康马县| 本溪| 达拉特旗| 耒阳市| 荥阳市| 集贤县| 平凉市| 宜良县| 江孜县| 宝兴县| 青铜峡市| 牟定县| 汉寿县| 遂川县| 遂昌县| 五常市| 许昌市| 浦城县| 平舆县| 文昌市| 南昌县| 淮阳县| 蒙山县| 公主岭市| 定日县| 贵州省| 颍上县| 隆尧县| 鄂州市| 安图县| 固原市| 安塞县| 讷河市| 磐安县| 大名县|