VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

關於VFP的加密
( 作者: 老王 )

Vfp語言易學好用，其排序、檢索速度之快，是VB和DELPHI所不及的，但其保密性差是也大家公認的。只要稍爲懂一定資料庫知識的人，一打開資料表，其內容便一目了然，且可任意更改，其保密性和安全性可想而知，這還只是其一。其二：隨著UNFOXpro.exe和Refox7.exe等的出現，你辛辛苦苦編的程式，即使編譯成EXE文件，一經UN或RE則你煞費苦心設置的版權符、驗證關、口令、密碼等都如同虛設。

那麽Vfp的保密性差的弱點就沒辦法避免嗎？NO ！辦法肯定有，這裏就先談談“資料表的加密問題”，以下就是我的一點粗淺看法，請網友們踴躍討論。

資料表加解密常見的有以下兩種方式：

1、直接在磁片上加解密，即在關閉資料表文件後，對已保存在磁片上的資料表文件進行加密，在每次打開資料表文件前，先在磁片上對資料表解密，然後再供 Vfp將其打開，其優點是加解密容易，一般程式師用Vfp提供的低級文件函數都能編出加解密程式；缺點是：在WIN的多工環境下，很容易取得解密後的資料，另外一旦系統出錯，還未來得及加密就重新啓動系統，那保留在磁片上的就是解密後的資料，對保密性能要求稍微高一些的程式師，一般不會採用此方式。

2、在記憶體中對資料表的欄位進行加解密，這又可分兩種：

A、象《遠端續緣》1999年第一期第8個問題那樣用ASCII碼進行+、-、*、/運算加解密，但這種方法有個缺點即當加或乘時，其值容易大於255(FFH)即大於ASCII碼的最大值，這時無法用CHR()換成字元保存，如對大於255的資料不加密，則解密時又會帶來麻煩，即同是254，哪個是加密後的254，哪個是未加密的254？這也就是爲何有人問漢字解密後會出現許多同音漢字的原因。

B、完全利用Vfp3.0以上版本提供的位元操作函數bitxor()進行加密，該加密方法是C語言及組合語言常用的加密方法，其原理是將一位元組的8位元二進位數字與另一個二進位數字進行異或操作，如用6個以上密匙(口令)進行加密，則在不知其密匙的情況下，是很難解密的。它還有一個優點是加解密用同一模組，即一次執行是加密，再次執行爲解密。以下是加解密常式（注：調用該過程時，需加密的資料表已打開，且爲當前工作區）：Procedure jjmgc
para Pass &&Pass是密匙，設Pass='wjgwkj'
priv all
mccd=len(Pass) &&取Pass密匙長度
Sjbzds=fcou()
Dime Jmsz(Sjbzds)
Go top
Scan
Scat to Jmsz &&讀一條記錄到陣列
For I=1 to Sjbzds
If type("Jmsz(i)")="C" &&該欄位是字元型嗎
Zdcd=len(trim(Jmsz(i))) &&取欄位長度
mc1=1
For x=1 to Zdcd
Jm1=asc(subs(Jmsz(I),x,1)) &&取欄位中一個位元組
jm2=asc(subs(Pass,mc1,1)) &&取Pass中一個位元組
jmjg= chr(bitxor(jm1,jm2)) &&將JM1按JM2的值異或
Jmsz(I)=stuf(Jmsz(I),x,1,jmjg) &&進行加密替換
mc1=iif(mc1>mccd,1,mc1+1) &&判斷MC1是否大於mCCD
Endf
Endi
Endf
Gath from Jmsz &&將加解密的資料，寫入當前記錄
Ends
retu

3、在記憶體中直接對整個資料表文件(.DBF)加解密，這也有兩種方法：

A、借助現成工具，猶如UCDOS SDK所提供的DBFKey()函數那樣，與FOX無縫連接，不裝入LoadSdk用USE是無法打開資料表的，其優點是顯而易見的，但目前在WIN環境下還找不到這樣的工具，而自己製作其難度大，一般程式師做不到。

B、用Vfp提供的低級文件函數，配合Create Curso -SQL 和 Insert -SQL 命令可實現類似UCDOS SDK所達到的功能，其原理是：

先用低級文件函數自定義一個文件頭(或著叫文件格式，象BMP、DOC等都有自己的文件格式)，在文件頭中可包含：文件頭長度、欄位名、欄位類型、欄位長度、每條記錄長度、密匙(口令字)等，接著將您的記錄按文件頭規定的格式加密後順序寫入文件中，由於文件格式是您自定義的，所以一般是無法打開讀取的。在使用時，用低級文件函數從您自定義的文件中先讀取文件頭的內容，讀到欄位名、欄位類型、欄位長度時，將其用Create Curso -SQL到新建的資料表中，讀取記錄後先解密，再用Insert -SQL 到剛建的資料表中，然後就可正常使用了，結束使用需存檔時再按上述方法寫入文件。

該方法始終是再記憶體中進行的，故即使系統出錯，重新啓動系統也無妨。用這種方法加解密確實是在Vfp狀態下比較好的辦法，但可能對於沒學過C語言或彙編的朋友，對文件格式等不理解，由於代碼較長，無法列出，如網友們有興趣，我可供《天堂軟體俱樂部》發放。

以上只是我對Vfp資料保密性問題的探討之一 —— 資料表加解密，從中大家會看到，如果只對資料表加解密，而對執行加解密的程式碼不加密，或用Refox等軟體將您的EXE文件反編譯，那您的加密方法及密匙(口令字)，就很容易暴露，其加密的可靠性就有問題，這就是我要講的第二個問題：

Ruey · 發表於: 星期六五月 24, 2003 4:26 pm 文章主題:

在VFP中實現可靠的隨機密碼和多用戶許可權控制
轉載自《電腦世界日報》 (文/蔡文水)
在應用系統中，經常使用口令實現對系統操作許可權的控制，常規的方法是在進入系統時提示操作者輸入一個字串口令。這種口令的設置方法多種多樣，有的是將固定口令密碼寫在程式裏，系統開始要求操作者輸入該密碼，正確方可進入，這種方法的缺點是密碼不能改變，且全系統只有一個。還有一種方法是將操作者輸入的密碼通過加密，轉換爲加密虛擬碼存儲在資料庫中，但這種方法的密碼和虛擬碼仍有顯式的對應關係，容易被破解。本文介紹一種在VFP中用隨機虛擬碼存庫的方法實現簡單可靠的系統加密，並用此方法實現一個應用系統的多用戶許可權控制，這種方法的特點是實現簡單，加密可靠，不易破解，可將一個1至7位元的用戶密碼轉換爲20位元的隨機虛擬碼，且每次重新設定密碼時所産生的虛擬碼都不相同，通過變換生成的20位虛擬碼沒有任何規律性，即使從資料庫中擦除虛擬碼也無法進入系統，從而實現了可靠的密碼許可權控制。
---- 一、可靠的隨機虛擬碼存庫
---- 從用戶密碼到存庫的隨機虛擬碼之間的變換由兩個函數完成，一個是加密函數，一個是解密函數。加密函數的思想是對用戶密碼（真碼）進行複雜化、隱蔽化處理，也就是將真碼淹沒在20位元虛擬碼中，加密函數如下：
FUNC MAZH1
PARA ZMZ
ZMZ=VAL(ZMZ)
N1=RAND()*10^9
IF N1<=999999999
N1=N1+10^9
ENDI
N1=INT(N1)
C1=STR(N1+ZMZ)+STR(N1)
C2=SUBS(C1,5,20)+SUBS(C1,1,4)
P1=''
P2=''
FOR II=1 TO 10
P1=P1+SUBS(C2,2*II-1,1)
P2=P2+SUBS(C2,2*II,1)
ENDFOR
WMZ=P1+P2
RETU WMZ
---- 若真碼爲：1234567，則虛擬碼爲：64915302152868193982，無論真碼是一位還是相同多位，虛擬碼總是具有同樣的不確定性和複雜性，所以若想通過簡化真碼來分析虛擬碼是不可能的。
---- 解碼函數是將資料庫中存放的虛擬碼轉換成原用戶密碼，其代碼如下：
FUNC MAZH2
PARA WMZ
PP=''
FOR II=1 TO 10
PP=PP+SUBS(WMZ,II,1)+SUBS(WMZ,II+10,1)
ENDFOR
DD=SUBS(PP,17,4)+SUBS(PP,1,16)
M1=SUBS(DD,1,10)
M2=SUBS(DD,11,10)
ZMZ=INT(VAL(M1)-VAL(M2))
RETU ZMZ
---- 由於提交的系統全是編輯的，非法者是無法得到密碼轉換函數中的資訊的，所以解密方法是不易被發現的。
---- 二、多用戶許可權控制的實現
---- 對一個包含多種業務操作的應用系統，由於業務的要求，常需要限制不同操作者的業務操作範圍，在VFP中，可以建立一個許可權資料表，表中有多個欄位，分別用於存儲了每個操作者的代號、姓名、口令以及是否可以操作業務模組的僞標識碼,見下表：
工號姓名系統口令
業務1操作標識碼業務2操作標識碼 …
01 劉君紅 71510714108669886598 75913
759130063600536 02817028179076390563 …
02 何晚平 17615822156435449957 8341
3834133074230642 56314563144262342423 …
03 劉棋東 16710714110199886591 044
18701188588160484 83413834133074230642 …
04 趙民 58613143131858393185 4611702
8171696390565 48710144103584210444 …
05 王雪菲 80614563147782342425 52412
171122488399485 53210299114872812320 …
… …
---- 系統的主表單上的多個業務模組由多個按鈕來實現啓動，那麽在系統主表單的[確定]按鈕的CLICK EVENT方法程式中添加一些判斷代碼，就可以實現系統的口令和操作許可權控制。輸入工號和口令後，按[確定]，CLICK EVENT中的代碼首先根據輸入的工號，對許可權資料表中對應記錄的口令虛擬碼進行解碼，得出的真碼與輸入口令一致放可進入系統，口令測試通過後，再通過對每個業務所對應的僞標識碼欄位內容進行解碼，確定該業務模組是否允許操作，進而將該模組的啓動按鈕的ENABLED屬性設置爲.T.或.F.。爲了在系統一啓動就打開許可權資料表，要將許可權表添加到主表單的資料環境中。主表單的一個按鈕可以啓動“許可權維護”表單，該表單可以完成對每個工號的口令和操作許可權設置。一般只有系統管理員被賦予“許可權維護”的許可權，不同工號的操作員在進入系統後可以自行修改自己的密碼，而管理員無法知道操作員的密碼，只能進行擦除，這一點更加提高了操作員密碼的安全性。
---- 以上表單和程式在金長城PII/400機上用Visual Foxpro5.0調試通過。