Delphi 数据库处理密码防止sql注入

本文整理自网络，侵删。

 
//处理密码防止sql注入
function ChangePwd(str:string) : string;
var
i,j:Integer;
rep:string;
begin
  rep:='!#$%^*';
  j:=1;
  i:=pos('-',str);
  while i<>0 do
  begin
    delete(str,i,1);
    insert(rep[j],str,i);
    i:=pos('-',str);
    j:=j mod 6;
    j:=j+1;
  end;
  Result:=str;
end;
 

相关阅读 >>

Delphi复制整个文件夹(当然包括嵌套文件夹)

Delphi版本号检测判断

Delphi中内嵌汇编

如何用Delphi实现windows xp中“本地连接”的启用和禁用

Delphi 获取带分隔符字符串中的字段值

Delphi 转数字为大写金额源代码

Delphi 得到cxgrid筛选后的记录数

Delphi 端口扫描器原理

Delphi如何判断一个combobox是否处于下拉状态

xp/2003下Delphi最简单的方法开放3389

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 数据库处理密码防止sql注入