ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
27.04.2010, 09:40
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
http://pastebay.com/95742 пример сервера
Там где комменты можешь перекодировать обратно на русский тут: http://www.artlebedev.ru/tools/decoder/
Но как сделать чтоб она не зацикливалась? мб sleep() поможет?
Если только в отдельном потоке, ил ив консольном приложении, в противном случае будет виснуть интефейс
Последний раз редактировалось GhostOnline; 27.04.2010 в 09:43..
|
|
|
27.04.2010, 09:46
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
А как в потоке замутить? Знаю что поток TThread.
Создаю его c CreateSuspend:=True;
Но как поместить в него цикл?
мб вот так?
Thread.Resume;
while buffer='' do
recv()
Thread.Terminate; ???
|
|
|
|
27.04.2010, 09:51
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Имхо тебе не стоит в данном случае заморачиваться пока с потоками, потому что проблема скорее всего в неправильной реализации работы клиента или сервера
Вообще, когда создаешь Thread Object в дельфи то создается заготовка, код потока вставляешь в тело процедуры Execute.
А использовать так:
var
thread : TmyThread;
begin
thread := TMyThread.Create(false);
end;
Последний раз редактировалось GhostOnline; 27.04.2010 в 09:54..
|
|
|
|
27.04.2010, 11:03
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Спасибо, вроде разобрался.. Попытаюсь всё таки на GUI реализовать...
|
|
|
|
27.04.2010, 13:16
|
|
Познающий
Регистрация: 15.12.2009
Сообщений: 81
Провел на форуме:
393444
Репутация:
24
|
|
Сообщение от iGlass
А как в потоке замутить? Знаю что поток TThread.
Создаю его c CreateSuspend:=True;
Но как поместить в него цикл?
мб вот так?
Thread.Resume;
while buffer='' do
recv()
Thread.Terminate; ???
Вот очень хорошая статья по потокам, сам с нее начинал:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1370
|
|
|
|
27.04.2010, 16:37
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Подскажите))
Дельфи
Есть ссылка http://login.vk.com/?act=login&email=мыло&pass=пасс&expire=&vk =
как сделать что бы при нажатии на кнопку из memo бралась строчка ololo.mail.ru  assword разделялась и подставлялась в ссылку. На местро мыло нужно что бы вставало ololo.mail.ru на место пасс password.
Спасибо. |
|
|
|
27.04.2010, 16:45
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
Сообщение от stepashka_
Подскажите))
Дельфи
Есть ссылка http://login.vk.com/?act=login&email=мыло&pass=пасс&expire=&vk =
как сделать что бы при нажатии на кнопку из memo бралась строчка ololo.mail.ru assword разделялась и подставлялась в ссылку. На местро мыло нужно что бы вставало ololo.mail.ru на место пасс password.
Спасибо. var
log,pass: string;
begin
log:=copy(memo1.lines[0],1,pos(':',memo1.lines[0])-1);
pass:=copy(memo1.lines[0],pos(':',memo1.lines[0])+1,20);
http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk=
|
|
|
|
27.04.2010, 16:47
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Писал прям тут, но вроде должно работать...
PHP код:
var
s,pass,mail:string;
i:integer;
begin
i:=pos(':',memo.lines[1]);
mail:=copy(memo.lines[1],1,i-1);
pass:=Copy(memo.Lines[1],i+1,length(memo.lines[1]);
s:='http://login.vk.com/?act=login&email='+mail+'&pass='+pass+'&expire=&vk=';
end;
|
|
|
|
27.04.2010, 17:24
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Дельфи
есть код
procedure TForm1.Button3Click(Sender: TObject);
var
uns, s,log,pass: String;
begin
idhttp1.HandleRedirects := True;
log:=copy(memo1.lines[0],1,pos(':',memo1.lines[0])-1);
pass:=copy(memo1.lines[0],pos(':',memo1.lines[0])+1,20);
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk= ');
s:=Copy(uns,Pos('value=',uns)+7,56);
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s) ;
uns := idhttp1.Get('http://vk.com/');
if Pos('http://vk.com/profile.php', uns) <> 0 then
ShowMessage('ne ok')
else
begin
ShowMessage('ok');
memo2.Lines.Add(uns);
Как сделать что бы после успешной авторизации, мыло:пасс выводилось в мемо2 а если авторизация не прошла выводилось в мемо3. |
|
|
|
27.04.2010, 17:30
|
|
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
Провел на форуме:
6075534
Репутация:
2731
|
|
А что сложного то? Вместо ShowMessage делай что-то вроде этого:
Код:
memo1.lines.add(log + ';' + pass);
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
