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

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

- - Proxy Koruaması (https://www.ircforumlari.net/mirc-scripting-sorunlari/555394-proxy-koruamasi.html)

Proxy Koruaması

Sa arkadaşlar ßen cloneyi statüste yakalayıp atabilicek ve attığı ipyi kayıt edip aynı zaman da #kanalım `a bilgi verebilicek örneğin;

Proxy girişi: nick Mask:proxynick!sadas@85.102.3.132 Gzline Uygulandı

şeklinde bilgi verebilen bir remote arıyorum yardımcı olursanız sevinirim iyi forumlar.

Cevap: Proxy Koruaması

Kod:

menu status,menubar,channel {

  .-

  .ı|ı C-Flood

  ..Açık:.enable #C-Flood | .echo -a   #C-Flood  Kontrol Açıldı  

  ..Kapalı:.disable #C-Flood  | .echo -a #C-Flood  Kontrol Kapatıldı  

  .-

}
 

#C-Flood off

on *:snotice:*client connecting*: {

  if $nick == irc.sunucuismi.com { 

    %::Con.ident.on = $right($gettok($10,1,64),-1) | %::Con.nick.on = $9 | %::Con.ip.on = $left($gettok($10,2,64),-1) 

    cf %::Con.nick.on %::Con.ident.on %::Con.ip.on 

  }

}

#C-Flood end

alias cf { 

  ;-Connect Flood -1-

  hinc -mu1 cf2 $3 1 | var %t $hget(cf2,$3) 

  if %t == 2 {

    gline $+(*@,$3) :  ban Sebebi 

    $iif(!$window(@kSc-Conned),window -e @kSc-Conned) | aline -p @kSc-Conned $+([,$time(HH:nn),]) $+(<2,kSc-Conned,>) 5K-Edildi - Mask: $+(1[2Nick1]: $1 - 1[2IP1]: $3)

    msg #a 2[RPR] -6• 3Agresif C-Giriş-1 6• 5Atilan Mask: $+(1[2Nick1]: $1 - 1[2IP1]: $3)

    halt

  }

  ;-Connect Flood -2-

  hinc -mu2 cf $3 1 | var %t $hget(cf,$3) 

  if %t == 3 { 

    gline $+(*@,$3) :  ban Sebebi 

    $iif(!$window(@kSc-Conned),window -e @kSc-Conned) | aline -p @kSc-Conned $+([,$time(HH:nn),]) $+(<2,kSc-Conned,>) 5K-Edildi - Mask: $+(1[2Nick1]: $1 - 1[2IP1]: $3)

    msg #a  2[RPR] -6• 3Agresif C-Giriş-2 6•5Atilan Mask: $+(1[2Nick1]: $1 - 1[2IP1]: $3)

    halt

  }

  ;-Connect Flood -3- 

  hinc -mu8 cf3 $3 1 | var %t $hget(cf3,$3) 

  if %t == 3 { 

    gline $+(*@,$3) :  ban Sebebi 

    $iif(!$window(@kSc-Conned),window -e @kSc-Conned) | aline -p @kSc-Conned $+([,$time(HH:nn),]) $+(<2,kSc-Conned,>) 5K-Edildi - Mask: $+(1[2Nick1]: $1 - 1[2IP1]: $3)

    msg #a  2[RPR] -6• 3Agresif C-Giriş-3 6• 5Atilan Mask: $+(1[2Nick1]: $1 - 1[2IP1]: $3)

    halt

  }

;--- Rapor verilcek kanal : #a
;--- Gline şeklinde ayarlandı.
;--- Özel pencere bildirim simgesi mevcud.
;--- Ac\kapa özellikli.

Cevap: Proxy Koruaması

Alıntı:

IRC-Dancer Nickli Üyeden Alıntı (Mesaj 1041371111)

Kod:

menu status,menubar,channel {

  .-

  .ı|ı C-Flood

  ..Açık:.enable #C-Flood | .echo -a   #C-Flood  Kontrol Açıldı  

  ..Kapalı:.disable #C-Flood  | .echo -a #C-Flood  Kontrol Kapatıldı  

  .-

}
 

#C-Flood off

on *:snotice:*client connecting*: {

  if $nick == irc.sunucuismi.com { 

    %::Con.ident.on = $right($gettok($10,1,64),-1) | %::Con.nick.on = $9 | %::Con.ip.on = $left($gettok($10,2,64),-1) 

    cf %::Con.nick.on %::Con.ident.on %::Con.ip.on 

  }

}

#C-Flood end

alias cf { 

  ;-Connect Flood -1-

  hinc -mu1 cf2 $3 1 | var %t $hget(cf2,$3) 

  if %t == 2 {

    gline $+(*@,$3) :  ban Sebebi 

    $iif(!$window(@kSc-Conned),window -e @kSc-Conned) | aline -p @kSc-Conned $+([,$time(HH:nn),]) $+(<2,kSc-Conned,>) 5K-Edildi - Mask: $+(1[2Nick1]: $1 - 1[2IP1]: $3)

    msg #a 2[RPR] -6• 3Agresif C-Giriş-1 6• 5Atilan Mask: $+(1[2Nick1]: $1 - 1[2IP1]: $3)

    halt

  }

  ;-Connect Flood -2-

  hinc -mu2 cf $3 1 | var %t $hget(cf,$3) 

  if %t == 3 { 

    gline $+(*@,$3) :  ban Sebebi 

    $iif(!$window(@kSc-Conned),window -e @kSc-Conned) | aline -p @kSc-Conned $+([,$time(HH:nn),]) $+(<2,kSc-Conned,>) 5K-Edildi - Mask: $+(1[2Nick1]: $1 - 1[2IP1]: $3)

    msg #a  2[RPR] -6• 3Agresif C-Giriş-2 6•5Atilan Mask: $+(1[2Nick1]: $1 - 1[2IP1]: $3)

    halt

  }

  ;-Connect Flood -3- 

  hinc -mu8 cf3 $3 1 | var %t $hget(cf3,$3) 

  if %t == 3 { 

    gline $+(*@,$3) :  ban Sebebi 

    $iif(!$window(@kSc-Conned),window -e @kSc-Conned) | aline -p @kSc-Conned $+([,$time(HH:nn),]) $+(<2,kSc-Conned,>) 5K-Edildi - Mask: $+(1[2Nick1]: $1 - 1[2IP1]: $3)

    msg #a  2[RPR] -6• 3Agresif C-Giriş-3 6• 5Atilan Mask: $+(1[2Nick1]: $1 - 1[2IP1]: $3)

    halt

  }

;--- Rapor verilcek kanal : #a
;--- Gline şeklinde ayarlandı.
;--- Özel pencere bildirim simgesi mevcud.
;--- Ac\kapa özellikli.

üST VAR BUNDAN BENİM ELİMDE VARSA DAHA DEĞİŞİK DAHA SAĞLAM BİR KORUMA LÜTFEN