IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- Conference Room (CR) (https://www.ircforumlari.net/conference-room-cr/)

- - ConferenceRoom Koruma Botu Hakkında (https://www.ircforumlari.net/conference-room-cr/713923-conferenceroom-koruma-botu-hakkinda.html)

ConferenceRoom Koruma Botu Hakkında

Merhaba SevgiLi iF ConferenceRoom Kullanıcıları

Evet Arkadaşlar Tarafımca Genel Düzenleme Yapıldığı İçin Elinde ConferenceRoom Sunucular İçin Koruma Botu, Proxy Koruma Botu, Olanlar Varsa Bu Başlık Altında Paylaşırsa Sevinirim.

Linklerin Ölü Olması ve Yeniden Bir Düzenleme Gereği İle Sıfırdan Düzenliyerek Devam Ediyoruz.

Not: Services Botların Bildiğim Kadarıyla ConferenceRoom Sunucuları Korumadığını Biliyorum.
Lakin Kendiniz mIRC Bot yada Socket bot yada egdroptan Bot Atıp Yaparsanız Faydasını göre bilirsiniz.

ConferenceRoom Koruma Botu Hakkında

Not: Koruma Botu Değil Oyun Botudur.

Kod:

on *:sockopen:*: {

  if $sockname == aris {

    sw $sockname PASS aris

    sw $sockname NICK $+(Xq,$r(11111,99999))

    sw $sockname USER parkorman * * :1,1 3by 15ParkOrman^ 14Server Guard Systems Technology 

  }

  if $sockname == merlyn {

    sw $sockname PASS merlyn

    sw $sockname NICK $+(Xq,$r(11111,99999))

    sw $sockname USER parkorman * * :1,1 3by 15ParkOrman^ 14Server Guard Systems Technology 

  }

}

on *:sockread:*: {

  if $sockname == aris {

    _aris

  }

  if $sockname == merlyn {

    _merlyn

  }

}

alias sw { $iif($sock($1).status == active,sockwrite -nt $1-) }

alias bot {

  if !$sock(aris) { sockopen aris irc.parkorman.net 6667 }

  if !$sock(merlyn) { sockopen merlyn irc.parkorman.net 6667 }

}

alias _aris {

  var %s

  sockread %s

  tokenize 32 %s

  echo -s $1-

  if $1 == PING {

    sw $sockname PONG $right($2,-1)

  }

  if $2 == 376 || $2 == 422 {

    sw $sockname OPER X operpass

  }

  if $2 == 381 {

    sw $sockname NICK ParkOrman^

    sw $sockname PASS botbass  }

  if $2 == JOIN {

    if $_n($1) == ParkOrman^ {

      .timer -i 1 8 sw merlyn SAMODE $_r($3) +u ParkOrman^

    }

  }

  if $2 == KICK {

    if $4 == ParkOrman^ {

      inc %kick_aris [ $+ [ $_n($1) ] ] 1

      sw $sockname FJOIN $3 $ifmatch

      if %kick_aris [ $+ [ $_n($1) ] ] >= 1 {

        sw $sockname SAMODE $3 +b $_n($1)

        sw merlyn KILL $_n($1) :Kural ihlali sohbet kurallarına uyalım..

        unset %kick_aris [ $+ [ $_n($1) ] ]

        return

      }

      sw $sockname PRIVMSG $_n($1) : $3 Kanalından ParkOrman^'a kick kullandınız tekrarı olması halinde kanaldan kısa süre uzaklaştıralacaksınız..

    }

  }

  if $2 == PRIVMSG {

    if $hfind(kufurler,$_r($4-),1,W).data {

      sw merlyn PRIVMSG #destek :Kufur $_n($1) Chan: $3

    }

  }

  if $2 == NICK {

    if $right($3,-1) == ParkOrman^ {

      sw $sockname PASS parkormanbot

      sw $sockname UMODE +cm

      var %i 1 , %x #opers,#parkorman,#oyun,#radyo

      while %i <= $numtok(%x,44) {

        sw $sockname FJOIN $gettok(%x,%i,44) ParkOrman^

        inc %i

      }

    }

  }

}

alias _merlyn {

  var %k

  sockread %k

  tokenize 32 %k

  echo -s $1-

  if $1 == PING {

    sw $sockname PONG $right($2,-1)

  }

  if $2 == 376 || $2 == 422 {

    sw $sockname OPER X Operpass

  }

  if $2 == 381 {

    sw $sockname NICK MerLyn

    sw $sockname PASS parkormanbot

    sw $sockname FJOIN #destek MerLyn

    sw $sockname UMODE +cm

  }

  if $2 == PRIVMSG {

    if $3 == #destek {

      if $_n($1) == SweetLord {

        if $_r($4) == !kufur {

          if $5 == ekle {

            if !$hfind(kufurler,$strip($_r($4-)),1,W).data {

              hadd -m kufurler $calc($hget(kufurler,0).item + 1) $6-

              sw $sockname PRIVMSG $3 :kufur eklendı $6

            }

          }

          if $5 == sil {

            if $hfind(kufurler,$strip($_r($4-)),1,W).data {

              hdel kufurler $hfind(kufurler,$6,1,W).data 

            }

          }

        }

      }

      if $chr(35) isin $_r($4) {

        var %si 1

        while %si <= $numtok($_r($4),44) {

          sw $sockname FJOIN $gettok($_r($4),%si,44) $_n($1)

          sw $sockname SAMODE $gettok($_r($4),%si,44) +o $_n($1)

          inc %si

        }

      }

    }

  }

}

alias _r  { return $right($1-,-1) }

alias _n { return $_r($gettok($1,1,33)) }

Code® : SweetLord , kQraY
;oki
Mynet tarzı iki bot :) umarim işinize yarar...

Scriptinin Remote Kısmına ekliyosunuz :)

Ondan sora /bot deyince bağlanıyor. /sockclose * deyince kapanıyor.

Bu kadar

Forumu incele biraz arkada$ım..

Sunucu Bot’unu oluşturmanızı sağlayacak komut aşağıda belirttim.
/as bot botismi add

Sunucu Bot’unu kanala atmanızı sağlayacak komut aşağıda belirttim.
/as chan #kanal bot add botname

Sunucu Bot’un realname dizinini değiştirmeye yardımcı olacak komut aşağıda belirttim.
/as bot ßotismi set realname

Sunucu Bot’un ident@** kısmını değiştirmenize yardımcı olacak komut aşağıda belirttim.
/as bot Botname set user Botident

Sunucu Bot’un ipmask adresini değiştirmenize yardımcı olacak komut aşağıda belirttim.
/as bot ßotname set host mesaj

Sunucu Bot’un konuşmasına yardımcı olacak komut aşağıda belirttim.
/as bot Botname message #kanal mesaj

Sunucu Bot’un kanala yollamak için kullanılan komut aşağıda belirttim.
/as chan #ABTV add

Sunucu Bot’un kanal giriş mesajı eklemek için kullanılan komut aşağıda belirttim.
/as chan #kanaladı greeting append mesaj

Yanıt: ConferenceRoom Sock/Proxy Projesi..

Alıntı:

TRuVa Nickli Üyeden Alıntı

yardimi olur belkı

}
alias kontrol {
sockopen $+(kontrol,$r(1,999999999)) $1- 8080
sockopen $+(kontrol,$r(1,999999999)) $1- 58
sockopen $+(kontrol,$r(1,999999999)) $1- 9336
sockopen $+(kontrol,$r(1,999999999)) $1- 10232
sockopen $+(kontrol,$r(1,999999999)) $1- 50033
sockopen $+(kontrol,$r(1,999999999)) $1- 19086
sockopen $+(kontrol,$r(1,999999999)) $1- 28675
sockopen $+(kontrol,$r(1,999999999)) $1- 10130
sockopen $+(kontrol,$r(1,999999999)) $1- 10242
sockopen $+(kontrol,$r(1,999999999)) $1- 23422
sockopen $+(kontrol,$r(1,999999999)) $1- 80
sockopen $+(kontrol,$r(1,999999999)) $1- 8081
sockopen $+(kontrol,$r(1,999999999)) $1- 1080
sockopen $+(kontrol,$r(1,999999999)) $1- 3128

Bu portlari panelden kapatabiliyorsun hic denemedim ama eger basarili olursa cok guzel proxy korumasi olucaktir.

Yanıt: ConferenceRoom Sock/Proxy Projesi..

Conferenceroom Kullanan Arkadaşlar için Panel üzerinden proxy girişlerini yasaklamak için Gerekli AÇıklamayı iletiyorum;

http://irc.serverismi.com: port/admin/proxy.adm
Kırmızı Renkle Belirttiğim yere server isminizi ve web portunu yazıoruz.

Daha Sonra Karşımıza çıkan panelde Kırmızı olarak kutu içine aldığım bölüme Port'u Yazıp Hemen Altındaki
"Socks4"
"Socks5"
"HTTP-Connect"
"HTTP-GET"
"HTTP-put"

Seçeneklerinin Tamamına Birer işaret Koyup Hemen Altındaki Submit Butonunu Tıklatın İşlem Tamamdır.

Resimde Açıklama Mevcuttur.
Resim : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: CR Proxy Kapatma ?

a.s proxy kesin çözümü z-defaultu kapatmak mirce açıksa ircin port eklemelisin

/as security proxycheck enable
/as security proxycheck port port-numarası add

Veya bildiğin giriş client numarasına PERM akill atabilirsin.

ConferenceRoom Koruma Botu Hakkında

Alıntı:

RapoLicE Nickli Üyeden Alıntı (Mesaj 300287)

CiKo , Normal Koruma ßotu Unreal'de Oldugu Gibi YanI, Küfür KorumasI, Clone Koruması, bad nick koruması, yani saldırıya dail korumalar :S

Proxy koruması : /as security proxycheck enable

Clone Detektörü : /as security clone on

Kelime Yasaklama : /as filter word add kelime

Genel Olarak Security parametreleri görmek için : /as help security

Nick Yasaklamak İçin : /os sqline add *nick*

Örneğin fahise ile başlayan nickleri yasaklamak için : /os sqline add *fahise

Umarım sorunun cevabını az da olsa almışsındır...

Cevap: Cr Proxy Koruması

Aslinda Proxy.. Önune Gecilemez.... Napsan Buluyorlar Aciz. insanlar Bir Yoldan Girmeyi. Saldirmayi.. Ama Sana Su Kadariylan Yardimci Olabilirim...
irc.Panelinden Security Kismini TIkla Orda Proxy Check Var Onu Tikla
Yasaklamak istedigin Proxyleri Ordan Yasakliyabilirsin...

Socks4
Socks5
HTTP-Connect
HTTP-Get
HTTP-Put
Yukarida Göruldugu Sekil.de Ayarlarini Yaparsin..

Umarim isine Yarar Kolay Gelsin..

Cevap: Cr Proxy Koruması

PHP- Kodu:

   alias proxyadd {
  var %i = 1
  echo -a Tikky  Ipler Adminserv AKILL liste eklenmektedir.
  %eof = $lines(proxy.txt)
  If ($1 != $null ) { %i = $1 }
  If ($2 != $null ) { %eof = $2 }
  while %i <= %eof {
    os  akill add *@ $+ $read -l $+ %i proxy.txt 11,2Proxy ile giri$ yapmak yasaktir.. perm
    inc %i
  }
}
menu channel,status,query {
  -
  Proxy
  .Liste:/run $mircdir\proxy.txt
  .Ekle:proxyadd
  .Tek:AS security akill add *@ $+ $?="Akill Eklenecek Ip" proxy
  -
}

mircin ana kLasorune proxy.txt die bir txt dosya ac ne zaman proxy buLursan icine ekLe mircden otomatik akiLL Listesine aLirsin.. Tek cözüm değiL ama azda olsa i$ine yarar uzun zamandir kuLLaniyorum $ahsen bana yardimci oLuyor..

Cevap: Cr Proxy Koruması

Alıntı:

TwiLight Nickli Üyeden Alıntı (Mesaj 548916)

PHP- Kodu:

   alias proxyadd {
  var %i = 1
  echo -a Tikky  Ipler Adminserv AKILL liste eklenmektedir.
  %eof = $lines(proxy.txt)
  If ($1 != $null ) { %i = $1 }
  If ($2 != $null ) { %eof = $2 }
  while %i <= %eof {
    os  akill add *@ $+ $read -l $+ %i proxy.txt 11,2Proxy ile giri$ yapmak yasaktir.. perm
    inc %i
  }
}
menu channel,status,query {
  -
  Proxy
  .Liste:/run $mircdir\proxy.txt
  .Ekle:proxyadd
  .Tek:AS security akill add *@ $+ $?="Akill Eklenecek Ip" proxy
  -
}

selam arkadaslar bu kodu ben ekledim ama bu bir islem yapmiyor. Nerde hata yaptim acaba.
Her giren ipeyi proxy olarak görüyor ve bu hatayi veriyor.

* /sockopen: 'prx-193.71.115.21-' socket in use (line 51, clone.txt)
-
* /sockopen: 'prx-193.71.115.21-' socket in use (line 36, dosya.txt)
-
* /sockopen: 'prx-88.232.218.105-' socket in use (line 51, clone.txt)
-
* /sockopen: 'prx-88.232.218.105-' socket in use (line 36, dosya.txt)

ve proxy var diyor ama islem yapmiyor.

Proxy girisvar : 88.229.105.133:80 - Nicki bu: