思路是:
在金昌等地區,都構建了全面的區域性戰略布局,加強發展的系統性、市場前瞻性、產品創新能力,以專注、極致的服務理念,為客戶提供網站設計制作、做網站 網站設計制作按需制作網站,公司網站建設,企業網站建設,品牌網站制作,營銷型網站,成都外貿網站制作,金昌網站建設費用合理。
讀取電腦硬件的信息,用隨機數加工這些信息后在注冊表中做個記錄,用這個記錄生成注冊碼送回給你,你按特定的方法生成序列號,你的小程序收到序列號后還原成數據,數據比較注冊表中的記錄,如果正確就加入第二部分注冊的信息完成注冊.你的程序每次打開時,先比對硬件信息-第一注冊信息-第二注冊信息,看這三者是否統一,不統一的就是使用期軟件.
也可以省了第一注冊信息,直接發硬件信息給你生成序列號,其他的相同.
Private Function 硬盤序列號() As String
Try
Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 1\Target Id 0\Logical Unit Id 0")
硬盤序列號 = Trim(myInfo.GetValue("SerialNumber"))
Catch
Try
Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus 1\Target Id 0\Logical Unit Id 0")
硬盤序列號 = Trim(myInfo.GetValue("SerialNumber"))
Catch
硬盤序列號 = ""
End Try
End Try
End Function
只在我的電腦上試過,你試下
注冊碼很好做啊 利用現在成熟的加密解密技術 很不容易破解的 但現在的.net時代 問題的關鍵不在這里 而是在如何加密自己的軟件不讓反編譯 看看現在的.net軟件 就算使用了亂碼器 都好容易被反編譯出來 只要被反編譯 就會刪掉你程序的注冊功能部分 然后再重新編譯 就可以無需注冊正常使用了 根本就不用去破解你那深奧的注冊碼!
最簡單的一個是,在啟動窗體中,加入一行代碼:if inputbox("請輸入注冊碼","注冊",123") “123456” then end'這個是說,如果輸入的不是123456,就退出程序,正確后就向下執行。如果要注冊碼與用戶名相結合,則要先用用戶名作為種子,進行加密操作,生成一個注冊碼,成一一對應關系就行了。如用戶名為abc,代碼如下:dim a as string,b as string,i as integer,k as integera=inputbox("請輸入用戶名","注冊用戶")for i = 1 to len(a)b=b str(asc(mid(a,i,1)))next ib=6 bif b-int(len(b)/2)*2 = 1 then b = b 4text1 = "用戶名是:" aa=""for i = 1 to len(b) step 2if mid(b,i,2)32 then a=a str(mid(b,i,2)+32) else if mid(b,i,2) 126 then a=a str(mid(b,i,2)-32) else a=a str(mid(b,i,2)) end ifend if next itext1 = text1 " 注冊碼是: " a這樣就可以了
分享題目:vb.net生成注冊碼 vb登錄界面怎么做
本文路徑:http://m.newbst.com/article38/dogocsp.html
成都網站建設公司_創新互聯,為您提供云服務器、外貿建站、定制網站、網站導航、小程序開發、服務器托管
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯