php_threadback.pas

sql inject HDSI3--delphi.rar

unit php_threadBack;

interface

uses
  Classes,define_Unit,SysUtils;

type
  TPhpThread = class(TThread)
  public
    procedure Execute; override;
  private
    { Private declarations }
  protected
   // procedure Execute; override;
  end;

implementation
      uses
         Main_Unit;
{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TPhpThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TPhpThread }

procedure TPhpThread.Execute;
var
     phpdict:TextFile;
     Str:String;
     URL:String;
     s1,ss,aa:string;
 begin
     URL:=trim(Form_main.ComboBox_URL.Text);
     s1:=copy(URL,8,length(URL)-7);
     if (pos('http://',URL)=1) and (pos('/',s1)>1)  then
        begin
          aa:=copy(URL,8,length(URL)-7);
          ss:=copy(aa,1,pos('/',aa));
          URL:='http://'+ss;
        end
         else if (pos('http://',URL)=1) and (pos('/',s1)<1) then
           begin
             URL:=URL+'/' ;
           end
             else if (pos('http://',URL)<1)and (pos('/',s1)>1) then
                begin
                  ss:=copy(URL,1,pos('/',URL));
                  URL:='http://'+ss;
                  end
                else if (pos('http://',URL)<1)and (pos('/',s1)<1) then
                  begin
                     URL:=URL+'/';
                   end;

     AssignFile(phpdict,'phpdict.txt');
     Reset(phpdict);
    try
        while not Eof(phpdict) do

          begin
          if main_unit.stop_php then
            exit;

             Readln(phpdict,Str);
          if  define_Unit.GetURLCode(trim(URL+Str))=200  then
              begin
               Form_main.ListBox1_php.Items.Add(trim(URL+Str));
               end;
               end;
      finally
             CloseFile(phpdict);
      end;//end of try
      form_main.ListBox1_php.Items.Add('扫描结束');
end;
end.