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
/* 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...
Konu SpecifiC tarafından (05 Ağustos 2008 Saat 15:44 ) değiştirilmiştir.
Sebep: Güncelleme
Mükemmel Ustaa Bu Olay Güzelmiş Gerçekten Benm Bi Düşüncem Var ama Bu Forumla İlgili Mesela ;
Biz Forum Uyeleri mIRc iLe Baglantı Kurdugumuzda Hangi Serverde Neysek Onu Forum imzamızda veya herhangi Bir yerde yazsa diyorum örneğin..
LauReLL Şu Anda irc.bilmemne.com da bilmemne görevlisi Olarak bulunuyor
ve
LauReLl Su anda Hiçbir serverde değil veya Offline ...
Bunu yapabilirmiyiz diye düşündümde Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bizim eski sistem güzeldi Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. çok uğraşmıştık. Irc'de yazılan her harfi bile tek tek sayıp en çok konuşanlar listesi bile yaptırıyorduk :p bıraktım artık web ile uğraşmayı, bıktırdı insanlar. Çok uzun ve sıkıcı geliyor artık.
30 Ocak 2008, 23:23
Benzer Konular 
Normal
