Показать сообщение отдельно

  #5  
Старый 24.10.2006, 22:07
_-[A.M.D]HiM@S-_
Green member
Регистрация: 28.12.2005
Сообщений: 376
Провел на форуме:
5559831

Репутация: 1833
По умолчанию

Цитата:
Сообщение от silence  
Кинь новое пожалуста, а кстати откуда ты их береш?
Епт когды вы поиск научитесь юзать .

PHP код:
http://www.checker.freeproxy.ru/checker/last_checked_proxies.php
http://www.freeproxy.ru/ru/links.htm 

PHP код:
#!/usr/bin/perl

sub unescape {
  
my $todecode shift;
  return 
undef unless defined($todecode);
  
$todecode =~ tr/+/ /;       # pluses become spaces
    
$EBCDIC "\t" ne "\011";
    if (
$EBCDIC) {
      
$todecode =~ s/%([0-9a-fA-F]{2})/chr $A2E[hex($1)]/ge;
    } else {
      
$todecode =~ s/%(?:([0-9a-fA-F]{2})|u([0-9a-fA-F]{4}))/
    
defined($1)? chr hex($1) : utf8_chr(hex($2))/ge;
    }
  return 
$todecode;
}

$Q unescape($ENV{'QUERY_STRING'});

binmode STDOUT;
if (
$Q =~ /proxy|checker/) {
    print 
"Location: http://proxychecker.net/ru/\r\n\r\n";
elsif ($Q =~ /�����|�����|proks|proh|anoni|programma_dlya_poiska_skachivaniya/) {
    
print "Location: http://proxylists.net/ru/\r\n\r\n";
} else {
    print 
"Location: http://www.niksoftware.ru/\r\n\r\n";
}; 
_http://www.forum.freeproxy.ru/viewforum.php?f=6

Последний раз редактировалось _-[A.M.D]HiM@S-_; 24.10.2006 в 22:12..