ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
20.05.2010, 16:16
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
iGlass, я так понял ты хочешь спарсить капчу. вот пример:
http://www.webdelphi.ru/2009/10/dva-sposoba-zagruzki-captcha-dlya-poluavtomaticheskix-registracij/
|
|
|
20.05.2010, 22:04
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Сообщение от Vlad&slav
Это я умею, мне нужно в точности до наоборот.
В РОЛИ КЛИЕНТА ВЫСТУПВЕТ СКРИПТ, скрипт зная ип компа делает запрос на него через сокеты а комп принимает и выполняет действие
Web Server? Вот статья на WinApi.
Тык
|
|
|
|
20.05.2010, 22:08
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Сообщение от iGlass
Доброго времени суток :-) Помогите)
Код:
sid:= cgi.Strings[135];
Delete(sid,1,28);
sid становится такой src="img2img.cgi?img=ba2eb0f65e4f6436b48795169ae403d5" /> <i>→</i>'
Вопрос: Как выдрать текст "ba2eb0f65e4f6436b48795169ae403d5"
Длина текста может быть разной. Будьте добры кусочек кода.
P.S пробовал так: sid:=Copy(sid,Pos(sid,'"'),Pos(sid,'"'); Не выходит...
PHP код:
function ParserBlock(var Page:string; const Param1,Param2:string):string;
var
BeginPos,
EndPos:integer;
TempPage:string;
begin
BeginPos:=AnsiPos(Param1,Page)+length(Param1);
delete(Page,1,beginPos-1);
BeginPos:=AnsiPos(Param1,Page)+length(Param1);
EndPos:=AnsiPos(Param2,Page);
Result:=copy(page,1,EndPos-1);
end;
В Text будет твой номер.
PHP код:
text:=ParserBlock(sid,'img=','" />');
|
|
|
|
21.05.2010, 00:12
|
|
Новичок
Регистрация: 05.11.2008
Сообщений: 11
Провел на форуме:
93930
Репутация:
0
|
|
Подскажите как заблокировать определенную клавишу, например мне нужно что бы не работала клавиша ALT ?
|
|
|
|
22.05.2010, 11:52
|
|
Познающий
Регистрация: 09.11.2009
Сообщений: 32
Провел на форуме:
79679
Репутация:
3
|
|
Есть такой вопрос. Хочу написать консольное приложение, которое будет соединятся с удаленным компьютером. Возможно ли такое на паскале ?
|
|
|
|
22.05.2010, 13:24
|
|
Познающий
Регистрация: 20.01.2010
Сообщений: 43
Провел на форуме:
41357
Репутация:
6
|
|
Разве что через WinAPI. ДА и зачем так извращаться?
|
|
|
|
22.05.2010, 13:25
|
|
Познающий
Регистрация: 20.01.2010
Сообщений: 43
Провел на форуме:
41357
Репутация:
6
|
|
Сообщение от niva622
Подскажите как заблокировать определенную клавишу, например мне нужно что бы не работала клавиша ALT ?
Событие onKeyPress:
if key="код клавиши alt" then
key := #0;
|
|
|
|
22.05.2010, 13:56
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 Deani на обычном паскале нельзя. Тока на 32 битном можно.
Досовские и 16 битные под Win не подходят.
|
|
|
|
22.05.2010, 16:42
|
|
Познающий
Регистрация: 08.12.2007
Сообщений: 92
Провел на форуме:
1216941
Репутация:
35
|
|
Код HTML:
procedure TForm1.Button1Click(Sender: TObject);
var
HTML: string;
Money: string;
R: TRegExpr;
begin
HTML:=IdHTTP1.Get('http://www.сайтец.ыы');
memo1.Text:=html;
R:= TRegExpr.Create;
try
R.Expression := '^(?im).*?</td><td title="(.*?)" class="wrap".*$';
if R.Exec(HTML) then
begin
repeat
Money:= Money + R.Match[1] + #13#10;
until not R.ExecNext;
memo2.Text:=Money;
end;
finally
R.Free;
end;
end;
выводит только 1вое найденное значение, остальные нет, в чем проблема?( |
|
|
|
22.05.2010, 17:45
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
DiSi выглядит все правильно. Регулярка точно подходит под остальные выражения?
А хотя, вообще то надо так:
memo1.Lines.Text := Money;
а не так:
memo1.Text := Money;
Последний раз редактировалось GhostOnline; 22.05.2010 в 17:48..
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
