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;
 

相关阅读 >>

winapi 字符及字符串函数(1): charlower - 字符或字符串转小写

Delphi opendialog1 添加文件打开多选模式

Delphi windows 获取指定进程句柄数

Delphi extractclassname 字符串处理函数

Delphi xe 制作的萤光时钟，可改作屏保

Delphi tms web core 获取url 参数

Delphi 扫二维码并识别

Delphi中根据程序名称判断是否多开

Delphi 禁止截屏printscreen

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

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

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