IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP

Resim 1
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Resim 2
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

webbot.php dosyası

PHP- Kodu:

   <?php
/* IRC Web Bilgilendirme Sistemi by SpecifiC
 * IWBS Beta (Demo)
 *  
 * SpecifiC Tarafından yazılmıştır.
 * 
 * Scripti yazılımcısını belirtmek sureti ile kullanıma açıktır.
 * Bu script tamamen ücretsizdir.
 * 
 * Script üzerinde değişiklik yaparak kendi çıkarlarınız dogrultusunda gelir
 * sağlamak ve/veya reklam yapmak amacı ile kullanmak kesinlikle yasaktır. 
 * 
 * Lütfen üzerinde emeğinizin olmadığı hiç birşey üzerinden prim kazanmaya çalışmayınız.
 *
 * Not:
 * - İstek doğrultusunda çok daha gelişmiş, kapsamlı uygulamar yazılır. 
 * --- Tamamen ciddi kurum(lar)ın cevapları dikkate alınacaktır... 
 * 
 * Saygılarımla SpecifiC
 * 
 * iletişim MSN/mail: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 */
// DB Ayarlari
$conf = Array();
// Script ayarları
$conf['MySQL']['DbName'] = 'test'; // DB ismi
$conf['MySQL']['Host'] = 'localhost'; // MySqL hostu
$conf['MySQL']['User'] = 'root'; // DB Kullanıcı adı
$conf['MySQL']['DbPass'] = ''; //  DB Şifreniz
$conf['MySQL']['BotPass'] = 'PASSWD'; //mIRC Socket Botu tanımak için gereken şifre
 
$baglanti = @mysql_connect($conf['MySQL']['Host'],$conf['MySQL']['User'],$conf['MySQL']['DbPass']);
if (!$baglanti) {
  echo "Baglanti hatasi";
  exit;
}
mysql_select_db($conf['MySQL']['DbName'],$baglanti);
if ($_GET['s'] == 'info') { 
  if (!empty($_GET['idno'])) {
    $sorgu = mysql_query("SELECT * FROM webbot WHERE idno='" . $_GET['idno'] . "'");
    $oku = mysql_fetch_array($sorgu);     
    if (!empty($oku[1])) {
?>
<p>&nbsp;</p>
<p>&nbsp;</p>
<table width="673" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="12" height="24" bgcolor="#99CC99"><div align="center">
      <p></p>
      </div></td>
    <td width="661" bgcolor="#99CC99"><strong><font size="2" face="tahoma">Web Bilgilendirme Sistemi</font></strong> </td>
  </tr>
  <tr>
    <td height="22"><font size="1" face="tahoma"></font></td>
    <td><font size="1" face="tahoma"><strong>Sayin <?=$oku[2]?></strong></font></td>
  </tr>
  <tr>
    <td height="162" bgcolor="#F4F4F4"></td>
    <td bgcolor="#F4F4F4"><table width="678" height="123" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="123" height="19"><font size="1" face="tahoma">Sizi Atan:</font></td>
        <td width="464"><font size="1" face="tahoma"><?=$oku[1]?></font></td>
      </tr>
      <tr>
        <td height="19"><font size="1" face="tahoma">Atıldıgınız Kanal:</font></td>
        <td><font size="1" face="tahoma"><?=$oku[3]?></font></td>
      </tr>
      <tr>
        <td height="85"><font size="1" face="tahoma">Sebep:</font></td>
        <td><font size="1" face="tahoma"><?=$oku[4]?></font></td>
      </tr>
    </table><div align="center"><font size="1" face="tahoma"><a href="#demo">IRCoperatoru Bilgilendir</a></font></div></td>
  </tr>
  <tr>
    <td height="20" bgcolor="#999999">&nbsp;</td>
    <td bgcolor="#999999"><div align="center"><font size="1" face="tahoma">Coded by SpecifiC</font></div></td>
  </tr>
</table>
<?php
    }
    else {
    echo "
    <html>
          <head>
          </head>
       <body>
    NoData
       </body>
    </html>";
    }
  }
}
elseif ($_GET['s'] == 'add' && $_GET['passwd'] == $conf['MySQL']['BotPass']) {
  if ($ekle = mysql_query("INSERT INTO webbot (idno , nick , knick , chan , reason , date) VALUES ('$idno' , '$nick' , '$knick' , '$chan' , '$reason' , '$date')" , $baglanti)) {
    if ( $ekle ) {
      echo "
        <html>
          <head>
          </head>
       <body>
       Added data
       </body>
       </html>";
    }
  }
  elseif (mysql_errno() == 1146) {    
    $olustur = @mysql_query("
                        CREATE TABLE `webbot` (
                        `idno` varchar(13) NOT NULL default '',
                        `nick` varchar(25) NOT NULL default '',
                        `knick` varchar(25) NOT NULL default '',
                        `chan` varchar(25) NOT NULL default '',
                        `reason` text NOT NULL,
                        `date` varchar(12) NOT NULL default '0000-00-00'
                        );", $baglanti);
    if ($olustur) {
     echo "
      <html>
          <head>
          </head>
       <body>
      Tabo olusturuldu
        </body>
        </html>";
    }
    else {
     echo " <html>
          <head>
          </head>
       <body>
       Tablo Olusturulamadı!
       </body>
       </html>";
     exit;
    }
  }
}
elseif ($_GET['s'] == 'del' && $_GET['passwd'] == $conf['MySQL']['BotPass']) {
  $ekle = mysql_query("DELETE FROM webbot WHERE idno='" . $_GET['idno']. "'" , $baglanti);
  if ( $ekle ) {
    echo "<html>
          <head>
          </head>
       <body>
       Deleted data
       </body>
       </html>";
  }
}
else {
echo "
 <html>
          <head>
          </head>
       <body>
   ErrorCMD
       </body>
 </html>";
}
?>

mIRC Socket Bot Dosyası

Kod:

/* IRC Web Bilgilendirme Sistemi by SpecifiC

* IWBS Beta (Demo)

*  

* SpecifiC Tarafından yazılmıştır.

* 

* Scripti yazılımcısını belirtmek sureti ile kullanıma açıktır.

* Bu script tamamen ücretsizdir.

* 

* Script üzerinde değişiklik yaparak kendi çıkarlarınız dogrultusunda gelir

* sağlamak ve/veya reklam yapmak amacı ile kullanmak kesinlikle yasaktır. 

* 

* Lütfen üzerinde emeğinizin olmadığı hiç birşey üzerinden prim kazanmaya çalışmayınız.

*

* Not:

* - İstek doğrultusunda çok daha gelişmiş, kapsamlı uygulamar yazılır. 

* --- Tamamen ciddi kurum(lar)ın cevapları dikkate alınacaktır... 

* 

* Saygılarımla SpecifiC

* 

* iletişim MSN/mail: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

*/

 

;## BOT AYARLARI

alias -l botnick return BOTNICK

alias -l bot_full_name return FULLNAME

alias -l bot_email return BOTEMAIL

alias -l webpass return PASSWD

alias -l irchost return irc.bilmemne.com

alias -l ircport return 6667

alias -l webhost return localhost

alias -l webhost_port return 80

;## Bot rapor verecek ise ON vermeyecek ise OFF yapmanız yeterli.

alias -l Bot_Rapor return ON

;## Bot rapor verecekse hangi kanala rapor verecek?

alias -l rapor_chan return #RaporCHAN

;## Bot veri ekledikten sonra silme zamanı (dk cinsinden)

alias -l del_timers return 10

;## Dokanmayin :)

alias -l isRapor return $iif($Bot_Rapor == ON,$true,$false)

alias -l _sdebug {

  if !$window(@Debug) {

    window @Debug

  }

  echo $1 @Debug : $+ $2-

}

alias -l sw sockwrite -nt $sockname $1-

alias sock_status return $iif($sock($1) == $true,$false,$true)

alias -l idno {

  var %n = 13 

  while %n {

    var %s = $+(%s,$iif($rand(1,2) = 1,$iif($rand(1,2) = 1,$chr($rand(97,122)),$chr($rand(65,90))),$rand(0,9)))

    dec %n

  }

  return %s

}

alias -l webbot_open {

  if ($sockerr) { 

    _sdebug 4 Socket botun bağlantısı kesildi.

    return 

  }

  sw NICK $botnick

  sw USER $bot_email * * : $+ $bot_full_name

  sockmark $sockname $botnick

}

alias -l webbot_Read {

  var %data

  sockread %data 

  tokenize 32 %data

  if :VERSION iswm $4- { 

    sw NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION WebBot v1.0 $+ $chr(1) 

  }

  if :FINGER iswm $4- { 

    sw NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER SpecifiC $+ $chr(1) 

  }

  if $1 == PING { sw PONG $2- }

  if $2 == 376 && $isRapor == $true { sw JOIN $rapor_chan }

  if $2 = KICK { 

    var %n = $right($gettok($1,1,33),-1), %kn = $4, %c = $right($3,-1), %r = $right($strip($5-),-1)

    var %idno = $idno

    hadd -m w_temp %idno $+(%n,$chr(9),%kn,$chr(9),%c,$chr(9),%r)

    sockopen $+(webget-,%idno) $webhost $webhost_port

  }

  _sdebug 1 $1-

}

alias -l delete_db {

  var %sock = $+(webgetdel-,$1)

  if !$sock(%sock) {

    sockopen %sock $webhost $webhost_port

  }

}

on *:sockopen:webgetdel-*: {

  sockmark $sockname $gettok($sockname,2,45)

  if $sock_status($sockname) = $true {

    tokenize 9 $hget(w_temp,$sock($sockname).mark) 

    var %sdata = $+(?s=del&,passwd=,$webpass,&idno=,$sock($sockname).mark)

    sockwrite -n $sockname GET $+(/webbot.php,%sdata) HTTP/1.1 $+ $crlf $+ $&

      Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */* $+ $crlf $+ $& 

      Accept-Language: tr $+ $crlf $+ $& 

      Accept-Encoding: gzip, deflate $+ $crlf $+ $& 

      User-Agent: WebBot SEC1.2 by SpecifiC $+ $crlf $+ $& 

      Host: $+($regsubex(web$host,http.*:\/\/,$null),:,$webhost_port) $+ $crlf $+ $& 

      Connection: Keep-Alive $+ $crlf

    sockwrite -n $sockname $crlf $+ $crlf

  }

}

on *:sockread:webgetdel-*: {

  var %webdata

  sockread %webdata 

  tokenize 32 %webdata

  if $regex($1-,Deleted data) {

    if $hget(w_temp,$sock($sockname).mark) { 

      if $isRapor { 

        sockwrite -nt webbot PRIVMSG $rapor_chan Silindi: $gettok($hget(w_temp,$sock($sockname).mark),2,9)

      }

      .hdel w_temp $sock($sockname).mark

    }

  }

  _sdebug 12 $1-

}

on *:sockopen:webget-*: {

  sockmark $sockname $gettok($sockname,2,45)

  if $sock_status($sockname) = $true {

    tokenize 9 $hget(w_temp,$sock($sockname).mark) 

    var %sdata = $+(?s=add&,passwd=,$webpass,&idno=,$sock($sockname).mark,&nick=,$1,&knick=,$2,&chan=,$3,&reason=,$regsubex($4-,/( )/g,$+(%,20)))

    sockwrite -n $sockname GET $+(/webbot.php,%sdata) HTTP/1.1 $+ $crlf $+ $&

      Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */* $+ $crlf $+ $& 

      Accept-Language: tr $+ $crlf $+ $& 

      Accept-Encoding: gzip, deflate $+ $crlf $+ $& 

      User-Agent: WebBot SEC1.2 by SpecifiC $+ $crlf $+ $& 

      Host: $+($regsubex($webhost,http.*:\/\/,$null),:,$webhost_port) $+ $crlf $+ $& 

      Connection: Keep-Alive $+ $crlf

    sockwrite -n $sockname $crlf $+ $crlf

  }

}

on *:sockread:webget-*: {

  var %webdata

  sockread %webdata 

  tokenize 32 %webdata

  if $regex($1-,Added data) {

    var %li_nk = $+($iif($regex($webhost,^http.*\/\/),$webhost,$+([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

    var %chan = $+(#,$gettok($hget(w_temp,$sock($sockname).mark),3,9)), %nick = $gettok($hget(w_temp,$sock($sockname).mark),1,9) ,%knick = $gettok($hget(w_temp,$sock($sockname).mark),2,9)

    sockwrite -nt webbot NOTICE %knick %chan kanalından atılma sebebinizi web üzerinden öğrenmek için tıklayınız.  %li_nk

    .timer $+ $sock($sockname).mark 1 $calc($del_timers * 60) delete_db $sock($sockname).mark

    if $isRapor { 

      sockwrite -nt webbot PRIVMSG $rapor_chan Eklendi: $gettok($hget(w_temp,$sock($sockname).mark),2,9)

    }

  }

  elseif $regex($1-,Tabo olusturuldu) {

    _sdebug 12 Tablo olusturuldu!

  }

  _sdebug 4 $1-

}

on *:sockopen:webbot: webbot_open

on *:sockread:webbot: webbot_Read

Socket bot sadece kanalda kicklenen kişileri izleyen ve web ile alakalandırma görevi üstlenmektedir. Gerekirse elim(iz)den geldigince buradan gelen isteklere göre yardımcı olmaya çalışırız...