欧美日操-欧美日韩91-欧美日韩99-欧美日韩ay在线观看-xxxx色-xxxx视频在线

軟件的加密——注冊碼實現原理

2014-10-07 15:37:22 大云網  點擊量: 評論 (0)
摘 要:很多共享軟件有一定的試用期,試用期過后,需要注冊才能夠繼續使用。注冊時需要把使用軟件時出現的一個序列號給人家發過去,而后產權所有人給你注冊號碼。并且一機一個號碼,最大限度防止盜用別人的成果
摘 要:很多共享軟件有一定的試用期,試用期過后,需要注冊才能夠繼續使用。注冊時需要把使用軟件時出現的一個序列號給人家發過去,而后產權所有人給你注冊號碼。并且一機一個號碼,最大限度防止盜用別人的成果。下面介紹的就是在VB中獲取計算機的硬件信息,從而通過一定的算法給出注冊碼,實現軟件加密。
關鍵詞: 軟件加密 注冊碼 防盜


打開VB6.0新建一個工程,在窗體上放置兩個文體框控件text1和text2,放置一個命令控件command其caption屬性設為“注冊”。在通用­——聲明中建立如下代碼:
String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long,lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal      lpFileSystemNameBuffer As String, ByVal  nFileSystemNameSize As Long) As Long
新建一個函數:
Function GetSerialNumber(strDrive As String) As Long
     Dim SerialNum As Long
     Dim Res As Long
     Dim Temp1 As String
     Dim Temp2 As String
     Temp1 = String$(255, Chr$(0))
     Temp2 = String$(255, Chr$(0))
     Res = GetVolumeInformation(strDrive, Temp1, Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
     GetSerialNumber = SerialNum
     End Function
單擊“注冊”按鈕事件代碼如下:
Private Sub Command1_Click()
     If Text2 <> CStr(GetSerialNumber("C:")-123*9) Then //注冊碼算法
        MsgBox "注冊碼不正確,請認真檢查輸入是否正確。"
     Else
        MsgBox "你已經成功注冊,請重新啟動本軟件。"
        Unload Me
       Shell ("G:cxj技能測試Exercise.exe")  //執行正常運行的代碼
     End If
     End Sub
窗體激活代碼如下:
Private Sub Form_Activate()
     Text1.Text = GetSerialNumber("C:")
     End Sub
整個程序運行后,出現兩個文本框和一個“注冊”按鈕,一個文本框顯示計算機硬盤序列號,第二個文本框需輸入正確注冊號,點“注冊”程序正常運行,否則程序要求輸入正確序列號。
這個事例是以獲取硬盤序列號為機器碼從而算出注冊碼,也可獲取其它硬件信息作為機器碼,如CPU序列號、網卡MAC地址等,下面介紹用VB獲取CPU序列號。
打開VB6.0新建一個工程,在窗體上放置一個文體框控件text1。通用­——聲明中建立如下代碼:
Private   Type   OSVERSIONINFO  
  dwOSVersionInfoSize  As  Long  
  dwMajorVersion  As  Long  
  dwMinorVersion  As  Long  
  dwBuildNumber  As  Long  
  dwPlatformId  As  Long  
  szCSDVersion  As  String *  128    ' Maintenance   string   for   PSS   usage  
  End   Type  
Private   Declare   Function   GetVersionEx   Lib   "kernel32"   Alias   "GetVersionExA"   (lpVersionInformation   As   OSVERSIONINFO)   As   Long
  Private   Declare   Function   GetComputerName   Lib   "kernel32"   Alias   "GetComputerNameA"   (ByVal   lpBuffer   As   String,   nSize   As   Long)   As   Long  
  Private   Const   VER_PLATFORM_WIN32_NT   =   2  
  Private   Const   VER_PLATFORM_WIN32_WINDOWS   =   1  
  Private   Const   VER_PLATFORM_WIN32s   =   0  
窗體激活代碼如下:
Private Sub Form_Activate()
     Dim   len5   As   Long,   aa   As   Long  
          Dim   cmprName   As   String  
          Dim   osver   As   OSVERSIONINFO  
          '取得Computer   Name  
          cmprName   =   String(255,   0)
          len5   =   256  
          aa   =   GetComputerName(cmprName,   len5)  
          cmprName   =   Left(cmprName,   InStr(1,   cmprName,   Chr(0))   -   1)  
          Computer   =   cmprName                 '取得CPU端口號  
          Set   CPUs   =   GetObject("winmgmts:{impersonationLevel=impersonate}!\"   &   Computer   &   "rootcimv2").ExecQuery("select   *   from   Win32_Processor")  
          For   Each   mycpu   In   CPUs  
              Text1.Text   =   mycpu.ProcessorId  
          Next  
     End Sub
程序運行后,文本框內顯示的正是本機CPU的序列號。
上述事例均使用VB6.0,在WindowsXP下運行通過。
大云網官方微信售電那點事兒

責任編輯:葉雨田

免責聲明:本文僅代表作者個人觀點,與本站無關。其原創性以及文中陳述文字和內容未經本站證實,對本文以及其中全部或者部分內容、文字的真實性、完整性、及時性本站不作任何保證或承諾,請讀者僅作參考,并請自行核實相關內容。
我要收藏
個贊
?
主站蜘蛛池模板: 久久这里精品青草免费 | 四虎国产精品永久地址99新强 | 国产高清免费不卡观看 | 毛片在线不卡 | 玖玖福利 | 亚洲视频一区在线 | 日本中文字幕一区 | 日韩毛片最新看 | 欧美日韩国产一区二区三区伦 | 91天堂在线视频 | 两个人高清视频免费观看www | 91福利国产在线观看一区二区 | 免费看动漫强人物动漫的 | 亚洲成人第一页 | 欧美国产日本精品一区二区三区 | 草久网| 香蕉草莓丝瓜茄子番茄绿巨人 | 中文字幕在线手机播放 | 一级黄色在线视频 | 亚洲二区在线播放 | 91视频免费网址 | 操草| 新香蕉视频在线 | 青青草精品在线视频 | 色婷婷.com| 两个人的视频在线观看免费完整版 | 亚洲天堂精品在线观看 | 9久9久女女热精品视频免费观看 | 99久久久国产精品免费牛牛四川 | 超清国产粉嫩456在线免播放 | 99久久这里只有精品 | 日本精品视频一区二区三区 | av基地| 香蕉久久国产 | 麻豆制片厂制作传媒在现观看 | 麻豆爱爱视频 | 免费视频网站在线观看黄 | 九九视频精品全部免费播放 | 91社区在线观看 | 妈妈的朋友韩国理论片 | 国产精品成人免费视频 |