Форум АНТИЧАТ - узнаем IP в phpBB

узнаем IP в phpBB

29.05.2007, 21:43

Scipio

Members of Antichat - Level 5

Регистрация: 02.11.2006

Сообщений: 781

Провел на форуме:
5939734

Репутация: 1917

Отправить сообщение для Scipio с помощью ICQ

узнаем IP в phpBB

Небольшой скрипт, для того, что бы узнать IP пользователя на форуме phpBB... есть 3 нюанса:

1. Узнать IP можно только у пользователя с аватарой... (причем IP на тот момент, когда он аватару прекреплял)

2. Работает не на всех форумах, но на подавляющем большинстве...

3. Вводить нужно не номер пользователя в списке пользователей, а его id

вот код:

Код:

<html>

<head>
  <title></title>
</head>

<body>

 <?php
error_reporting(E_ALL);
set_time_limit(0);
echo "<pre>";
$k=$PHP_SELF;
$pr='';
$ip='';
$pat='/(http:\/\/)?([^\/]+)/i';
if (!isset($adr)){$adr='';}
echo "by Scipio<br>\n\n\n";
echo "<form action='".$k."' method='post'>";
echo "<p>путь к форуму:<br>";
echo "<input type='text' name='adr' value='".$adr."'/><br><br>";
echo "id пользователя:<br>";
echo "<input type='text' name='id'/><br><br>";
echo "<input type='submit' name='submit' value='Жмем и пробуем' />";
echo "</p>";
if (!isset($id)){die;}
if (empty($adr) or empty($id))
   {die ("не все поля заполнены");}
     else
   {$adr=trim($adr);
     preg_match($pat,$adr, $matches);
     @$pr= $matches[1];
     @$host = $matches[2];
     $qr=explode($pr.$host,$adr);
     $qveria=$qr[1];
     empty($qveria)?$qveria='/':$qveria=$qveria;
     $ock=fsockopen($host,80);
     $pac="GET ".$qveria."/"."profile.php?mode=viewprofile&u=".$id." HTTP/1.0\r\nHost: ".$host."\r\n\r\n";
     fputs ($ock,$pac);
            while (!feof($ock))
                 {
                //echo fgets ($ock,128);
                 $st=fgets ($ock,128);
                
                if (preg_match("/avatars\//i",$st,$_8)) {
                      $cod=explode($_8[0],$st);
                      $cod=substr($cod[1],0,8);


                 for ($i=0;$i<8;$i=$i+2)
                    {$ipd=$cod{$i}.$cod{$i+1};
                     $ip=$ip.hexdec($ipd).'.';


                 	}

                   }

                 }
     fclose ($ock);
      }
      if (!empty($ip)){  $ip=substr_replace($ip, '', strlen($ip)-1);
      echo "ip:".$ip."<a href=http://old.antichat.ru/util/whois/?ip=".$ip.">[whois]</a>";}else{die("узнать ip не удалось");}

echo "</pre>";

?>

</body>

</html>

Не судите строго, если комуто понадобится... буду улучшать и может быть переведу на perl...

__________________
Карфаген должен быть разрушен...