国产伦乱,一曲二曲欧美日韩,AV在线不卡免费在线不卡免费,搞91AV视频

當(dāng)前位置:主頁 > 科技論文 > 軟件論文 >

軟件的加密——注冊碼實現(xiàn)原理

發(fā)布時間:2015-02-11 21:12

摘 要:

摘 要:很多共享軟件有一定的試用期,試用期過后,需要注冊才能夠繼續(xù)使用。注冊時需要把使用軟件時出現(xiàn)的一個序列號給人家發(fā)過去,而后產(chǎn)權(quán)所有人給你注冊號碼。并且一機一個號碼,最大限度防止盜用別人的成果。下面介紹的就是在VB中獲取計算機的硬件信息,從而通過一定的算法給出注冊碼,實現(xiàn)軟件加密。

關(guān)鍵詞:

關(guān)鍵詞: 軟件加密 注冊碼 防盜

——聲明中建立如下代碼:

String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long,lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal      lpFileSystemNameBuffer As String, ByVal  nFileSystemNameSize As Long) As Long

新建一個函數(shù):

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 //注冊碼算法

     Else

        Unload Me

//執(zhí)行正常運行的代碼

     End If

     End Sub

窗體激活代碼如下:

Private Sub Form_Activate()

     Text1.Text = GetSerialNumber("C:")

     End Sub

整個程序運行后,出現(xiàn)兩個文本框和一個“注冊”按鈕,一個文本框顯示計算機硬盤序列號,第二個文本框需輸入正確注冊號,,點“注冊”程序正常運行,否則程序要求輸入正確序列號。

序列號。

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  

          cmprName   =   String(255,   0)

          len5   =   256  

          aa   =   GetComputerName(cmprName,   len5)  

          cmprName   =   Left(cmprName,   InStr(1,   cmprName,   Chr(0))   -   1)  

          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

下運行通過。



本文編號:14738

資料下載
論文發(fā)表

本文鏈接:http://www.lk138.cn/kejilunwen/ruanjiangongchenglunwen/14738.html


Copyright(c)文論論文網(wǎng)All Rights Reserved | 網(wǎng)站地圖 |

版權(quán)申明:資料由用戶81e87***提供,本站僅收錄摘要或目錄,作者需要刪除請E-mail郵箱bigeng88@qq.com
欧美激情国产一区二区| 艹B久久久| 欧美日韩国产综合精品| 99热综合一本| 国产3p熟女| 亚洲乱码精品国产香蕉视频在线观看| 欧美区 在线| 一区二区三区四区在线图片| 亚洲成人网在线视频| 免费看插b视频网站| 亚洲天堂欧洲| 视频一区中文字幕实验| 乱XXXX| 波霸黄色影院| 国产无码原创区| 超碰日批1区| 国产欧美精品久久99| 国产欧美视频在在线| 亚洲久久天地| 欧美激情视频第二区| 天天干天天爽天天操天天日| wuma久久123| 色性性性AV| 得得的干现在视频| 亚洲毛片在线| 久久久久国语精品| 2004AV天堂| 亚洲日韩高清无码电影一区二区| av东京热人妻无码大汇总| 偷拍 精品 国产 一区| 东方综合成人网| 啊啊嗯嗯啊啊啊视频| 日韩三级欧美视频| 88国产一区| 一区 porn| 五月天成人视频| 欧美乱码久久久一区二区| 日本不卡免费一二视频| 小少妇后入网址| 久久久久 色AV| 欧美精品久久日韩精|