在VFP中如何实现密码保护？

[yangzhiping1982]

我用密码表MMB（MMH，XM，MM）表示密码号，姓名，密码
可直接存放，稍微懂得VFP知识的人很容易窃取密码，如何保护密码？？？？？？？/

[dfwxj]

对密码串进行加密，“加密”也是防君子不防小人的东西，用多了就不灵了，把下面这个函数稍加修改后使用



FUNCTION CPW
PARA Lczip,Lcpass
Lcpass=Allt(Lcpass)
IF Lczip
Lcpass="JXWD"+Lcpass
LCNewPass=Chr((Len(Lcpass)-4)/32)+Chr((Len(Lcpass)-4)%32)
FOR iiii=1 To Len(Lcpass)
LCNewPass=LCNewPass+Chr(asc(SubStr(Lcpass,iiii,1))/32);
+Chr(asc(SubStr(Lcpass,iiii,1))%32)
ENDFOR
LCNewPass=PADR(LCNewPass,50,CHR(1))
ELSE
IF LEN(Lcpass)#50
RETURN "ERROR"
ENDIF
FOR iiii=1 TO 50
IF asc(SubStr(Lcpass,iiii,1))>=32
RETURN "ERROR"
ENDIF
ENDFOR
LCNewPass=""
FOR iiii=11 TO (asc(SubStr(Lcpass,1,1))*32+asc(SubStr(Lcpass,2,1)))*2+10
LCNewPass=LCNewPass+Chr(asc(SubStr(Lcpass,iiii,1))*32;
+asc(SubStr(Lcpass,iiii+1,1)))
iiii=iiii+1
ENDFOR
ENDIF
RETURN LCNewPass

[十豆三]

自已用类似STRCONV函数转换一下。

但如查程序被反编译了就一样会转换回来。

[proer9988]

有什么用　？？我反编译一下，直接修改就你的程序了！　ＶＦＰ中的所谓加密只能对付菜菜鸟！

[Foxer]

不要保存密码，不管怎么转换，总是有办法揭开，建议采用SYS(2007)函数取得密码的校验码（取校验码时可附加其他字符串，这样更好一些），这种单向取值的方法除了穷举，是没有办法取得原始密码的，包括你自己也取不到。

[TERRYYRRET]

同意楼上

[dfwxj]

没错，VFP的加密是防君子不防小人