lparameters cInString, cKey local cRetStr, ix, cTlen, xLen cRetStr = "" cTLen = len(cInString) xLen = len(cKey) for ix = 1 to cTlen cRetStr = cRetStr + ; chr(bitxor( ; asc(substr(cInstring,ix,1)),; asc(substr(cKey,(ix-1)%xLen+1,1)))) endfor return cRetStrSample usage of encrypted field :
* Passw checker if !seek(thisform.txtName.value+; Encrypt(ThisForm.txtPassw.value,thisform.cKey),; "PwdTable","Namepwd") messagebox("Password not confirmed !") ... else .... endif * Passw saver insert into pwdTable (Name,Pwd) ; values (thisform.txtName.value, ; Encrypt(ThisForm.txtPassw.value,thisform.cKey))Cetin