Дайте пожалуйсто авторизацыю

[voodooboodoo]

дайте пожалуйсто инструкцыю или хотябы код буду благодарен очень
для тех кто играет в тюрягу дам способ воровать нычки
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] StdCtrls, StrUtils, IdMessage, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, jpeg,
ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: Integer;
[Ссылки могут видеть только зарегистрированные и активированные пользователи] TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
begin
http := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
// Москировка под оперу :)
[Ссылки могут видеть только зарегистрированные и активированные пользователи] :=
'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.62 Version/11.01';
// Отлавливаем редирект. ВАЖНО!!! Иначе не установятся куки
try
// Отправляем Логин и Пароль
s := [Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]' + Edit1.Text +
'&pass=' + Edit2.Text);
except
// Если редирект - Редиректим
if [Ссылки могут видеть только зарегистрированные и активированные пользователи] = 302 then
s := [Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]' + [Ссылки могут видеть только зарегистрированные и активированные пользователи]);
end;
// Авторизация пройдена
// Для проверки загрузим последние Личные Сообщения
s := [Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
i := 1;
while PosEx('new messageBody', s, i) <> 0 do
begin
i := PosEx('new messageBody', s, i) + 17;
ListBox1.Items.Add(Copy(s, i, PosEx('"', s, i) - i));
end;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
end;
end.

найдите ошыбку

[Mebius]

попробуй редирект не руками делать, а поставить галку HandleRedirect в св-вах idHTTP

[Fliva59]

Вот тебе код для получения инфы:



function parse(str, str2, ob: string): string;
var
res, s1, s2: string;
begin
s1 := Copy(ob, pos(str, ob) + length(str), length(ob));
s2 := Copy(s1, 1, pos(str2, s1) - 1);
result := s2;
end;


procedure TForm1.Button3Click(Sender: TObject);
var
p,i:Tstrings;
rating,diamond,money,sugar,toilet_paper,basePopula rity,already_spin,energy,name:string;

begin
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.13)';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи]'application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]';

p:=Tstringlist.Create;
i:=Tstringlist.Create;

try
i.Add('method=getInfo');
i.Add('key=******');
i.Add('user=********');
i.Text:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', i);
memo3.Lines.Add(i.Text);

rating := parse('<rating>', '</rating>', Memo3.Text); //авторитет
energy := parse('<energy>', '</energy>', Memo3.Text); //энергия
money := parse('<money>', '</money>', Memo3.Text); //сигареты
sugar := parse('<sugar>', '</sugar>', Memo3.Text); // сахар
diamond := parse('<diamond>', '</diamond>', Memo3.Text); // рубли
toilet_paper := parse('<toilet_paper>', '</toilet_paper>', Memo3.Text); //туалетка
basePopularity := parse('<basePopularity>', '</basePopularity>', Memo3.Text); //ели честно не помню
already_spin := parse('<basePopularity>', '</basePopularity>', Memo3.Text); //бицуха
name := parse('<name>', '</name>', Memo3.Text);//кликуха

GroupBox3.Caption:=UTF8Decode(synacode.DecodeURL(n ame));
Label3.Caption:=rating;
Label8.Caption:=energy;
Label15.Caption:=basePopularity;
Label9.Caption:=money;
Label10.Caption:=diamond;
Label11.Caption:=toilet_paper;
Label13.Caption:=sugar;
Label17.Caption:=already_spin;
memo1.Lines.Add('Статистика обновлена');
finally
p.Free;
memo3.Clear;
end;
end;

[Fliva59]

function parse(str, str2, ob: string): string;
var
res, s1, s2: string;
begin
s1 := Copy(ob, pos(str, ob) + length(str), length(ob));
s2 := Copy(s1, 1, pos(str2, s1) - 1);
result := s2;
end;


var
s, bufText, bufText2 : string;
i: Integer;
begin
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]
// Москировка под оперу :)
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] :=
'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.62 Version/11.01';
// Отлавливаем редирект. ВАЖНО!!! Иначе не установятся куки
try
// Отправляем Логин и Пароль
s := Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]' + Edit1.Text +
'&pass=' + Edit2.Text);
except
// Если редирект - Редиректим
if Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] = 302 then
s := Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]' + Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]);
end;
// Авторизация пройдена

// Для проверки загрузим последние auth_key и id тюряги
memo1.Lines.Text:= Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
bufText := parse('"auth_key":"', '",', Memo1.Text);
bufText2 := parse('"id":', ',"', Memo1.Text);
Memo1.Clear;
Edit3.Text:=bufText2+ ':' +bufText;



Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]
Timer1.Enabled:=false;
end;


Вот норм код