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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Oper denelirse controla whois msg etmek (https://www.ircforumlari.net/mirc-scripting-sorunlari/323548-oper-denelirse-controla-whois-msg-etmek.html)

Oper denelirse controla whois msg etmek

Serverde biri /oper nick sifre denerse, o nicke whois atip #control kanalina msg etmek istiorum..

PHP- Kodu:

   on *:snotice:*attempts to OPER*: {
 /msg #control 4OPER GIRISI DENENDI!!
 /whois $nick
}

PHP- Kodu:

   raw 301:*: {
  haltdef
  msg #control 4» 12Away: Evet: ( $+ $3- $+ ) 
}
raw 307:*: {
  haltdef
  msg #control 4» Kayitli Nick: Evet.
}
raw 310:*: {
  haltdef
  msg #control 4» IRC Helper: Evet.
}
raw 311:*:{
  haltdef
  msg #control 5--------------------------------------------
  msg #control 4» Nick: $nick
  msg #control 4» Isim: $6-
  msg #control 4» Hostmask: $3 $+ $+ @ $+ $+ $4
}
raw 312:*:{
  haltdef
  msg #control 4» Server: $3 
}
raw 313:*: {
  haltdef
  msg #control 4» Network Opsiyonu: $5 $6 $7 $8 $9
}
raw 314:*:{
  haltdef
  msg #control 5--------------------------------------------
  msg #control 4» Nick: $nick
  msg #control 4» Isim: $6-
  msg #control 4» Hostmask: $3 $+ $+ @  $+ $+ $4
}
raw 317:*:{
  haltdef
  msg #control 4» Baglanti Zamani: $asctime($4,dddd dd/mm/yyyy HH:nn:ss)
  msg #control 4» Konusmadigi Sure: $duration($3)
  msg #control 4» Bagli Oldugu Sure: $duration($calc($ctime - $4))
}
raw 318:*:{
  if ($ial($address($nick,2),0) > 1) msg #control  4» Clone Nickleri: ( $+ $gettok($ial($address($nick,2),1),1,33) $+   $+ $gettok($ial($address($nick,2),2),1,33) $+   $+ $gettok($ial($address($nick,2),3),1,33) $+  $+ ) 
  msg #control 5-------------------------------------------- 
  halt 
}
raw 319:*:{
  haltdef
  msg #control 4» Kanallar: $3-
}
raw 330:*: {
  haltdef
  msg #control 4» Girilen Auth: $3
}
raw 338:*:{
  haltdef
  msg #control 4» Gercek Hostmask: $3
  msg #control 4» Gercek IP: $4
}
raw 369:*:{
  haltdef
  msg #control 5--------------------------------------------
}
raw 401:*:{
  haltdef
  msg #control 4» Bu " $+ $nick $+ " 1Online 4DEGIL!
}
raw 406:*:{
  haltdef
  msg #control 4» Bu  " $+ $nick $+ " 1Online 4GORULMEDI.

Whois Kismi Calismior..

Cevap: Oper denelirse controla whois msg etmek

En üstteki kodda, Whois $nick yerine => whois $8 yapmalısın. Help.gen.tr'de yanlış oper girilince gelen snotice'te 8. kelime nicki belirtiyor. Senın sunucunda farklı olabilir. Nick kaçıncı kelimedeyse ona göre bir değer atamalısın. attemps to oper şeklınde gelen snotice'te örneğin 9. kelime nicki belirtiyorsa, $9 gibi..

Cevap: Oper denelirse controla whois msg etmek

Alıntı:

on *:SNOTICE:*attempts*to*OPER*incorrect*:{
inc -u60 $+(%,wo.,$gettok($4,1,33),.,$remove($gettok($4,2,6 4),$chr(41)))
var %' = $+(%,wo.,$gettok($4,1,33),.,$remove($gettok($4,2,6 4),$chr(41)))
if $(%',2) = 1 { .msg #yönetim 14Hatalı yönetici girişi tespit edildi. Deneyen: 7 $gettok(%',2,46) 14Hesabı Denenen: 7 $9 }
if $(%',2) = 2 { .kill $gettok(%',2,46) 2 kere hatalı yönetici şifresi denediniz. 3. bir yanlış denemede, girişiniz yasaklanacaktır. SecureSpy Teknolojileri! }
if $(%',2) = 3 { .kill $+($gettok(%',2,46)) 3 defa üst üste, hatalı yönetici girişi yapmaya çalıştınız ama hepsi başarısızlıkla sonuçlandı. Hesabınızın akıbetini, Diger Yöneticilerden Ögrenebılırsınız ) | .msg #yönetim $+($gettok(%',2,46)) 3 defa ard arda hatalı yönetici girişi yapmış ve başarısız olmuştur, kullanıcıya yasaklama getirildi. | unset %' }
}

Kod Forumdan Alıntıdır. Ve Ben Bunu Kendı Botumda Kullanıyordum İşinize Yarıyıcaktır ;)

Cevap: Oper denelirse controla whois msg etmek

Alıntı:

SenSizBen Nickli Üyeden Alıntı (Mesaj 1040357872)

Kod Forumdan Alıntıdır. Ve Ben Bunu Kendı Botumda Kullanıyordum İşinize Yarıyıcaktır ;)

Bizim Server CR3.5
Cali$madi Karde$im Yinede SaoL ..

----------

Alıntı:

ForbiddEn Nickli Üyeden Alıntı (Mesaj 1040357077)

» Bu "" 1Online 4DEGIL!

Kanala Bu CIkior..

Cevap: Oper denelirse controla whois msg etmek

Alıntı:

on ^*:snotice:*: {
if $nick == irc.XXXX.com {
if *is now an operator iswm $1- {
msg #X 4İrcop $uyari($gettok($gettok($4,1,33),2,40) su anda IRCop oldu! Login -> $4) | msg #X 4,1*** $1 By $4 İrcop Oldu!
}

Bunu dene bakalım. oper olanları gösteriyor, eğer ki rawlarda herhangi bir problem yoksa, diğer şeklinide yapabiliriz.

Cevap: Oper denelirse controla whois msg etmek

Oper denendiğinde servisin verdiği cvp nedir. Ona göre bi çözüm üretilibilir.

Cevap: Oper denelirse controla whois msg etmek

Benim Verdigim Kodu Crde Kullanıyorum Gayet Iyı Çalısıyordu Bılemıyorum Sende Neden Çalısmamış

Cevap: Oper denelirse controla whois msg etmek

Alıntı:

WeiLSiDe Nickli Üyeden Alıntı (Mesaj 1040358995)

Oper denendiğinde servisin verdiği cvp nedir. Ona göre bi çözüm üretilibilir.

[01:33] -iRC.xxx.CoM- *** Notice -- DNA!BodyGuard@84.197.x.x attempts to OPER as deneme (No such operator configuration)

Oper olmiyan biri oper denerse whois edilip kanala msg edilecek..

Cevap: Oper denelirse controla whois msg etmek

İlk verdigin kodda en üstteki kısmı aşağıdaki gibi değiştirirsen istediğin gerçekleşir.

Kod:

on *:snotice:*attempts*oper*: {

 msg #control Yanlış oper girildi. Nick => $gettok($4,1,33) - Ident => $gettok($gettok($4,-1,33),1,64) - IP => $gettok($4,-1,64)

whois $gettok($4,1,33)

}

Nickin yanında, işine yarayacağını düşünerek ident ve host bilgisini de ekledim.

Cevap: Oper denelirse controla whois msg etmek