我是这样做的:
1,直接对字串码加上一另一固定串如123456,甚至中文字
然后存入数据库,
密码校验时在重新ENCODE.
1,直接对字串码加上一另一固定串如123456,甚至中文字
然后存入数据库,
密码校验时在重新ENCODE.
解决方案 »
- 5.12祝福
- 为什么会错呢?Undeclared identifier: 'FormCloseQuery'
- 高手帮忙
- 请教:关于打包安装的问题,问题解决马上给分(分不够再加)
- 在局域网中如何连接internet中的数据库?
- delphi 才能只显示EXCEL表格的内容,不显示它的边框和菜单等
- 本地存储的问题
- delphi Metafile is not valid!!!怎么解决 求各位大侠帮忙!!!!
- 关于字符串赋值的问题
- delphi&Sybase
- 用ADOQuery查询数据时,每关闭再打开一次查询,DBGrid就会关闭在显示数据,怎么让DBGrid不闪?
- 一个关于DBCOMBOBOX的问题
function Encode1(realpass : string) : string;
var tmp : array[1..100] of char;
consttmp : array[1..100] of char;
s : string;
i : integer;
begin
s:='';
strlcopy(@tmp,pchar(realpass),strlen(pchar(realpass)));
strlcopy(@consttmp,pchar(a),strlen(pchar(a)));
for i:=1 to strlen(pchar(realpass)) do
begin
if i<=strlen(pchar(a)) then
s:=s+char(ord(tmp[i])+ord(consttmp[i]) )
else
s:=s+tmp[i];
end;
result:=s;
end;function Decode1(datapass : string) : string;
var tmp : array[1..100] of char;
consttmp : array[1..100] of char;
s : string;
i : integer;
begin
s:='';
strlcopy(@tmp,pchar(datapass),strlen(pchar(datapass)));
strlcopy(@consttmp,pchar(a),strlen(pchar(a)));
for i:=1 to strlen(pchar(datapass)) do
begin
if i<=strlen(pchar(a)) then
s:=s+char(ord(tmp[i])-ord(consttmp[i]) )
else
s:=s+tmp[i];
end;
result:=s;
end;
所有字段均要加密的。
如果不加密别人一样可以取得ID及passwor值