ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
21.09.2009, 20:27
|
|
Познающий
Регистрация: 18.11.2008
Сообщений: 95
Провел на форуме:
270938
Репутация:
0
|
|
Сообщение от Nullsleep
Memo1.Lines.Insert(5, 'stroka');
5 - индекс строки
спасибо!
|
|
|
22.09.2009, 14:06
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284
Репутация:
54
|
|
alexey-m, попробуй этот код, но я не уверен, что поможет (это почти тоже самое, что и у тебя)
Код:
var
whole: file;
buf: array[1..8192] of Byte;
begin
AssignFile(whole, whole_name);
FileMode := 0; //только чтение
Reset(whole, 1);
BlockRead(whole, buf, 8192);
CloseFile(whole);
end;
|
|
|
|
22.09.2009, 17:21
|
|
Постоянный
Регистрация: 17.09.2008
Сообщений: 562
Провел на форуме:
6962560
Репутация:
536
|
|
Здравствуйте, господа.. НЕбольшой вопрос.. Пытаюсь авторизоваться на mail.ru так:
Код:
var
tst : TStringList;
ex: string;
begin
tst := TStringList.Create;
tst.Add('Login=логин');
tst.Add('Domain=домен');
tst.Add('Password=пароль');
ex := Form1.IdHTTP1.post('http://win.mail.ru/cgi-bin/auth',tst);
end;
Так вот какое дело, если логин с паролем валидные выдаёт ошибку
Если не валид - то в ex страница авторизации (что логично)
Как решить эту проблему через indy (другие варианты пока не рассматриваются)..?!
Да, и если я прямо откровенно туплю, не судите строго... Только начал с Делфи разбираться.. 
ПС: В пхп смотрел, сразу после запроса выдаёт что-то вроде:
Код HTML:
<HTML>http://win.mail.ru/cgi-bin/checkcookie?id=02727a43776c7a54190502190a1d00041c05020b4966535c465d050306020816020304165a4a54405445461658505d5b174345</HTML>
|
|
|
|
22.09.2009, 20:56
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
Сообщение от Fepsis
Так вот какое дело, если логин с паролем валидные выдаёт ошибку
Если не валид - то в ex страница авторизации (что логично) HandleRedirects объяви true
|
|
|
|
22.09.2009, 21:45
|
|
Постоянный
Регистрация: 17.09.2008
Сообщений: 562
Провел на форуме:
6962560
Репутация:
536
|
|
Сообщение от ZdezBilYa
HandleRedirects объяви true
Оба..)) Спасибо..!!! А заголовки как получить, ну чтобы там куки спарсить и т.д. Или куки теперь в IdHTTP1 хранятся..?! Но всё равно, где заголовки..!? 
|
|
|
|
22.09.2009, 22:05
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
Сообщение от Fepsis
Оба..)) Спасибо..!!! А заголовки как получить, ну чтобы там куки спарсить и т.д. Или куки теперь в IdHTTP1 хранятся..?! Но всё равно, где заголовки..!? заголовки вроде так: idHttp.Response.RawHeaders.GetText;
Сохраненные в CookieManager кукисы можно посмотреть так:
for i := 0 to Http.CookieManager.CookieCollection.Count - 1 do
StrPage := StrPage + CookieManager.CookieCollection.Items[i].CookieText + #13#10;
|
|
|
|
22.09.2009, 18:05
|
|
Новичок
Регистрация: 24.04.2008
Сообщений: 13
Провел на форуме:
194929
Репутация:
0
|
|
хочу зделать чекер аков.
Вообшем ситема такая авторизация, смотрим код страницы, через рег.выражение ищем ссылку, и если она <> 1 или 0, то пишем мыло;пасс в файл и дальше....
так вот:
Код:
procedure TForm1.Button2Click(Sender: TObject);
var Count: Integer;
RegExp: TRegExpr;
Str1, Str2,ss,s: String;
P, i,j,z:integer;
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin Z:=StrToInt(edit3.Text);
i:=0;
While i<= Memo1.Lines.Count do
begin if I<=Memo1.Lines.Count then
begin RegExp := TRegExpr.Create;
RegExp.Expression := '[_a-zA-Z\d\-\.]+@([_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+)';
if RegExp.Exec(Memo1.lines[i]) then
begin
edit1.Text:= RegExp.Match[0];
RegExp.Expression := ':([^\s]+)';
if RegExp.Exec(Memo1.lines[i]) then
begin
ss:=RegExp.Match[0];
Delete(ss, 1, 1);
end;
edit2.Text:=ss;
s:='http://vkontakte.ru/login.php?email='+edit1.text+'&pass='+edit2.text+'&HTTP/1.0';
WebBrowser1.Navigate(s);
Sleep(Z);
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
Memo3.Text :=(HTMLDocument.all.Item(1, 0) as IHTMLElement).OuterHTML;
end;
I:=i+1;
end;
end;
end;
авторизовуюсь, а код страницы немогу открыть.
если
Код:
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
Memo3.Text := (HTMLDocument.all.Item(1, 0) as IHTMLElement).OuterHTML;
зделать в отдельную процедуру то робит.
что я зделал не так?
Последний раз редактировалось Mykola-bas; 22.09.2009 в 18:16..
|
|
|
|
22.09.2009, 18:54
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Есть директория C:\lol\
В ней лежит всего один .exe файл с неизвестным именем.
Как мне его можно запустить не зная названия? приведите пример плз, а не теорию.
|
|
|
|
22.09.2009, 19:01
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284
Репутация:
54
|
|
Код:
var
SR: TSearchRec;
FindResult: Integer;
s: string;
begin
FindResult := FindFirst('C:\lol\*.exe', faAnyFile, SR);
if FindResult = 0 then
begin
s := SR.Name;
WinExec(PChar(s), SW_SHOW);
end;
end;
Последний раз редактировалось Nullsleep; 22.09.2009 в 19:07..
|
|
|
|
22.09.2009, 19:25
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
Сообщение от Nullsleep
Код:
var
SR: TSearchRec;
FindResult: Integer;
s: string;
begin
FindResult := FindFirst('C:\lol\*.exe', faAnyFile, SR);
if FindResult = 0 then
begin
s := SR.Name;
WinExec(PChar(s), SW_SHOW);
end;
end;
Тогда вот так
Код:
Код:
var
SR: TSearchRec;
FindResult: Integer;
s: string;
begin
FindResult := FindFirst('C:\lol\*.exe', faAnyFile, SR);
if FindResult = 0 then
begin
s := SR.Name;
WinExec(PChar('C:\lol\'+s), SW_SHOW);
end;
end;
Так как если не указывать полный путь до файла то он не выполнится (если же он не в windows/system32)
А SR.Name возвращает токо имя файла
Последний раз редактировалось wolmer; 22.09.2009 в 19:39..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид