VFP 愛用者社區

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

密碼一般可以分為如下幾種：
(1)保護能力較低的密碼
(2)可變密碼
(3)不定時的密碼
我們先來介紹第一種方法，保護能力較低的密碼是指固定密碼值的方法，比較落後，如下例：
count=0
m.pass=sapce(7)
do while count<3
count=count+1
@1,1 get m.pass picture"XXXXXXX"
read
if m.pass<>"CHINESE"
wait windows"密碼輸入錯誤"
loop
else
wait windows"通過"
exit
endif
enddo
對於可變密碼一般使用置換法，如下例：
----------------------------------------------------------------------
字元 |ABCDEFGHIJKLMNOPQRSTUVWXYZ
置換表 |QPWORIEUTYALSDJFHGMZNXBCV
----------------------------------------------------------------------
密碼 |FOXPRO
置換後 |IDBJHD
----------------------------------------------------------------------
這種方法雖然容易破密，但是有一定的難度。
對於不定時密碼，工作方式是：隨即取得一個1-5的數，並聲明一個變數以便記數，在每一個過程或函數執行前，累加該變數的值，當變數值等於隨機值的時候，即調用密碼輸入過程，這種方法雖然隱秘，但是在程式中實用性不是很大，所以我們不進行細緻的介紹，下面我們介紹一種高級的密碼處理方式，也比較簡單使用。
高級密碼處理。前面我們已經介紹過置換法，高級密碼則是使用計算的方式改變密碼的樣式，A可能變成：而B可能變成@，如下例：
加密：
tempstr=''
for i=1 to len(trim(password))
tempchr=bitxor(asc(subs(password,i,1)),123)
tempstr=tempstr+chr(tempchr)
endfor
replace passkey with tempstr
解密：
tempstr=''
for i=1 to len(trim(password))
tempchr=bitxor(asc(subs(password,i,1)),123)
tempstr=tempstr+chr(tempchr)
endfor
if passkey #tempstr
?"密碼錯誤"
endif
在這個程式裏面調用了BITXOR函數，我們現在介紹一下這個函數的使用方法：
作用：返回兩個數值型數值按位進行異或運算的結果。
語法 BITXOR(nExpression1, nExpression2)
參數 nExpression1, nExpression2
指定要按位進行異或運算的兩個數值。如果 nExpression1 和 nExpression2 不是整數，那麼它們在位操作之前，將轉換成整數。
返回值類型數值型
說明
BITXOR( ) 函數比較 nExpression1 和 nExpression2 的每個對應位。如果一個數的某一位為 0，並且另一個數相應位為 1，那麼操作結果的對應位等於 1；否則等於 0。
下表列出對 nExpression1 和 nExpression2 按位進行異或運算的結果：
nExpression1 位 nExpression2 位結果位
0 0 0
0 1 1
1 0 1
1 1 0
對於在VFP中輸入密碼時顯示的*，你可以在TEXT的passwordCHR中，輸入*，就可以了。