Giriş ve Çıkışlarda IP Tek Tıkla Gline

KarabasaN · #1 (**permalink**) 07-23-2009, 23:02

Adminlerin Çok işini Gören CoCoRiCo 'nun Yazdığı Bir Kod. Coderi Bu Sitede Olduğu İçin Gönül Rahatlığı ile Kodu verebilirim. Ben Kendime Göre Editlemiştim. Aynen o Şekilde veriyorum.

Kodun İşlevi: Network Penceresinde Giriş Çıkış Yapanların IP sine Tıklama ile Gline Atıyor.

PHP- Kodu:


			
on ^1:SNOTICE:*:{ 
  if (exiting isin $1-) { 
    if (!$window(@Network)) { window -en @Network } 
    echo 5 -t @Network 5  4[5 Çıkış 4]12 $6 $7 | halt 
  } 
  if (Connecting isin $1-) { 
    if (!$window(@Network)) { window -en @Network } 
    echo 12 -t @Network 4 [12 Giriş 4] 12 $9 $10  | halt
  }
  halt 
}
on ^1:HOTLINK:*.*.*:*:{
  if ( $active = #) { halt } 
  else {
    if (@ isin $1) {
      $x:CoCoRiCo($1,2)
      return $1 
    }
  } 
  halt 
}
on *:HOTLINK:*.*.*:*:{ 
  if ($active = #) { halt } 
  else { 
    if (@ isin $1) {
      $x:CoCoRiCo($1,1)
    }
  }
}
alias -l X:CoCoRiCo { 
  if ($2 = 1 ) {
    var %q $mid($1,$pos($1,@),$len($1))
    var %x $calc($len(%q) - 1 )
    ;S:ban secenegi (Kline) 
    .gline $+(*,$left(%q,%x)) [ $me ] 
    echo Yasaklanan ip $+(*,$left(%q,%x))
  }
  if ($2 = 2 ) {
    var %q $mid($1,$pos($1,@),$len($1))
    var %x $calc($len(%q) - 1 )
  }
}

Kodlayan; CoCoRiCo

L4roXyL · #2 (**permalink**) 07-23-2009, 23:49

Çok pis yazar

CoCoRiCo · #3 (**permalink**) 07-24-2009, 01:46

o zamanlar kodların üzerine yatma modası vardı biraz karma ve corba sekli yapmıstım
sonra kücülttük böyle bi sekil almıstı.

Kod:

on ^&*:SNOTICE:*:{ 
  if *client*exiting* iswm $1- { 
    $iif(!$window(@Giris/Cikis),window -en @Giris/Cikis,echo 4 -t @Giris/Cikis Çıkış : $1-  )
    halt 
  } 
  if *Connecting* iswm $1- { 
    $iif(!$window(@Giris/Cikis),window -en @Giris/Cikis ,echo 3 -t @Giris/Cikis Giriş : $1- )
    break
  }
}
on ^*:HOTLINK:*.*.*:*:{
  if   @Giris/Cikis == $window($active)  {
    return $1
  }
  Break
}
on *:HOTLINK:*.*.*:*:{ 
  if @Giris/Cikis $window($active) {
    titlebar Kline : $+([,$gettok($1-,2,$asc(@)),]) 
    .Kline $+(*@,$gettok($1-,2,$asc(@))) http://www.mircscripting.net/rules.php?do=kline&c=15m 
  }
  Break
}

Alıntı:

L4roXyL Nickli Üyeden Alıntı

Çok pis yazar

diyena bak simetrik kodcu (;

KarabasaN · #4 (**permalink**) 07-24-2009, 12:22

Alıntı:

CoCoRiCo Nickli Üyeden Alıntı

o zamanlar kodların üzerine yatma modası vardı biraz karma ve corba sekli yapmıstım
sonra kücülttük böyle bi sekil almıstı.

Kod:

on ^&*:SNOTICE:*:{ 
  if *client*exiting* iswm $1- { 
    $iif(!$window(@Giris/Cikis),window -en @Giris/Cikis,echo 4 -t @Giris/Cikis Çıkış : $1-  )
    halt 
  } 
  if *Connecting*isin* $1- { 
    $iif(!$window(@Giris/Cikis),window -en @Giris/Cikis ,echo 3 -t @Giris/Cikis Giriş : $1- )
    break
  }
}
on ^*:HOTLINK:*.*.*:*:{
  if   @Giris/Cikis == $window($active)  {
    return $1
  }
  Break
}
on *:HOTLINK:*.*.*:*:{ 
  if @Giris/Cikis $window($active) {
    titlebar Kline : $+([,$gettok($1-,2,$asc(@)),]) 
    .Kline $+(*@,$gettok($1-,2,$asc(@))) http://www.mircscripting.net/rules.php?do=kline&c=15m 
  }
  Break
}

diyena bak simetrik kodcu (;

Verdiğin Kodda Çıkışlarda Sorun Yok ama Girişlerde Şu Hatayı Veriyor.

* /if: Geçersiz format (Satır 6, script1.ini)

Satır 6. Şu Kod

if *Connecting*isin* $1- {

Çıkışlar Sorunsuz Girişler Sorunlu Yani

L4roXyL · #5 (**permalink**) 07-24-2009, 12:42

if *Connecting* iswm $1-
Olarak değiş.

KarabasaN · #6 (**permalink**) 07-24-2009, 12:50

Evet Şimdi Sorunsuz Çalışıyor.

[11:45] Giriş : *** Notice -- Client connecting on port 6667: yuhbee (ident@IP) [clients]
[11:45] Çıkış : *** Notice -- Client exiting: tarık41 (ident@IP) [Connection reset by peer]

Görünümü Bu IP de Tek Tıkla Ban Atılıyor

[11:45] Giriş : *** Notice -- Client connecting on port 6667: yuhbee (ident@IP) [clients] (GLİNE) - (Nick-Ban) - (SHUN)
[11:45] Çıkış : *** Notice -- Client exiting: tarık41 (ident@IP) [Connection reset by peer] (GLİNE) - (Nick-Ban) - (SHUN)

Gibi Geliştirilebilir mi

L4roXyL · #7 (**permalink**) 07-24-2009, 14:52

Kod:

on ^&*:snotice:*client connect*:$iif(!$window(@root),window -nk0 @root) | echo -ct info @root Client: $9-10 $chr(9) "GLINE" - "NICKBAN" - "SHUN" 
on ^*:hotlink:"*":@root:if ($regex($1,/^"(GLINE|NICKBAN|SHUN)"$/)) returnex 
on *:hotlink:*:*: {
  var %_word = $noqt($1),%_ip = $remove($token($token($hotline,4,32),2,64),$chr(41)),%_nick = $token($hotline,3,32)
  if ($(,%_word) = nickban) { var %1 = 1 | while ($comchan($(,%_nick),%1)) { ban -k $v1 $(,%_nick) 2 sebeb. | inc %1 } }
  if ($(,%_word) = shun) shun $(,%_nick) 
  if ($(,%_word) = gline) gline $(,%_nick) :sebeb.
  ;echo 4 $target IP: %_ip - NICK: %_nick - Clicked: %_word 
}

Şeklinde yapabilirsin. Ben sadece client connectig/giriş için olanı yazdım. Bundan örnek alarak sende çıkış vs. için olanı yazabilirsin.
Not: /shun ve /gline komutlarının nasıl olduğunu tam olarak bilmiyorum. Mantık basitdir: %_ip(ip numarası) - %_nick(nick) olarak döner.

KarabasaN · #8 (**permalink**) 07-24-2009, 15:42

Oldu Valla bu Ne hız

KarabasaN · #9 (**permalink**) 08-01-2009, 23:37

Alıntı:

L4roXyL Nickli Üyeden Alıntı

Kod:

on ^&*:snotice:*client connect*:$iif(!$window(@root),window -nk0 @root) | echo -ct info @root Client: $9-10 $chr(9) "GLINE" - "NICKBAN" - "SHUN" 
on ^*:hotlink:"*":@root:if ($regex($1,/^"(GLINE|NICKBAN|SHUN)"$/)) returnex 
on *:hotlink:*:*: {
  var %_word = $noqt($1),%_ip = $remove($token($token($hotline,4,32),2,64),$chr(41)),%_nick = $token($hotline,3,32)
  if ($(,%_word) = nickban) { var %1 = 1 | while ($comchan($(,%_nick),%1)) { ban -k $v1 $(,%_nick) 2 sebeb. | inc %1 } }
  if ($(,%_word) = shun) shun $(,%_nick) 
  if ($(,%_word) = gline) gline $(,%_nick) :sebeb.
  ;echo 4 $target IP: %_ip - NICK: %_nick - Clicked: %_word 
}

Şeklinde yapabilirsin. Ben sadece client connectig/giriş için olanı yazdım. Bundan örnek alarak sende çıkış vs. için olanı yazabilirsin.
Not: /shun ve /gline komutlarının nasıl olduğunu tam olarak bilmiyorum. Mantık basitdir: %_ip(ip numarası) - %_nick(nick) olarak döner.

Bunu Kullanıyomda Çıkışlarda İşlem Yapmaması Kötü. Çıkışlarda Sadece Gline Atamazmıyım.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

L4roXyL kullanıcısının bu postunu beğenenler.
KarabasaN (08-01-2009)