Форум АНТИЧАТ - Авторизация в контакте[DELPHI]

Авторизация в контакте[DELPHI]

09.08.2009, 00:08

Ant1Player

Познающий

Регистрация: 21.11.2008

Сообщений: 36

Провел на форуме:
117394

Репутация: 6

Авторизация в контакте[DELPHI]

Кому не трудно помогите начинающему програмисту

выложить тут исходник с этим кодом
P.S. Поступил на первый курс в техникум

сайт не брошу

PHP код:


		
			
procedure Brute();

var

  emails:TStingList;  

  pass:TStingList;   

  post:TStingList;  

  i,j:integer;         

begin

 email:=TStringList.Create; pass:=TStringList.Create;



  http:=TidHTTP.Create(nil);      

  http.HandleRedirects:=true;   

  post:=tstringlist.Create;  

  for i:=0 to emails.Count-1 do begin  

    post.Clear; 

    post.Add('email='+emails.Strings[i]);  

    for j:=0 to pass.Count-1 do begin        

      post.Add('pass='+pass.Strings[j]);     

      result:=http.Post('/',post); 

      if pos('',result)>;0 then 

else

       

     

    end;

  end;

 

 

  emails.Free;

  pass.Free;

  http.Free;

  post.Free;

end;

прост меня интересует код с then и else можно и на сокетах выложить...
P.S.S. не над ругаться типо тема уже была с авторизацией. меня интересует именно с then и else
(что делать если пасс пральны и что если не правильный)

Последний раз редактировалось Ant1Player; 09.08.2009 в 00:21..