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

　　

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