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

SpecifiC · 30 Ocak 2008, 23:23

Resim 1

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Resim 2

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

webbot.php dosyası

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


<?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: Kodu kopyalamak için üzerine çift tıklayın!

/* 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.

*/
 
;## 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...