Delphi考虑sql注入

最新推荐文章于 2023-03-21 20:53:58 发布

原创

最新推荐文章于 2023-03-21 20:53:58 发布 · 4.2k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #sql #insert #数据库服务器 #delete #数据库

本文探讨了在Delphi应用程序中如何防止SQL注入，通过使用QuotedStr或参数化查询来确保数据库交互的安全。作者通过一个实例展示了不安全的插入语句可能导致的数据删除，并提供了修正后的安全代码。

之前只在BS架构的项目中考虑了Sql注入问题，却很少考虑到用了多年的Delphi项目也应该考虑Sql注入的问题，今天做了个实验，成功完成注入，把表里数据全部删除，以后再做Delphi项目还真的考虑这个问题。

总体讲，大体知道有两种方式可以避免Delphi中的Sql注入：1、用QuotedStr替代'''进行字符串拼接；2、采用传参数的方式与数据库交互，这种方式哪天再仔细体验一下。

以下为一个小测试，一个简单的插入语句，如果Edit1内容为
abc') delete from tb1 insert into tb1(Id, Name) values(123, 'xxxx
则运行后，tb1表中之前数据将全部清除，只剩下insert into tb1(Id, Name) values(123, 'xxxx
添加的一条

procedure TForm1.Button1Click(Sender: TObject); var sqlStr: String; begin sqlStr := 'insert into tb1(Id, Name) values(1, ''' + edit1.Text + ''')'; self.ADOQuery1.SQL.Text := sqlStr; self.ADOQuery1.ExecSQL; ShowMessage('成功完成Sql注入'); end;

改成sqlStr := 'insert into tb1(Id, Name) values(1, ' + QuotedStr(edit1.Text