【導(dǎo)讀】不在談?wù)摪踩珕栴}，病毒、黑客程序、郵件炸彈、遠(yuǎn)程偵聽等這一切都無不讓人膽戰(zhàn)心驚。病毒、黑客的猖獗使身處今日網(wǎng)絡(luò)社會的人們感覺到談網(wǎng)色變，無所適從。紹了根據(jù)磁盤序列號技術(shù)，進(jìn)行對文件加密過程，以及加密的必要性。由此受到的經(jīng)濟(jì)損失是無法估計(jì)的。法研究的深入，軟件加密技術(shù)的不斷完善，將有效的打擊盜版非法軟件。對于保護(hù)知識產(chǎn)權(quán)法的實(shí)施也將有積極的意義。如何保護(hù)自己的軟件不被非授權(quán)盜用的問題，始終困擾著每一個(gè)程序員。間或次數(shù)；4、對正常用戶而言，不應(yīng)造成使用不便。數(shù)放入注冊表中，因而注冊表內(nèi)的數(shù)據(jù)顯得極為龐大和復(fù)雜。如果將注冊標(biāo)志隱藏在注冊表。近期加密技術(shù)主要應(yīng)用于軍事領(lǐng)域，如美國獨(dú)立戰(zhàn)爭、美國內(nèi)戰(zhàn)和兩次世界大戰(zhàn)。內(nèi)容，通過這樣的途徑來達(dá)到保護(hù)數(shù)據(jù)不被非法人竊取、閱讀的目的。而且這種不安全性是互聯(lián)網(wǎng)存在基礎(chǔ)——TCP/IP協(xié)議所固有的，包括一些基于

　　

【正文】 4。 end。 注冊 用戶通過單擊 注冊 按鈕 ,來實(shí)現(xiàn)軟件的 注冊， 這一段代碼要完成以下功能 : 程序自動(dòng)生成的 注冊 密碼 。 用生成的 注冊 密碼與用戶輸入的 注冊 密碼進(jìn)行核對 。 如果一致 ,則關(guān)閉 注冊 菜單項(xiàng) ,并在缺省目錄下創(chuàng)建一個(gè) 注冊 文件 ,這個(gè)文件包括以下內(nèi)容 : [USER] 單位全稱、用戶姓名、電話號碼、 [CODE〗 注冊 碼 =XXXXXXXX 注冊 按鈕的 OnClick 事件代碼如下 : procedure (Sender: TObject)。 var myfile:textfile。 i:integer。 begin s5:=trim()。 //s5=用戶輸入 注冊 密碼 //以下代碼對 n2 進(jìn)行變換生成 注冊 密碼 n2:=120873762 +abs((n2 div 133) ＊ 171 xor 39639421)。 s1:=copy(inttostr(n2),1,8)。 //8 位數(shù)字 s2:=39。7346185239。 //移位變換 s4:=39。39。 //s4=程序自動(dòng)生成的 注冊密碼 for i:=1 to 8 do s4:=s4 +s1ord(s2[i]) － ord(39。139。) +1〗 。 if strtoint(s4) ＊ 7strtoint(s5) ＊ 7 then begin :=True。 //打開 注冊 菜單 :=39。39。 //清空登錄 碼 :=39。39。 //清空 注冊 密碼 MessageDlg(39。注冊 碼不對 ,請核對后再 注冊 ！ 39。, mtWarning, [mbOk], 0) end else begin //注冊 成功后 ,創(chuàng)建一個(gè) 注冊 文件 :=False。 assignfile(myfile,39。39。)。 rewrite(myfile)。 writeln(myfile,39。[ER\IS]39。)。 writeln(myfile,39。單位全稱 =39。,trim())。 writeln(myfile,39。用戶姓名 =39。,trim())。 writeln(myfile,39。電話號碼 =39。,trim())。 writeln(myfile,39。CODE]39。)。 writeln(myfile,39。注冊 碼 =39。,s4)。 closefile(myfile)。 MessageDlg (39。注冊 碼成功 ,謝謝您使用本軟件！ 39。, mtWarning, [mbOk\], 0) end。 end。 判斷軟件是否 注冊 判斷軟件是否 注冊 的代碼應(yīng)放在應(yīng)用程序主窗口的 OnCreate事件中 ,在這一段代碼中 ,主要完成以下功能 : 判斷軟件 注冊 文件是否存在及是否符合規(guī)范 (可能被用戶誤修改 )。 從 注冊 文件中讀取 注冊 密碼及程序自動(dòng)生成 注冊 密碼所需要的信息 。 如果兩者一致 ,則置 注冊 成功標(biāo)志 ,關(guān)閉主菜單中的 注冊 菜單項(xiàng) ,否則 ,打開 注冊 菜單項(xiàng)。 procedure (Sender: TObject)。 var s0,s1,s2,s3:string。 //s4,s5:string 為全程變量 n1,n2:longint。 myfile:textfile。 users:pchar。 i:integer。 begin if not fileexists(39。39。) then begin //不存在 注冊 文件 ,則沒有 注冊 :=True。 //允許 注冊 菜單項(xiàng) Randomize。 //初始化隨機(jī)數(shù)序列 n1:=random(100000000)。 //產(chǎn)生一個(gè) 8位以內(nèi)的整數(shù) s4:=inttostr(n1)。 //假設(shè)輸入的 注冊 密碼為 s4 s5:=inttostr(n1 +7) //假設(shè)程序生成的 注冊 密碼為 s5,令 s4s5 end else begin //存在 注冊 文件的處理 assignfile(myfile,39。39。)。 reset(myfile)。 //讀取用戶 注冊 信息及 注冊 密碼 if not eof(myfile) then readln(myfile,s0)。 if not eof(myfile) then readln(myfile,s1)。 if not eof(myfile) then readln(myfile,s2)。 if not eof(myfile) then readln(myfile,s3)。 if not eof(myfile) then readln(myfile,s4)。 if not eof(myfile) then readln(myfile,s5)。 closefile(myfile)。 if (length(s1) 10) or (length(s2) 10) or (length(s3) 10) or (length(s5) 15) then begin //文件格式有誤 ,則刪除 注冊 文件 ,并退出 deletefile(39。39。)。 :=True。 //允許 注冊 菜單 Exit。 //退出 end。 i:=255。 getmem(users,255)。 getusername(users,i)。 //獲得 Windows 用戶名 s0:=39。jdk39。 +users +39。ue2839。 //避免用戶名太短 freemem(users)。 s1:=trim(copy(s1,10,length(s1) － 9))。 //單位全稱 s2:=trim(copy(s2,10,length(s2) － 9))。 //用戶姓名 s5:=trim(copy(s5,8,length(s5) － 7))。 //注冊 密碼 (待核對 ) s1:=s2 +39。 xwplskf39。 +s1 +39。ruieo39。 //合成單位全稱和用戶姓名 n1 := DiskSize(3) div 1024 。 //C 盤 信息 n2 :=1 。 for i:=1 to length(s1) do n2:=abs((ord(s1[i]) ＊ n2 + ＄ f77)) mod 1000000。 for i:=2 to length(s0) do n2:=abs((ord(s0[i]) ＊ n2 +n1)) mod 1000000。 n2:=10504007 +abs((n2 +n1) ＊ (length(s1) +length(s0)))。 n2:=strtoint(copy(inttostr(n2),1,8))。 //登錄碼 //以下部分生成 注冊 密碼 n2:=120873762 +abs((n2 div 133) ＊ 171 xor 39639421)。 s1:=copy(inttostr(n2),1,8)。 s2:=39。7346185239。 //移位變換 s4:=39。39。 //S4 為程序自動(dòng)生成的 注冊 密碼 for i:=1 to 8 do s4:=s4 +s1[ord(s2[i]) － ord(39。139。) +1〗 。 //核對 注冊 文件和自動(dòng)生成的 注冊 密碼是否致 if strtoint(s4) ＊ 7=strtoint(s5) ＊ 7 then :=False //一致 else begin // 不一致 deletefile(39。39。)。 //刪除 注冊 文件 :=True。 //允許 注冊 菜單項(xiàng) end。 end。 end。 開放和限制部分功能方法 采取核對程序自動(dòng)生成和用戶輸入的 注冊 密碼是否一致 ,并檢查 注冊 菜單項(xiàng)是否允許的方式 ,在應(yīng)用程序的功能代碼中判斷是否已經(jīng) 注冊 ,以控制程序的流向。 if((=True)or(strtoint(s4) ＊ 7strtoint(s5) ＊ 7))and( 其他條件 )then ?? 未 注冊 時(shí)的處理 else ?? 成功 注冊 時(shí)的處理。 至此 ,本文僅討論了限制軟件使用功能的 共享軟件 的編寫方法 ,如果想限制軟件使用時(shí)間 ,在軟件 注冊 標(biāo)志中還應(yīng)包括第一次安裝的時(shí)間 ,并且 注冊 標(biāo)志不能簡單地寫入一個(gè)文件 ,它應(yīng)隱藏在硬盤或 注冊 表的某一特定位置 。 關(guān)于硬盤序列號： 在微軟的操作系統(tǒng)中，硬盤的磁盤序列號是在硬盤分區(qū)后系統(tǒng)產(chǎn)生的 8 字節(jié)隨機(jī)數(shù)字，理論上有重復(fù)的可能 ,但實(shí)際上找到兩個(gè)相同的分區(qū)序列號很難，因此，在實(shí)際應(yīng)用中可以把硬盤序列號作為唯一識別碼用于我們的加密系統(tǒng)，實(shí)際應(yīng)用中可以對序列 號做幾次邏輯運(yùn)算，讓別人覺得不是磁盤序列號。注意，軟盤也有磁盤序列號，是在格式化后產(chǎn)生的，當(dāng)進(jìn)行磁盤復(fù)制時(shí)，兩個(gè)磁盤的序列號也被復(fù)制為一樣的。因此，不能利用軟盤的序列號進(jìn)行加密。當(dāng)然，硬盤也可以用 GHOST 等軟件克隆，但是為了使用某個(gè)軟件而去克隆整個(gè)硬盤的情況是極少發(fā)生的。注冊時(shí)，調(diào)用 CreateLock()得到機(jī)器的識別號（密碼鎖） ,在應(yīng)用程序中顯示給用戶 , 用戶得到該序列號后通知軟件作者 (作者一定得留下聯(lián)系方法 ),作者根據(jù)密碼鎖利用解密機(jī)得到密匙 ,通過網(wǎng)絡(luò)或電話送給用戶，用戶根據(jù)密匙注冊，注冊后應(yīng)用程序 把密匙寫進(jìn) Windows 注冊表，以備 TestKey（ x）函數(shù)檢測密匙用。 以后應(yīng)用程序每次運(yùn)行都要調(diào)用 TestKey(x)函數(shù) (其中 x=密匙 )，用于檢測密匙是否正確 ,正確返回非零值（合法用戶） ,程序繼續(xù)運(yùn)行 ,否則（非法用戶）退出程序。當(dāng)輸入正確的密匙 ,將顯示 ”合法用戶 ”,否則顯示 ”非法用戶 ”,并退出程序 . 第七章、功能設(shè)計(jì) 調(diào)試環(huán)境的配置說明 安裝組件： ponentinstall ponent 在 install ponent 窗體下按 Browse 按鈕在 RegModule文件夾下選擇 后，按 OK 運(yùn)行：注冊機(jī)的使用 添加 使用者姓名（大于 3個(gè)字符）及校驗(yàn)碼（注冊人姓名可以忽略） 按“生成注冊碼”在注冊碼框內(nèi)會顯示生成的 注冊碼 圖 61注冊機(jī)實(shí)現(xiàn)流程圖 注冊機(jī)實(shí)現(xiàn) 按照算法計(jì)算 用戶輸入 使用者姓名 生成注冊碼 校驗(yàn)碼 獲取磁盤序列號 生成校驗(yàn)碼 用戶端注冊過程 按照算法計(jì)算 讀取注冊表數(shù)據(jù) 是否保存注冊數(shù)據(jù) 用戶輸入 未保存 保存 使用者姓名 取得注冊碼 生成注冊碼 比較 是否相等 相等 注冊成功 不相等 注冊不成功 按照算法計(jì)算 圖 62 用戶注冊實(shí)現(xiàn)流程圖 在 DELPHI中安裝并注冊 TRegwareII 類 在 HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\39。 + FProgGUID + 39。\InprocServer3239。 的 ThreadingModel子鍵數(shù)據(jù)中添加 FLicense := License。//注冊者 FOrganization := Organization。//組織 FRegCode := RegCode。//注冊碼 FExpireTime := ExpireTime。//注冊時(shí)間 FRegVersion := RegVersion。//注冊版本號 FLastCountDown := LastCountDown。//使用天數(shù) 注冊碼的計(jì)算： DSN=硬盤物理序列號 uesrname=注冊者名稱 reg=(DSN)前 1/2+uesrname+(DSN)后 1/2 然后計(jì)算 reg所有字符的和 sum=sum+ (FSeed 1113 mod Or