ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
Накрутка счётчика через Delphi |

04.03.2009, 14:57
|
|
Новичок
Регистрация: 25.07.2008
Сообщений: 5
Провел на форуме: 2952
Репутация:
-1
|
|
Накрутка счётчика через Delphi
Всех приветствую.
Возникла такая идя но вот с реализацией пока что то туговато( В общем нужна программка которая через каждые 15 сек меня прокси и заходила уже с новым прокси на необходимый сайт. Желательно реализовать это на Delphi но мона и на C++ и С#. Жду предложений)
|
|
|

04.03.2009, 17:11
|
|
Участник форума
Регистрация: 01.09.2007
Сообщений: 203
Провел на форуме: 812964
Репутация:
302
|
|
topgen тебе чем не подходит?
|
|
|

04.03.2009, 17:46
|
|
Участник форума
Регистрация: 19.05.2007
Сообщений: 281
Провел на форуме: 2823587
Репутация:
106
|
|
Так бы и сказал напишите за меня программу которая счетчик накручивает.
По сбажу
Работа с проксей
SOCKET socks5(char *socks, int sockport, char *server, int srvport)
{
struct hostent *Ip = gethostbyname(socks);
if(Ip == NULL)
return 0;
sockaddr_in sa;
sa.sin_family = AF_INET;
sa.sin_port = htons(sockport);
sa.sin_addr.s_addr = inet_addr(inet_ntoa(*((struct in_addr *)Ip->h_addr)));
char pack[12];
SOCKET s = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
int tmo = 3000;
setsockopt(s,SOL_SOCKET,SO_RCVTIMEO,(const char*)&tmo,sizeof(tmo));
if(s == SOCKET_ERROR)
return SOCKET_ERROR;
if(connect(s, (SOCKADDR *)&sa, sizeof(sa)) == SOCKET_ERROR)
return SOCKET_ERROR;
if(send(s, pack, 3, 0) == SOCKET_ERROR)
return SOCKET_ERROR;
int i = recv(s, pack, 2, 0);
if(i == 0 || i == SOCKET_ERROR)
return SOCKET_ERROR;
if(pack[0] != 0x05 || pack[1] == 0xFF)
return 0;
pack[0] = 0x05;
pack[1] = 0x01;
pack[2] = 0x00;
pack[3] = 0x01;
Ip = gethostbyname(server);
if(Ip == NULL)
return 0;
char ip[16];
strcpy(ip, inet_ntoa(*((struct in_addr *)Ip->h_addr)));
int j = strlen(ip), k=4;
char *p = ip;
for(i = 0; i<j; i++)
if(ip[i] == '.')
{
ip[i] = 0;
pack[k] = atoi(p);
k++;
p = ip+i+1;
}
pack[k] = atoi(p);
pack[8] = srvport/256;
pack[9] = srvport%256;
if(send(s, pack, 10, 0) == SOCKET_ERROR)
return SOCKET_ERROR;
i = recv(s, pack, 10, 0);
if(i == 0 || i == SOCKET_ERROR)
return SOCKET_ERROR;
if(pack[0] == 0x05 && pack[1] == 0x00)
return s;
closesocket(s);
return 0;
}
с HTTP ничего мудрить не надо.
Чек и проверка типа прокси
http://forum.devisible.ru/showthread.php?t=270
Береш снифер заходиш на ту страницу которую ты накручивать собрался, потом дублируеш отснифанный запрос в цикле, меняя прокси.
В делфи все так же.
|
|
|

04.03.2009, 23:30
|
|
Познавший АНТИЧАТ
Регистрация: 27.08.2007
Сообщений: 1,107
Провел на форуме: 5386281
Репутация:
1177
|
|
Я не понимаю тебя... Если пауза на 15 секунд, то чем тебя PHP не устраивает?
|
|
|

05.03.2009, 22:07
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме: 4037638
Репутация:
1821
|
|
Сообщение от Tigger
Я не понимаю тебя... Если пауза на 15 секунд, то чем тебя PHP не устраивает?
везде толкаем PHP??? разделом ошиблись молодой человек =/
Тему удалю, если не увижу твои же старания, примеры реализаций и т.д., это не раздел советов... вам на ксакеп:-D
|
|
|

06.03.2009, 18:57
|
|
Участник форума
Регистрация: 20.04.2007
Сообщений: 174
Провел на форуме: 2310282
Репутация:
149
|
|
Моя заготовка.
Реализация с использованием idHTTP.
http://rapidshare.com/files/206048721/code.zip.html
|
|
|

14.03.2009, 02:53
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме: 246020
Репутация:
105
|
|
кто может на сокетах сделать норм пример для делф?
|
|
|
|
 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|