VFP 愛用者社區

dxnn520 · 註冊時間: 2011-09-09 文章: 3 第 1 樓

其实就是如何把一篇文章（最少1000字）以加密形式存入sql server字段中。只可惜MyFll中的Encrypt最大只支持256个字符。下面这段代码，一增加字符就不成功，不知为什么？各位可以试试，有没有其他方法实现！和大家探讨!

*加密“演示”
?
?
cs="我是一个兵，来自老百姓！" && 明码 && \\ 如果用“我是一个兵”就可以，再增加就出错！
ke="需要加的密码" && 密钥
ct=""
i=1
DO WHILE i<LEN(cs)
ch=SUBSTR(cs,i,2)
ky=SUBSTR(ke,i,2)
chn=ASC(ch)+(ASC(ky)-45120)
IF chn>55110
chn=chn-4995
ENDIF
ct=ct+CHR(chn)
i=i+2
ENDDO
?cs && 明码
?ke && 密钥
?ct && 加密后的字符串为 “ 晤糑諻蒁蝩罧 ”
?
?[img][/img][url][/url]

jys · 發表於: 星期五九月 09, 2011 10:28 am 文章主題:

看起來像是因為密碼的位數不足的關係。若要動得比較少的話，
nKe = CEILING(Len(cs) / Len(Ke))
Kes = Replicate(ke,nKe )
ct=""
i=1

Do WHILE i<LEN(cs)
ch=SUBSTR(cs,i,2)
ky=SUBSTR(kes,i,2)
chn=ASC(ch)+(ASC(ky)-45120)
If chn>55110
chn=chn-4995
Endif
ct=ct+CHR(chn)
i=i+2
Enddo

實際上應該是密碼的位數不足時，要往第一個循環抓。