Запросы на написание программ - Страница 22 - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Все инфопродукты и приватная информация бесплатно
Старый 20.06.2012, 18:54   #190 (permalink)
VPN
Статус: Работяга
 
Аватар для Gdasarhik
 
Регистрация: 08.12.2011
Сообщений: 295
Member ID: 21855

Репутация: 359
Репутация: 359
Сказал(а) спасибо: 164
Поблагодарили 125 раз(а) в 90 сообщениях
По умолчанию Re: Запросы на написание программ

Привет ребят.
Подскажите пожалуйста алгоритм вычисления принадлежности ip-адреса к определенному диапазону. Опишите словами или дайте какой-нибудь код на Delphi.
Благодарю за внимание.
Gdasarhik вне форума   Ответить с цитированием
Старый 20.06.2012, 20:05   #191 (permalink)
SOCKS4
 
Регистрация: 27.09.2011
Сообщений: 164
Member ID: 19312

Репутация: 119
Репутация: 119
Сказал(а) спасибо: 42
Поблагодарили 41 раз(а) в 34 сообщениях
По умолчанию Re: Запросы на написание программ

Gdasarhik, посмотри здесь
Преобразуешь IP-адрес и границы диапазонов в числа и сравниваешь.
madvet вне форума   Ответить с цитированием
Старый 20.06.2012, 22:16   #192 (permalink)
VPN
Статус: Работяга
 
Аватар для Gdasarhik
 
Регистрация: 08.12.2011
Сообщений: 295
Member ID: 21855

Репутация: 359
Репутация: 359
Сказал(а) спасибо: 164
Поблагодарили 125 раз(а) в 90 сообщениях
По умолчанию Re: Запросы на написание программ

Если честно,то я так и делал. Но я хотел узнать,может какой-нибудь другой способ есть,более эффективный.

Но когда я так делал вылазивала такая ошибка:



Подскажите в чём может быть загвоздка...

Последний раз редактировалось Gdasarhik; 20.06.2012 в 22:49.
Gdasarhik вне форума   Ответить с цитированием
Старый 20.06.2012, 23:50   #193 (permalink)
HTTP
 
Аватар для BAJIEPA
 
Регистрация: 06.04.2012
Сообщений: 24
Member ID: 26227
ICQ 7827587

Репутация: 15
Репутация: 15
Сказал(а) спасибо: 4
Поблагодарили 5 раз(а) в 4 сообщениях
По умолчанию Re: Запросы на написание программ

Здравствуйте.Можете написать ,пожалуйста,программу для чека уинов(icq) на наличие емейла в профиле
BAJIEPA вне форума   Ответить с цитированием
Старый 21.06.2012, 00:24   #194 (permalink)
Programming
 
Аватар для Krebs
 
Регистрация: 09.06.2010
Адрес: Ыть
Сообщений: 398
Member ID: 8063

Репутация: 885
Репутация: 885
Сказал(а) спасибо: 1,604
Поблагодарили 465 раз(а) в 260 сообщениях
По умолчанию Re: Запросы на написание программ

BAJIEPA бесплатно никто не будет! Если есть желание заплатить, welcom в ЛС!
__________________
База наш дом!
Krebs вне форума   Ответить с цитированием
Старый 21.06.2012, 10:05   #195 (permalink)
SOCKS4
 
Регистрация: 27.09.2011
Сообщений: 164
Member ID: 19312

Репутация: 119
Репутация: 119
Сказал(а) спасибо: 42
Поблагодарили 41 раз(а) в 34 сообщениях
По умолчанию Re: Запросы на написание программ

Цитата:
Сообщение от Gdasarhik Посмотреть сообщение
Подскажите в чём может быть загвоздка...
У тебя же в ошибке все написано.

Добавлено через 3 минуты 34 секунды

PHP код:
function IPToUInt(IPstring): cardinal;
var
 
pbPByte;
 
ininteger;
 
bbyte;
begin
 IP 
:= IP '.';
 
pb := @Result;
 
Inc(pbSizeOf(Result) - 1);

 for 
:= 1 to SizeOf(Result) do
  
begin
   n 
:= Pos('.'IP);
   
:= StrToInt(Copy(IP11));

   
pb^ := b;
   
Dec(pb);
   
Delete(IP1n);
  
end;
end;

function 
IPInRange(const IPMinIPMaxIPstring): boolean;
var
 
AddrMinAddrMaxAddrcardinal;
begin
 Addr 
:= IPToUInt(IP);
 
MinAddr := IPToUInt(MinIP);
 
MaxAddr := IPToUInt(MaxIP);

 
Result := (MinAddr <= Addr) and (Addr <= MaxAddr);
end
madvet вне форума   Ответить с цитированием
Старый 21.06.2012, 11:47   #196 (permalink)
VPN
Статус: Работяга
 
Аватар для Gdasarhik
 
Регистрация: 08.12.2011
Сообщений: 295
Member ID: 21855

Репутация: 359
Репутация: 359
Сказал(а) спасибо: 164
Поблагодарили 125 раз(а) в 90 сообщениях
По умолчанию Re: Запросы на написание программ

Маленькая проблемка!
PHP код:
c:=StrToInt('00'+Inttostr(c)); 
Прога не хочет выводить ,например,вот такое число 001,она выводит лишь 1(не значимые нули она не выводит,но мне они нужны). Как это исправить?

madvet спасибо конечно,но я уже все сам исправил...
Gdasarhik вне форума   Ответить с цитированием
Старый 03.07.2012, 14:55   #197 (permalink)
VPN
Статус: Работяга
 
Аватар для Gdasarhik
 
Регистрация: 08.12.2011
Сообщений: 295
Member ID: 21855

Репутация: 359
Репутация: 359
Сказал(а) спасибо: 164
Поблагодарили 125 раз(а) в 90 сообщениях
По умолчанию Re: Запросы на написание программ

Маленькая проблемка у меня

Код HTML:
procedure TForm1.Button1Click(Sender: TObject);
var HTTP:THTTPSend;intPos,i:Integer;stlAnswer1,stlAnswer2: TStringList;
strId,kod2:String;
begin
  try
      HTTP:=THTTPSend.Create;
      stlAnswer2:=TStringList.Create;
      stlAnswer2.LoadFromFile(ExtractFilePath(Application.ExeName)+'/COOKIES.txt');
      HTTP.Cookies.Text:=stlAnswer2.Text;
      stlAnswer2.Clear;
      http.MimeType:='application/x-www-form-urlencoded';
      http.UserAgent := 'Opera/9.80 (Windows NT 6.1; WOW64; U; Edition Yx; ru) Presto/2.10.229 Version/11.64';
      http.Headers.Insert(0,'Referer: http:/site.ru');
     if HTTP.HTTPMethod('GET','http:/site.ru') then
      begin
       stlAnswer1:=TStringList.Create;
       stlAnswer1.LoadFromStream(HTTP.Document);
       intPos:=0;
       intPos:=Pos('</div></div></a></div></div></div><div class="card_add"><div><a class="o" href="', stlAnswer1.Text) + Length('</div></div></a></div></div></div><div class="card_add"><div><a class="o" href="');
       strId:= '';
       i:=0;
        while (stlAnswer1.Text[intPos + i] <> '?') do
          begin
           strId := strId + stlAnswer1.Text[intPos + i];
           Inc(i);
          end;
      HTTP.Free;
      lbl2.Caption:=strId;
      end;
     except
     end;
end;
Почему-то вылазиет ошибка,но я никак не пойму из-за чего.



Подскажите в чём ошибка.

Последний раз редактировалось Gdasarhik; 10.07.2012 в 19:25.
Gdasarhik вне форума   Ответить с цитированием
Старый 03.07.2012, 17:07   #198 (permalink)
SOCKS4
 
Регистрация: 27.09.2011
Сообщений: 164
Member ID: 19312

Репутация: 119
Репутация: 119
Сказал(а) спасибо: 42
Поблагодарили 41 раз(а) в 34 сообщениях
По умолчанию Re: Запросы на написание программ

Цитата:
Сообщение от Gdasarhik Посмотреть сообщение
Почему-то вылазиет ошибка,но я никак не пойму из-за чего.
Что ж тут непонятного - обращаешься к символу строки по неправильному индексу.
Добавь проверку, чтоб индекс не был больше длины строки.
madvet вне форума   Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Карта программ и информации. Smarthuman Информация об ICQ 1 07.03.2010 16:13
Пакет программ "Спамер 2009 плюс SsIDit E-mail 1 18.02.2010 19:23




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.