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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Ident Belirleme ve Ban (https://www.ircforumlari.net/mirc-scripting-sorunlari/175259-ident-belirleme-ve-ban.html)

µGµR 28 Ocak 2009 12:53

Ident Belirleme ve Ban
 
Kanala giren şu tarz :

[12:36] *** Giriş: Cansu5 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

Cagla92@ , Aysu_telde@ pelin_ist@ sinem@ gibi çeşitli identlerle giren msn reklamı veren botlar var. Bu identleri bota !identekle ident veya !identekle *ident* yasaklı ident listesi oluştursak gerektiğinde listelesek !identlistele gerektiğindede silsek !identsil ident gibi. ve bu belirlediğimiz identlerle sunucuya bağlananlara zline uygulasak. yardımcı olabilirmisiniz ?

rX 28 Ocak 2009 13:19

Cevap: Ident Belirleme ve Ban
 
Gecen Gördüqüm Bir Kod Var.

Kod:

menu menubar,status,channel {
  » Trojen İdent Koruması
  ..Acık:.enable #ident | .echo -a 1,7 İdent Koruması Açıldı 
  ..Kapalı:.disable #ident | .echo -a 1,7 İdent Koruması Kapatıldı 
  .-
}
#ident on
on @*:JOIN:#:{
  if (*!*IDENTBURAYA*@* iswm $fulladdress) || (*!*fck*@* iswm $fulladdress) || (*!*fuck*@* iswm $fulladdress) || (*!*aysu*@* iswm $fulladdress)  || (*!*2*@* iswm $fulladdress) || (*!*5*@* iswm $fulladdress) || (*!*4*@* iswm $fulladdress) || (*!*3*@* iswm $fulladdress) || (*!*6*@* iswm $fulladdress) || (*!*7*@* iswm $fulladdress) || (*!*9*@* iswm $fulladdress) || (*!********@* iswm $fulladdress) || (*!*Hack*@* iswm $fulladdress) || (*!*.net*@* iswm $fulladdress) || (*!*gay*@* iswm $fulladdress) || (*!*lez*@* iswm $fulladdress) {
    gzline $nick 9999 4L2amer 4K2oruması 4A2ktif!
  }
}
#ident end

Kırmızı ile Belirtilen Yerler Yani *!*ident*@* Olan Yerleri Secip Kendine Göre Ayarladıktan sonra , gzline olan yeri kick ban olarak ayarLayabilirsin.

Heavenly 28 Ocak 2009 14:32

Cevap: Ident Belirleme ve Ban
 
bu kodu ıdent ekle ıdent sıl olarak ayarlıyabılırmıyız menu nıcklıst'te cıkıcak yanı ekle sıl falan dıye daha kullanıslı olması acısından

rX 28 Ocak 2009 14:42

Cevap: Ident Belirleme ve Ban
 
Onu Ben Bilmiyorum Bi nevi $read Sistemi Uygulanması Gerekli. yani bir .txt Icinden Okutmalı yazmalı Gibi

Heavenly 28 Ocak 2009 14:44

Cevap: Ident Belirleme ve Ban
 
evet bende ondan bahsetmıstım meseLa menu nicklist'te ekle kaldır lıstele gıbı olursa hem daha hızı hemde daha kullanıslı olur

AzuLa 28 Ocak 2009 16:13

Cevap: Ident Belirleme ve Ban
 
PHP- Kodu:

on ident:join:#: {
  
if $me isop $chan {
    
mode $chan +b $nick
    kick $chan $nick Bad İdent 
!
  }
}

menu nicklist {
  
bad ident
  
.ident ekleauser ident $+($gettok($address($$1,3),1,$asc(@)),@*)
  .
ident silruser ident $+($gettok($address($$1,3),1,$asc(@)),@*)
  .
identleri listele: { var %nicks 1 
    
while (%nicks <= $ulist(*,ident,0)) {
      echo -
a $ulist(*,ident,%nicks)
      
inc %nicks
    
}
  }


Açıklama:

Kodu remote bölümüne ekleyiniz. Atılmasını istediğiniz identileri Kullanıcılar(users olarak da kayıtlı olabilir) bölümüne

Alıntı:

ident:*!ident@*
şeklinde ekleyiniz. Kanala girişlerde bu identlere sahip olanlar atılacaklardır.

Nicklist bölümüne gelince;
nickin üzerine sag tıkladıgınızda "bad ident" seçeneğini göreceksiniz.
"ident ekle" seçeneğine tıkladıgınızda kişinin identini listeye eklemiş olacaksınız.
"ident sil" seçeneğine tıkladıgınızda eğer ident mevcuts listede identi silmiş olacaksınız.
"listele" seçeneğine tıkladığınızda ise eklemiş oldugunuz tüm identleri göreceksiniz. (kanala echo'lar karsı tarafa görünmez.)

Eğer sorun yaşarsanız başlık altında belirtiniz.

DipNot: IrCbaStarD'a yardımı için teşekkür ederim.

+ Ekleme:(Bot İçin)

PHP- Kodu:

on *:text:*:#: {
  
if $chan == #AzuLon {
    
if $nick isop $chan {
      if $
== !identekle {
        if $
== $null {
          
msg $chan(#AzuLon) Eklenecek ident mask'ını yazmadınız.
        
}
        else {
          
auser ident $2
          msg $chan
(#AzuLon) Eklenen ident mask'ı : $2
        
}
      }
      if $
== !identsil {
        if $
== $null {
          
msg $chan(#AzuLon) Silinecek ident mask'ını yazmadınız.
        
}
        else {
          
ruser ident $
          msg $chan
(#AzuLon) Silinen ident mask'ı : $2
        
}
      }
      if $
== !identlist {
        var %
nicks 1 
        
while (%nicks <= $ulist(*,ident,0)) {
          echo -
a $ulist(*,ident,%nicks)
          
inc %nicks
        
}
      }
    }
    else {
      if !
identiswm ${
        
msg $chan(#AzuLon) Bu Komutu Kullanabilmeniz İçin $chan Kanalın Op Konumunda Olmanız Gerekiyor.
      
}
    }
  }


Kullanılabilecek Komutlar:
Eğer kişi Kanalda Op Konumunda ise ;

!identekle *!ident@* = Belirtilen identi listeye ekler. Eklerken dikkat ediniz, *!ident@* kalıbına uygun olmalı yazacagınız ident.
!identsil *!ident@* = Belirtilen identi listeden siler. Silerken dikkat ediniz, *!ident@* kalıbına uygun olmalı yazacagınız ident.
!identlist = Tüm ident listesini görmenizi sağlar.

Eğer kişi Kanalda Op Konumunda değil ise;

Bu komutları kullanamaz, op olması gerektiğine dair bir mesaj yansıtır.


Çalıştığına Dair Log:
Alıntı:

[16:39:11] <aLias> !identekle
[16:39:11] <~AzuLa> Bu Komutu Kullanabilmeniz İçin #AzuLon Kanalın Op Konumunda Olmanız Gerekiyor.
[16:39:13] <aLias> h
[16:39:21] * AzuLa mod değiştirdi:+o aLias
[16:39:34] <@aLias> !identekle
[16:39:34] <~AzuLa> Eklenecek ident mask'ını yazmadınız.
[16:39:52] <@aLias> !identekle *!silence@*
[16:39:52] <~AzuLa> Eklenen ident mask'ı : *!silence@*
[16:45:40] <@aLias> !identekle *!deniyoruz@*
[16:45:40] <~AzuLa> Eklenen ident mask'ı : *!deniyoruz@*
[16:45:50] <@aLias> !identekle *!identim@*
[16:45:50] <~AzuLa> Eklenen ident mask'ı : *!identim@*
[16:53:42] <@aLias> !identlist
[16:53:42] <~AzuLa> *!silence@*
[16:53:42] <~AzuLa> *!deniyoruz@*
[16:53:42] <~AzuLa> *!identim@*
[16:53:56] <@aLias> !identsil *!identim@*
[16:53:56] <~AzuLa> Silinen ident mask'ı : *!identim@*
[16:54:00] <@aLias> !identlist
[16:54:00] <~AzuLa> *!silence@*
[16:54:00] <~AzuLa> *!deniyoruz@*

µGµR 28 Ocak 2009 16:59

Cevap: Ident Belirleme ve Ban
 
if $1 == !identekle { auser ident $+($gettok($address($$1,3),1,$asc(@)),@*) | msg #  $+($gettok($address($$1,3),1,$asc(@)),@*) Maskı Atılacak İdent(ler) Listesine Eklendi. }
if $1 == !identsil { ruser ident $+($gettok($address($$1,3),1,$asc(@)),@*) | msg #  $+($gettok($address($$1,3),1,$asc(@)),@*) Maskı Atılacak İdent(ler) Listesinden Silindi. }
if $1 == !identlistesi { { var %nicks 1
while (%nicks <= $ulist(*,ident,0)) {
msg # $ulist(*,ident,%nicks)
inc %nicks
}
}
}
}

Verdiğiniz koddan şu şekil !identekle *!ident@* şeklinde yapmaya çalıştım ama olmadı

µGµR 28 Ocak 2009 17:05

Cevap: Ident Belirleme ve Ban
 
[16:51] <ugurcan> !identekle *!ayfer@*
[16:51] <BOT> @* Maskı Shunlanacak İdent(ler) Listesine Eklendi.

Kullanıcı bölümünede şu şekil ekliyor ident:@*

AzuLa 28 Ocak 2009 17:12

Cevap: Ident Belirleme ve Ban
 
Az önce ekleme yaptım yazdığım kodlara oradan alabilirsiniz, sorun cıkarsa baslık altında belirtiniz .

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

Link =]

Heavenly 28 Ocak 2009 17:58

Cevap: Ident Belirleme ve Ban
 
bunda o nıck'ın ustune qeLıcekSın falan nıck atıldıgında ıdentı eklıyemıyosun sole olsa .ekle ident
.sil ident seklınde .ekle ident dedıgımde eklese sil dedigimde sılse

µGµR 28 Ocak 2009 18:26

Cevap: Ident Belirleme ve Ban
 
Tamam dediğiniz şey oldu. da

on ident:join:#: {
if $me isop $chan
{
mode $chan +
b $nick
kick $chan $nick Bad İdent
!
}
}


Şu kodda bi sorun var sanırım identliste eklediğim bir identle giriş yapıp deneme yapayım dedim işlem yapmadı :s

Murebba 28 Ocak 2009 18:49

Cevap: Ident Belirleme ve Ban
 
bu isini gorur sanırım

kendi botumda da kullanıyorum

banla.txt vs ayrı yukle alttaki kodu /load -rs kline.txt gibi
----------------------------
on @*:join:#: {
var %ident $gettok($gettok($address($nick,5),2,33),1,64)
if ($read(ident.txt, w, %ident)) {
.kline $nick 1d 12Proxy & bot 1 yasak.
}
}

-------------------------------------------------

bunuda identkor.txt vs olarak yukle

----------------------------------------------------

on *:text:*:#opers:{
if !identekle* iswm $1- {
if $read(ident.txt,w,$2-) {
.msg $chan $2 kotu ident listesinde ekli zaten.
}
else {
write ident.txt $2-
.msg $chan $2 kotu ident listesine eklendi.
}
}
if !identsil* iswm $1- {
if !$read(ident.txt,w,$2-) {
msg $chan $2 kotu ident listesinde yok.
}
else {
write $+(-,dw,$2-) ident.txt
msg $chan $2 kotu ident listesinden silindi.
}
}

not : mirc in ana dizinine ident.txt olusturmayı unutma ayrı ayrı verdim kodları daha rahat calıması icin

µGµR 28 Ocak 2009 19:21

Cevap: Ident Belirleme ve Ban
 
tamam iyi güzel identler ekleniyorda fakat eklediğim identten biri kanala girince işlem yapmıyor hata bendenmi kaynaklanıyor acaba ?

AzuLa 28 Ocak 2009 19:33

Cevap: Ident Belirleme ve Ban
 
kodda bir sorun göremedim, kanalda op iseniz işlem görür, değilseniz işleme koymaz. Halfop ise de işleme koymaz. op ya da halfop olmadan işlem yapmasınız istiyorsanız

PHP- Kodu:

on ident:join:#: {
  
mode $chan +b $nick
  kick $chan $nick Bad İdent 
!


bu şekilde ekleyiniz.

Murebba 30 Ocak 2009 04:18

Cevap: Ident Belirleme ve Ban
 
kanalda op olman lazım



Alıntı:

on @*:join:#: {
var %ident $gettok($gettok($address($nick,5),2,33),1,64)
if ($read(ident.txt, w, %ident)) {
.kline $nick 1d 12Proxy & bot 1 yasak.
}
}
burdaki on @*:join:#: i sabitle yada on @*:join:#sohbet: gibi + opta durman gerek

XcLusive 30 Ocak 2009 09:06

Cevap: Ident Belirleme ve Ban
 
neden dosya kullanıyorsunuz ki?

mIRC > Users bölümüne;

ident:*!XcLusive@*
ident:*!HaLiL@*

Remoteye;

on !*:join:#:ban -k $chan $nick 2 sebep.
on *:text:*:#:{
if $1 == !identekle && $2 { .auser ident $+(*!,$2,@*) | msg # $2 ident listeye eklendi }
if $1 == !identsil && $2 { .ruser ident $+(*!,$2,@*) | msg # $2 ident listeden silindi }
}
gibi ekleyin..
ayrıca users listesi varken boş yere dosya oluşturuyorsunuz, bu sol kulağınızı sol elinizle tutmak varken sağ elinizle tutmaya benziyor :)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 07:57.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net