Tem 19

PHP de IRC Bot

Yorum Yok - Yorum Yaz

Gerçekten işe yaricak kodlar, ne güzel kanalınızı koruyabilir, loglarını yayınlayabilirsiniz. Aslında bakarsanız daha denemedim ama en yakın zamanda nasıl çalıştığınız denicem :)

 

PHP de yapmış olduğunuz bot ile IRC sunucunuzu koruyabilecek kanal ve kullanıcı listesini web uzerinden yayınlayabileceksiniz.

Hemen devam edelim ve kodlarımızı verelim dimi :)

PLAIN TEXT
PHP:
  1. <?
  2.   # Zaman sınırlaması yok.. (Tıme out almamak ıcın)
  4.   ob_start();
  5.  
  6.   # Yankının yapılacagı kullanıcı ve kapatma mesajı
  7.   $sahip = 'Sahip Nick';
  8.   $kapat = 'kapatma mesajı';
  9.  
  10.   # Gereklı degıskenler
  11.   $n = "n";
  12.   $nick = 'Bot-nick';
  13.   $kanal = 'kanal';
  14.   $uzaksunucu  = 'sunucuadres';
  15.   $yerelsunucu = 'adsluser-2866.adsl.ttnet.net.tr';
  16.   $port = 6667;
  17.  
  18.   $dosya = fopen("log.txt","w+");
  19.   $sunucu = fsockopen ($uzaksunucu, $port, $hatano, $hatastr, 0);
  20.  
  21.   # Baglantıda hata olusursa
  22.   if (!$sunucu)
  23.      {
  24.      echo 'Sunucuya Bağlanamadı';
  25.      }
  26.   else
  27.      {
  28.      # Sırasıyla nıkı, kullanıcıyı belırle ardından kanala gır ve selam ver
  29.      fputs($sunucu, 'NICK '.$nick.$n);
  30.      fputs($sunucu, 'USER '.$nick.' '.$yerelsunucu.' '.$uzaksunucu.' : '.$nick.$n);
  31.      fputs($sunucu, 'JOIN #'.$kanal.$n); 
  32.  
  33.      while (!feof($sunucu))
  34.         {
  35.         $veri = fgets ($sunucu,128);
  36.         fputs($dosya, $veri);
  37.  
  38.         # Pıng gelırse Pong Gonder
  39.         if(preg_match("'PING(.*?)'si", $veri, $set))
  40.         fputs($sunucu,'PONG '.trim($set[1]).$n);
  41.  
  42.         # Kanal lıstesını al ve bunu bı $isimler ıcınde sakla
  43.         if(preg_match("':(.*?)353(.*?) :(.*?)'Ui", $set))
  44.         $isimler .= trim($set[3]);
  45.  
  46.         # Eger kanala bı mesaj yazıldıysa
  47.         if(preg_match("':(.*?)!(.*?)PRIVMSG #".$kanal." :(.*?)'Ui", $veri, $set))
  48.            {
  49.            # Yazılan mesaj kapanma mesajıysa botu kapat
  50.            if(trim($set[3]) == $kapat)
  51.               {
  52.               # Isım lıstesını bas ve hoscakal de
  53.               fputs($sunucu, 'PRIVMSG #'.$kanal.' :Hoşçakalın, '.$isimler.$n);
  54.               fclose ($sunucu);
  55.               fclose ($dosya);
  56.               exit;
  57.               }
  58.  
  59.            # Yazılan mesajı sahıbe echo et (test amaclı)
  60.            else if(trim($set[1]) != $nick)
  61.               {
  62.               fputs($sunucu,'PRIVMSG '.$sahip.' :'.trim($set[3]).' '.trim($set[1]).$n);
  63.               }
  64.            }
  65.         }
  66.      }
  67. ?>

 

Benzer Konular

Tags: , , ,

« gece gece karayip korsanları | big dump nedir? »

This post has Yorum Yok. Yorum Yaz