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



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

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Все инфопродукты и приватная информация бесплатно
Старый 05.01.2011, 15:00   #1 (permalink)
HARDCORE*SPEEDCORE*TERROR*RAVE
 
Аватар для dnbnb
 
Регистрация: 15.08.2010
Адрес: the Earth
Сообщений: 358
Member ID: 8874
ICQ 550012

Репутация: 561
Репутация: 561
Сказал(а) спасибо: 116
Поблагодарили 503 раз(а) в 246 сообщениях
Топикстартер (автор темы) Стрелка url checker

Посмотрел на создание кекса и решил выложить свою прожку, написана на паскале парсер url листов. Задаёшь список где есть какие нить url всякий мусор дубли итд. Переименовать список в new.txt новый будет сохранён в forumlist. Кто нить протестьте как вам это. В данной проге url-ом считается строчка вида http://...


Url Parser

Последний раз редактировалось dnbnb; 05.01.2011 в 15:27.
dnbnb вне форума   Ответить с цитированием
7 пользователя(ей) сказали cпасибо:
Старый 05.01.2011, 15:15   #2 (permalink)
SOCKS5
 
Аватар для Radzhab
 
Регистрация: 16.08.2009
Сообщений: 214
Member ID: 2173
ICQ 29755555

Репутация: 281
Репутация: 281
Сказал(а) спасибо: 153
Поблагодарили 249 раз(а) в 145 сообщениях
По умолчанию Re: url checker

dnbnb, может Url Parser все таки назовешь
Radzhab вне форума   Ответить с цитированием
3 пользователя(ей) сказали cпасибо:
Старый 05.01.2011, 18:25   #3 (permalink)
SOCKS5
 
Аватар для NekitoSP
 
Регистрация: 28.05.2009
Сообщений: 204
Member ID: 352

Репутация: 353
Репутация: 353
Сказал(а) спасибо: 317
Поблагодарили 343 раз(а) в 152 сообщениях
По умолчанию Re: url checker

а как насчет выкладывать такие мелочи с исходниками в разделе программирование ?) я уверен, многие, начавшие свой путь программинга, очень будут рады этому =)
NekitoSP вне форума   Ответить с цитированием
3 пользователя(ей) сказали cпасибо:
Старый 05.01.2011, 18:45   #4 (permalink)
HARDCORE*SPEEDCORE*TERROR*RAVE
 
Аватар для dnbnb
 
Регистрация: 15.08.2010
Адрес: the Earth
Сообщений: 358
Member ID: 8874
ICQ 550012

Репутация: 561
Репутация: 561
Сказал(а) спасибо: 116
Поблагодарили 503 раз(а) в 246 сообщениях
Топикстартер (автор темы) Стрелка Re: url checker

NekitoSP, дай тему куда кидать такую мелочь на будующее а исходник вот если кому надо
PHP код:
program urls

var 
   
t4,t1,t2,t3text
   
b,sstring
   
p:integer

begin 
  writeln 
('-------------------------------www.proxy-base.org-------------------------------');
  
assign (t1'new.txt');
  
assign (t2'forumlist.txt'); 
  
assign (t3'newq.txt'); 
  
assign (t4'neww.txt'); 
  
reset (t1); 
  
rewrite (t2); 
  
rewrite (t3); 
  
rewrite (t4); 
  while 
not eof(t1) do 
    
begin 
      readln 
(t1,s); 
      if 
s<>'' then 
        writeln 
(t3,s); 
    
end
  
close (t3); 
  
reset (t3); 
  
readln (t3,s); 
  
writeln (t4,s); 
  
close (t3); 
  
reset (t3); 
  
repeat 
    close 
(t4); 
    
reset (t4); 
    
p:=0
    
readln (t3,s); 
    
repeat 
      readln 
(t4,b); 
      if 
s=b then 
        p
:=p+1
    
until eof (t4); 
    if 
p=0 then 
  begin 
        close 
(t1);
        
close (t4);
        
reset (t4); 
        
rewrite (t1); 
        while 
not eof (t4) do 
          
begin 
            readln 
(t4,b); 
            
writeln (t1,b); 
          
end
        
writeln (t1,s); 
        
close (t1); 
        
reset (t1); 
        
close (t4); 
        
rewrite (t4); 
        while 
not eof (t1) do 
          
begin 
            readln 
(t1,s); 
            
writeln (t4,s); 
          
end
        
end;
  
   
until eof (t3); 
  
  
  
reset (t1);
  while 
not eof(t1) do 
    
begin 
      readln 
(t1,s); 
      if (
s[1]='h') and (s[2]='t') and (s[3]='t') and (s[4]='p'then 
        writeln 
(t2,s); 
    
end
  
close (t1); 
  
close (t2); 
  
close (t3); 
  
close (t4); 
  
erase (t1);
  
erase (t3);
  
erase (t4);
end
dnbnb вне форума   Ответить с цитированием
Старый 05.01.2011, 19:14   #5 (permalink)
SOCKS5
 
Аватар для NekitoSP
 
Регистрация: 28.05.2009
Сообщений: 204
Member ID: 352

Репутация: 353
Репутация: 353
Сказал(а) спасибо: 317
Поблагодарили 343 раз(а) в 152 сообщениях
По умолчанию Re: url checker

собсно раздел:
http://www.proxy-base.org/f29/

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

уот жесть, чувак, хоть бы подкомментил такой большой и безобразный код
p.s. не в обиду, но код вообще нечитабельный) в том плане что хрен поймешь где там, что и как)))
NekitoSP вне форума   Ответить с цитированием
Старый 05.01.2011, 19:29   #6 (permalink)
HARDCORE*SPEEDCORE*TERROR*RAVE
 
Аватар для dnbnb
 
Регистрация: 15.08.2010
Адрес: the Earth
Сообщений: 358
Member ID: 8874
ICQ 550012

Репутация: 561
Репутация: 561
Сказал(а) спасибо: 116
Поблагодарили 503 раз(а) в 246 сообщениях
Топикстартер (автор темы) Стрелка Re: url checker

Цитата:
Сообщение от NekitoSP Посмотреть сообщение
хоть бы подкомментил
В общем вота.


PHP код:
program urls

var 
   
t4,t1,t2,t3text
   
b,sstring
   
p:integer

begin 
  writeln 
('-------------------------------www.proxy-base.org-------------------------------');
  
assign (t1'new.txt');
  
assign (t2'forumlist.txt'); 
  
assign (t3'newq.txt'); 
  
assign (t4'neww.txt'); 
  
reset (t1); 
  
rewrite (t2); 
  
rewrite (t3); 
  
rewrite (t4); 
  
  
   
//удаляем пустые строчки
  
while not eof(t1) do
    
begin 
      readln 
(t1,s); 
      if 
s<>'' then 
        writeln 
(t3,s); 
    
end;  
  
  
close (t3); 
  
reset (t3); 
  
readln (t3,s); 
  
writeln (t4,s); 
  
close (t3); 
  
reset (t3); 
  
  
//после не хитрых манипуляций удаляем дубли с ним у меня была полная ж над ним пришлось подумать
  
repeat
    close 
(t4); 
    
reset (t4); 
    
p:=0
    
readln (t3,s); 
    
repeat 
      readln 
(t4,b); 
      if 
s=b then 
        p
:=p+1
    
until eof (t4); 
    if 
p=0 then 
  begin 
        close 
(t1);
        
close (t4);
        
reset (t4); 
        
rewrite (t1); 
        while 
not eof (t4) do 
          
begin 
            readln 
(t4,b); 
            
writeln (t1,b); 
          
end
        
writeln (t1,s); 
        
close (t1); 
        
reset (t1); 
        
close (t4); 
        
rewrite (t4); 
        while 
not eof (t1) do 
          
begin 
            readln 
(t1,s); 
            
writeln (t4,s); 
          
end
        
end;
  
   
until eof (t3); 
  
  
// и проверка урл ли это вообще 
  
reset (t1);
  while 
not eof(t1) do 
    
begin 
      readln 
(t1,s); 
      if (
s[1]='h') and (s[2]='t') and (s[3]='t') and (s[4]='p'then 
        writeln 
(t2,s); 
    
end
    
    
  
close (t1); 
  
close (t2); 
  
close (t3); 
  
close (t4); 
  
erase (t1);
  
erase (t3);
  
erase (t4);
end

Цитата:
Сообщение от NekitoSP Посмотреть сообщение
код вообще нечитабельный
Делал всё на основе школьных знаний которых довольно таки мало, поэтому пришлось включать логику и извращаться как только можно.
dnbnb вне форума   Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
Старый 05.01.2011, 21:30   #7 (permalink)
HARDCORE*SPEEDCORE*TERROR*RAVE
 
Аватар для dnbnb
 
Регистрация: 15.08.2010
Адрес: the Earth
Сообщений: 358
Member ID: 8874
ICQ 550012

Репутация: 561
Репутация: 561
Сказал(а) спасибо: 116
Поблагодарили 503 раз(а) в 246 сообщениях
Топикстартер (автор темы) По умолчанию Re: url checker

DDM, ты уверен что это паскаль чёт я отсюда ничё не понял.
dnbnb вне форума   Ответить с цитированием
Старый 05.01.2011, 22:37   #8 (permalink)
HTTP
 
Аватар для Izual
 
Регистрация: 04.01.2011
Сообщений: 9
Member ID: 11015

Репутация: 0
Репутация: 0
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
По умолчанию Re: url checker

ТО делфи
Izual вне форума   Ответить с цитированием
Старый 05.01.2011, 23:03   #9 (permalink)
HTTP/S
 
Регистрация: 05.01.2010
Сообщений: 98
Member ID: 5498

Репутация: 84
Репутация: 84
Сказал(а) спасибо: 86
Поблагодарили 60 раз(а) в 38 сообщениях
По умолчанию Re: url checker

dnbnb, делфи и паскаль очень похожи, ты должен был хотя бы понять смысл строк кода.


DDM, засунь в PHP код, глаза на лоб лезут.
Toushiro вне форума   Ответить с цитированием
Ответ

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

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ICQ Status Checker v.1.6 po1nt Программы для ICQ 6 02.01.2011 07:40
Ds Checker QIP Работа с дедиками 20 30.12.2010 18:34
[Одноклассники] Checker OD for qweqwe .Chuck Cоциальные сети 3 28.11.2010 22:48
New PM Checker NTR Программы для ICQ 0 08.03.2010 15:07
ICQ CL Checker hide Программы для ICQ 0 28.05.2009 12:58




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
Вся информация на сайте выложена исключительно в ознакомительных целях.