Delphi 代码审计–项目实战 1

华盟原创文章投稿奖励计划

程序的主要function,与 procedure注:Delphi把操作数据的方法分成了两种,一种是function,另一种是procedure,大致理解为“函数”和“过程”。Procedure类似C语言中的无返回值函数,即VOID。而Function就是c语言中的有返回值函数,即没有Void。

程序分为2种连接数据库模式:

Delphi 代码审计--项目实战 1

程序分为2种连接数据库模式:

Delphi 代码审计--项目实战 1

无论是本地模式,还是联网模式,都是读取,当前路径的config.ini配置文件:(导致敏感信息暴漏,可直连服务器)

Delphi 代码审计--项目实战 1

继续跟数据库连接:配合SQL Server数据库,直接带入,可以判断出为明文存储。

Delphi 代码审计--项目实战 1

config.ini配置如下:

Delphi 代码审计--项目实战 1

基于TCP通信,SQL Server通信构架大致如下:

(可导致通信过程中抓取明文执行)

Delphi 代码审计--项目实战 1

代入执行:

(导致可拼接sql语句,查询任意语句或者执行命令)

Delphi 代码审计--项目实战 1

部分语句其中如下:

select distinct memberid,receivecompany from weigh where receivecompany is notnull  and receivecompany like  ''%'+xxxxxx+'%''

软件呈现如下:

Delphi 代码审计--项目实战 1

对应 收货单位编号,以及收货单位名称。

分别为:memberid,receivecompany闭合语句为:

2' ; select loginid as memberid  , password as receivecompany from sysuser --

Delphi 代码审计--项目实战 1

抓取返回如图:

得到admin 账号以及密码。构造读取远程桌面端口号:

Delphi 代码审计--项目实战 1

构造读取远程桌面端口号:

得到远程服务器端口号

2';EXECmaster..xp_regread'HKEY_LOCAL_MACHINE','SYSTEMCurrentControlSetControlTerminalServerWinStationsRDP-Tcp','PortNumber' --

copy 获取缓冲区内容:

(导致可从服务器端构造代码)

Delphi 代码审计--项目实战 1

copy 用法如下:

copy(a,b,c);

a:就是copy源,就是一个字符串,表示你将要从a里copy一些东西,b:从a中的第b位开始copy(包含第11位),

c:copy从第b位开始后的c个字符,

exp: m:=‘the test fuck'          

          s:=copy(m,2,2);      //s值为‘he’

当超范围,会发生异常错误。实例中,从服务器数据库获取数据后进行copy。

软件登陆部分代码如下:

(导致可自动化跑 loginid。)

Delphi 代码审计--项目实战 1

多次尝试错误处理如下:退出软件,并且重新开始计算。

Delphi 代码审计--项目实战 1

www.idc126.com

文章来源:https://micropoor.blogspot.com/

本文原创,作者:fox,其版权均为华盟网所有。如需转载,请注明出处:https://www.77169.net/html/229901.html

发表评论