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 stringgrid常用属性和常用操作

Delphi idhttpserver实现webservice

Delphi 实现拦截api的钩子(hook)

Delphi编解码js字符串

Delphi spcomm串口控件的例程

Delphi createmessagedialog

Delphi 读取全网站链接

Delphi xe6 firemonkey移动应用程序获取android设备屏幕信息

Delphi 10.3 控件遮挡 webbrowser

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

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