易語(yǔ)言注冊(cè)機(jī)如何生成永久或限時(shí)注冊(cè)碼

這篇文章主要為大家展示了“易語(yǔ)言注冊(cè)機(jī)如何生成永久或限時(shí)注冊(cè)碼”，內(nèi)容簡(jiǎn)而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“易語(yǔ)言注冊(cè)機(jī)如何生成永久或限時(shí)注冊(cè)碼”這篇文章吧。

成都創(chuàng)新互聯(lián)服務(wù)項(xiàng)目包括廬山網(wǎng)站建設(shè)、廬山網(wǎng)站制作、廬山網(wǎng)頁(yè)制作以及廬山網(wǎng)絡(luò)營(yíng)銷策劃等。多年來(lái)，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，廬山網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到廬山省份的部分城市，未來(lái)相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

DLL命令表

.版本 2
.DLL命令 CryptCreateHash, 整數(shù)型, "advapi32.dll", "CryptCreateHash", 公開(kāi)
  .參數(shù) hProv, 整數(shù)型
  .參數(shù) Algid, 整數(shù)型
  .參數(shù) hKey, 整數(shù)型
  .參數(shù) dwFlags, 整數(shù)型
  .參數(shù) phHash, 整數(shù)型, 傳址
.DLL命令 CryptDestroyHash, 整數(shù)型, "advapi32.dll", "CryptDestroyHash", 公開(kāi)
  .參數(shù) hHash, 整數(shù)型, 傳址
.DLL命令 CryptGetHashParam, 整數(shù)型, "advapi32.dll", "CryptGetHashParam", 公開(kāi)
  .參數(shù) hHash, 整數(shù)型
  .參數(shù) dwParam, 整數(shù)型
  .參數(shù) pByte, 字節(jié)集
  .參數(shù) pdwDataLen, 整數(shù)型, 傳址
  .參數(shù) dwFlags, 整數(shù)型
.DLL命令 CryptReleaseContext, 整數(shù)型, "advapi32.dll", "CryptReleaseContext", 公開(kāi)
  .參數(shù) hProv, 整數(shù)型, 傳址
  .參數(shù) dwFlags, 整數(shù)型, 傳址
.DLL命令 CryptHashData, 整數(shù)型, "advapi32.dll", "CryptHashData", 公開(kāi)
  .參數(shù) hHash, 整數(shù)型
  .參數(shù) pbData, 字節(jié)集, 傳址
  .參數(shù) dwDataLen, 整數(shù)型
  .參數(shù) dwFlags, 整數(shù)型
.DLL命令 CryptAcquireContextA, 整數(shù)型, "advapi32.dll", "CryptAcquireContextA", 公開(kāi)
  .參數(shù) phProv, 整數(shù)型, 傳址
  .參數(shù) pszContainer, 文本型
  .參數(shù) pszProvider, 文本型
  .參數(shù) dwProvType, 整數(shù)型
  .參數(shù) dwFlags, 整數(shù)型

生成注冊(cè)碼的代碼

.版本 2
.支持庫(kù) dp1
.程序集 窗口程序集1
.子程序 _生成按鈕_被單擊
.局部變量 sj1, 文本型
.局部變量 sj2, 文本型
.局部變量 sj3, 文本型
.局部變量 臨時(shí)文本, 文本型
.局部變量 臨時(shí)時(shí)間, 日期時(shí)間型
.如果 (類型組合框.現(xiàn)行選中項(xiàng) ＝ 0)
  臨時(shí)時(shí)間 ＝ [2080年12月31日]
.否則
  臨時(shí)時(shí)間 ＝ 日期框.今天
.如果結(jié)束
sj1 ＝ 到文本 (取年份 (臨時(shí)時(shí)間))
sj2 ＝ 到文本 (取月份 (臨時(shí)時(shí)間))
sj2 ＝ 選擇 (取文本長(zhǎng)度 (sj2) ＝ 1, “0” ＋ sj2, sj2)
sj3 ＝ 到文本 (取日 (臨時(shí)時(shí)間))
sj3 ＝ 選擇 (取文本長(zhǎng)度 (sj3) ＝ 1, “0” ＋ sj3, sj3)
臨時(shí)文本 ＝ 到文本 (左移 (到數(shù)值 (sj1 ＋ sj2 ＋ sj3), 4))
臨時(shí)文本 ＝ 進(jìn)制_十到十六 (到數(shù)值 (臨時(shí)文本))
臨時(shí)文本 ＝ 臨時(shí)文本 ＋ 進(jìn)制_十到十六 (取文本長(zhǎng)度 (臨時(shí)文本) ＋ 1)
臨時(shí)文本 ＝ 到大寫(xiě) (取數(shù)據(jù)摘要 (到字節(jié)集 (機(jī)器碼編輯框.內(nèi)容 ＋ 校驗(yàn)_取sha1 (到字節(jié)集 (機(jī)器碼編輯框.內(nèi)容))))) ＋ 臨時(shí)文本
注冊(cè)碼編輯框.內(nèi)容 ＝ 臨時(shí)文本
置剪輯板文本 (注冊(cè)碼編輯框.內(nèi)容)
.子程序 _類型組合框_列表項(xiàng)被選擇
.如果 (類型組合框.現(xiàn)行選中項(xiàng) ＝ 0)
  日期框.禁止 ＝ 真
.否則
  日期框.禁止 ＝ 假
.如果結(jié)束
.子程序 進(jìn)制_十到十六, 文本型, 公開(kāi), 運(yùn)算_十進(jìn)制到十六進(jìn)制
.參數(shù) 十進(jìn)制數(shù), 整數(shù)型
返回 (取十六進(jìn)制文本 (十進(jìn)制數(shù)))
.子程序 校驗(yàn)_取sha1, 文本型, 公開(kāi), 返回40位的校驗(yàn)數(shù)據(jù)
.參數(shù) 字節(jié)集數(shù)據(jù), 字節(jié)集, , 要取數(shù)據(jù)摘要的字節(jié)集
返回 (到小寫(xiě) (MD過(guò)程 (字節(jié)集數(shù)據(jù), 32772, 20)))
.子程序 MD過(guò)程, 文本型
.參數(shù) x, 字節(jié)集
.參數(shù) 種類, 整數(shù)型
.參數(shù) 長(zhǎng)度, 整數(shù)型
.局部變量 hCryptProv, 整數(shù)型
.局部變量 hKey, 整數(shù)型
.局部變量 hHash, 整數(shù)型
.局部變量 pbBuffer, 字節(jié)集
.局部變量 cbHash, 整數(shù)型
.局部變量 rgbHash, 字節(jié)集
.局部變量 rgbDigits, 字節(jié)集
.局部變量 局_MD5, 字節(jié)集
.局部變量 b, 整數(shù)型
.局部變量 i, 整數(shù)型
.局部變量 len, 整數(shù)型
.如果 (CryptAcquireContextA (hCryptProv, “”, “”, 1, -268435456) ＝ 0)
  .如果真 (CryptAcquireContextA (hCryptProv, “”, “”, 1, 0) ＝ 0)
    返回 (“”)
  .如果真結(jié)束
.否則
  .如果 (CryptCreateHash (hCryptProv, 種類, hKey, 0, hHash) ＝ 0)
    CryptReleaseContext (hCryptProv, 0)
    返回 (“”)
  .否則
    pbBuffer ＝ x
    len ＝ 取字節(jié)集長(zhǎng)度 (x)
    .如果 (CryptHashData (hHash, pbBuffer, len, 0) ＝ 0)
      CryptDestroyHash (hHash)
      CryptReleaseContext (hCryptProv, 0)
      返回 (“”)
    .否則
      rgbHash ＝ 取空白字節(jié)集 (長(zhǎng)度)
      cbHash ＝ 長(zhǎng)度
      .如果 (CryptGetHashParam (hHash, 2, rgbHash, cbHash, 0) ＝ 0)
        CryptDestroyHash (hHash)
        CryptReleaseContext (hCryptProv, 0)
        返回 (“”)
      .否則
        rgbDigits ＝ 到字節(jié)集 (“0123456789ABCDEF”)
        局_MD5 ＝ 取空白字節(jié)集 (長(zhǎng)度 × 2)
        .變量循環(huán)首 (0, cbHash － 1, 1, i)
          b ＝ rgbHash [i ＋ 1]
          局_MD5 [i × 2 ＋ 1] ＝ rgbDigits [右移 (b, 4) ＋ 1]
          局_MD5 [i × 2 ＋ 2] ＝ rgbDigits [位與 (b, 15) ＋ 1]
        .變量循環(huán)尾 ()
        CryptDestroyHash (hHash)
        CryptReleaseContext (hCryptProv, 0)
      .如果結(jié)束
    .如果結(jié)束
  .如果結(jié)束
.如果結(jié)束
返回 (到文本 (局_MD5))

運(yùn)行結(jié)果：

以上是“易語(yǔ)言注冊(cè)機(jī)如何生成永久或限時(shí)注冊(cè)碼”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

文章名稱：易語(yǔ)言注冊(cè)機(jī)如何生成永久或限時(shí)注冊(cè)碼
分享鏈接：http://bm7419.com/article34/jjsdpe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供動(dòng)態(tài)網(wǎng)站、小程序開(kāi)發(fā)、商城網(wǎng)站、虛擬主機(jī)、企業(yè)建站、網(wǎng)站排名

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)