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 idhttp最简洁的修改和取得cookie例子

idftp tencoding and iidtextencoding

Delphi 服务器群集解决方案

Delphi 几种程序自杀的方法

删除Delphi组件tstringlist中的重复项目

Delphi 加壳原理与简单实现加壳

Delphi获取当前计算机所有盘符

Delphi xe8安卓下汉字转gb2312 urlencode代码

Delphi 文件名变小写的函数

Delphi输入字符与tlistbox项目匹配

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

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