VFP 愛用者社區

[zzbdyx]

我有一VFP字符串加密解密程序如下

PARA ming
msstr="&@#>?Dz*+_+(87"
IF MOD(LEN(ming),8)<>0
ming=ming+SPACE(8-MOD(LEN(ming),8))
ENDIF
DECLARE ms1[8],ms2[32],ms3[8]
FOR i=1 TO 8
ms1[i]=ASC(SUBSTR(msstr,i,1))
NEXT
k=1
FOR i=1 TO 8
FOR j=i+1 TO 8
ms2[k]=BITXOR(ms1[i],ms1[j])
k=k+1
NEXT
NEXT
FOR i=29 TO 32
ms2[i]=ms1[i-28]
NEXT
zaa=0
zaa=BITOR(zaa,ms1[1])
zaa=BITOR(zaa,BITLSHIFT(ms1[2],7))
zaa=BITOR(zaa,BITLSHIFT(ms1[3],13))
zaa=BITOR(zaa,BITLSHIFT(ms1[4],23))
k=LEN(ming)
k=INT(k/8)
l=0
FOR i=1 TO k
xx1=SUBSTR(ming,(i-1)*8+1,8)
FOR j=1 TO 8
ms3[j]=ASC(SUBSTR(xx1,j,1))
NEXT
FOR m=1 TO 3
IF l==29
l=0
ENDIF
zbb=BITRSHIFT(zaa ,l)
zbb=BITAND(zbb,3)
l=l+1
DO CASE
CASE zbb=0
FOR j=1 TO 8
ms3[j]=ms3[j]+128
ms3[j]=BITAND(ms3[j],255)
ms3[j]=BITXOR(ms3[j],ms2[j])
NEXT
CASE zbb=1
FOR j=1 TO 8
ms3[j]=ms3[j]+128
ms3[j]=BITAND(ms3[j],255)
ms3[j]=BITXOR(ms3[j],ms2[j+8])
NEXT
CASE zbb=2
FOR j=1 TO 8
ms3[j]=BITNOT(ms3[j])
ms3[j]=BITAND(ms3[j],255)
ms3[j]=BITXOR(ms3[j],ms2[j+16])
NEXT
CASE zbb=3
FOR j=1 TO 8
ms3[j]=BITNOT(ms3[j])
ms3[j]=BITAND(ms3[j],255)
ms3[j]=BITXOR(ms3[j],ms2[j+24])
NEXT
ENDCASE
NEXT
xx2=''
FOR j=1 TO 8
xx2=xx2+CHR(ms3[j])
NEXT
ming=STUFF(ming,(i-1)*8+1,8,xx2)
NEXT
ming=ALLTRIM(ming)
RETURN ming
*************************************************************
如果用VFP表存儲加密數據，解密時正常，但是當我把加密后的結果存儲在SQL中后，再讀取到VFP中進行解密得到的結果和加密前不相同，請問是何原因！！！
請高手指點！

[garfield]

可能是加密後的字串變成非目前使用的語系裡的文字,
你可將欄位型態改成2進位這類型的格式,
存看看是否可用.