1樓：網友
樓上使用的是硬碟分割槽序列號，如果硬碟分割槽或重新格式化這個號就變了。使用硬碟物理序列號id是可以作為軟體加密手段的，而且效果還不錯，即便重新分割槽或格式化都不會破壞已有註冊，當然，使用者換了硬碟還是要重新註冊一次的。
關於如果取出硬碟的物理id（絕大多數尤其是近期**硬碟都存在），雖然可以通過api來實現，但只能在xp/2000/2003下才可以，所以要想在所有windows作業系統下都能取得id還是使用dll來的好。
網上有乙個的檔案只有幾十kb，vb和vc等都可以呼叫，我的共享軟體一直都在用它，很穩定還是免費的，你可以搜尋一下，**后里面有完整例項，如果你實在找不到就留言我給你發乙份。
2樓：網友
可以，有個api可以讀出其id號。
vb加密解密
3樓：網友
看你這架勢是要做勒索病毒啊 你一點基礎都沒有 病毒是那麼容易製作和傳播麼 君子愛財取之有道 做力所能及的事吧 能力範圍外的別太浪費時間 人一生很短暫。
vb中如何呼叫硬碟碼，硬碟碼與程式的值一樣才能執行程式。
4樓：網海1書生
既然知道了如何提取硬碟序列號，那還不好辦嗎？
你先讓你的使用者查出自己的d盤的序列號，方法有多種，比較簡單的方法是：
點工作列「開始」-「執行」，輸入「cmd vol d:」 注意引號不要輸入），然後讓使用者把視窗裡顯示的那個16進位序列號告訴你（最好讓使用者截圖發給你自己看），比如是「0c59-7641」。然後你把這個序列號放入自己的程式裡：
private sub form_load()
if right("0000000" & hex(getserialnumber("d")),8)<>"0c597641" then end
end sub
由於用軟體提取的硬碟序列號是乙個長整形數，所以要先把它轉換為16進位數，而且要把前導零補齊保證是8位數，再和使用者提取的序列號進行比對，不符合則退出。
把程式編譯為exe交給使用者使用，他就只能在自己電腦使用了，給別人是用不了的。
當然實際應用中，還是有多個方面需要改進的：
1、使用者提取序列號的過程最好做在軟體中來自動幫他完成，這樣使用者就不會知道你是通過硬碟序列號來加密的（如果遇到懂程式設計的使用者，他會很容易就破解的）；
2、使用者硬碟序列號可以不放在程式中，而放在另乙個檔案中或登錄檔中（當然一定要經過加密），這樣就不用為每乙個使用者單獨生成exe檔案了，不過程式的保密性就差了些，你自己權衡；
3、序列號的加密是非常必要的（即使是直接放到程式中），可以考慮md5加密。
5樓：保靈萱
讀取硬碟物理序列號，每個硬碟都有乙個唯一的序列號。
我這有個讀取硬碟物理序列號和碟符的程式，要的話留個郵箱發給你。
vb文字加密解密
6樓：碧海浪沙群主
貌似玩的太高階。我只會直接破解密碼。資料夾和office文件，100%解密！
用vb如何獲得硬碟序列號並實現軟體的註冊功能的使用者窗體及其與程式的鏈結發給我學習一下好嗎？
7樓：
軟體註冊比較複雜，你說的獲取硬碟序列號只是第一步，然後需要發給開發商，用乙個演算法生成註冊號，再發給你，你再把這個註冊號注入程式，才能完成註冊。
開發商那邊是加密，使用者這邊是解密，演算法相反，可以複雜也可以簡單。
一般來說，要求使用者提供使用者名稱、位址、硬碟號等多種資料，組合生成乙個數字，最簡單用個網上找的md5演算法，生成20位註冊號，使用者端也用這個，然後比對輸入的註冊號是不是一樣。
下面是網上給你找的硬碟號**。
vb加密和解密數字
8樓：網友
最簡單的就是移位法：就是將數字加上（或者減掉）某個定值；
比如：加密的時候加上5
那麼：0 + 5 = 5 轉換成5
1 + 5 = 6 轉換成6
2 + 5 = 7 轉換成7
3 + 5 = 8 轉換成8
4 + 5 = 9 轉換成9
5 + 5 = 10 去掉十位 轉換成0
6 + 5 = 11 去掉十位 轉換成1
7 + 5 = 12 去掉十位 轉換成2
8 + 5 = 13 去掉十位 轉換成3
9 + 5 = 14 去掉十位 轉換成4
那麼解密的時候，就減掉5。
對於小於5的數字，要加上10以後再減5。
請看附件：
vb 加密問題
9樓：匿名使用者
原型：int winapi icepub_machinecode(int flag,char *strmachinecode)
輸入：flag 模式標誌，0 icepub_machinegetinfo的all，1 再md5一下。
輸出：strmachinecode 機器碼串。
private declare function icepub_machinecode lib "" (byval flag as integer, byval strmachinecode as string) as integer
private declare function icepub_encryptfile lib "圓桐" (byval strfilename as string,byval stroutputfilename as string, byval strkey as string) as integer
private declare function icepub_decryptfile lib "" (byval strfilename as string, byval stroutputfilename as string, byval strkey as string) as integer
dim a2 as integer
dim strkey as string
strkey = space(1024 * 10)
a2 = icepub_machinecode(1,strkey )
msgbox strkey
加密。a2=icepub_encryptfile("仔毀e:\","e:\",strkey )
解密。a2 = icepub_decryptfile("e:\橘戚坦", e:\", strkey )
烏龜和螃蟹能放在一起養嗎螃蟹能和烏龜一起養麼
你說烏龜是草龜嗎,如果是我可以告訴你它的食譜裡有螃蟹,但不是所有的螃蟹它都能幹掉,一般情況下龜會捕食幼小的溪蟹 小河裡的那種小的 成年的螃蟹鉗子可是很厲害的,烏龜也會咬,但螃蟹也不是白讓吃的,很有可能龜咬它的同時它會丟失幾隻小腿,同時它也會用鉗子夾傷烏龜面部,如果夾到龜的眼睛可就慘了.建議你不要把太...
貓和狗能放在一起養，貓和狗能一起養嗎？
貓咪和狗狗並沒有我們相信中的那麼敵對，雖然我們在生活中看到它們一般在一起的時候都會打鬥，並且那些貓和狗作戰的遊戲我們也經常看到，但是，慢慢培養，貓咪和狗狗其實都能夠接受對方，愉快地相處，甚至還能互幫互助，做出一些令我們感動的事情。據臺灣 報道，英國一隻被母親遺棄的3周大的西施狗，終於找到了新媽咪，但...
菠菜和紫菜能放在一起吃嗎？菠菜能和紫菜一起燒湯嗎？
菠菜和紫菜是可以一起吃的，適當的吃一些不會對身體產生不良的影響，有利於補充人體所需要的營養物質，但是需要注意的是一次性不要吃太多的菠菜和紫菜，以免出現消化不良。菠菜和紫菜一起煮湯口味是非常不錯，具有很好的營養價值。可以適量一起吃。食物的性味上，紫菜性寒，而菠菜性涼 味甘，兩者的性味偏寒涼，食用過多會...