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/)
-   -   Clone Saldırısı (https://www.ircforumlari.net/mirc-scripting-sorunlari/343460-clone-saldirisi.html)

Skys 09 Temmuz 2010 12:50

Clone Saldırısı
 
Clone Saldırısı

#sohbet kanalına Ani saldırılar alıyoruz

Clone'ler aynı nick üzerinde geliyor

Kod:


örnek :
 
Lamer1
Lamer4154
Lamerqwq
Lamerwfwef
Lamer`eqfewf
Lamer-efwf
Lamer[wefwefwefwfe}


Bu Sekilde ben kullandığım mIRCScript botuna

.lamer #kanal nick

Yazdığımda Aynı nick üzerinde saldırıda bulunan

Tüm Cloneleri uzaklastırmak istiyorum.

mümkünmüdür.

WeiLSiDe 09 Temmuz 2010 21:24

Cevap: Clone Saldırısı
 
admin oper vs isen

on $*:snotice:/client\s(connecting|exiting)/Si: {
var %_reg = $regml(1),%_ip = $remove($gettok($10,2,64),$chr(41))
if ($(,%_reg) = connecting) {
hinc -m _ips %_ip 1
if ($hget(_ips,%_ip) = %csayi) {
zline $9 +10m sebep | hdel _ips %_ip
}
if ($(,%_reg) = exiting) $iif($hget(_ips,%_ip),hdec _ips %_ip 1)
}
}


bunu kullanabilirsin ancak
%csayi değişkenini veriables bölümüne eklemen lazım. Yani kaç klon da sonrasına işlem yapılcak vs.

aop isen forumda onlarca klon koruması var. Dilediğini kullan
İyi Forumlar.

KeMaNiSt 09 Temmuz 2010 21:49

Cevap: Clone Saldırısı
 
O saldırıları yapan kişi nick kısmına ne yazarsa o nickle ve o nickin türevleriyle girer, buna çare olarak yukardaki arkadaşın kodu işliyor olabilir, ama o saldırıları yapan kişi istese farklı farklı nicklerle de girebilir. O durumda işe yaramaz.

Skys 11 Temmuz 2010 09:36

Cevap: Clone Saldırısı
 
Alıntı:

KeMaNiSt Nickli Üyeden Alıntı (Mesaj 1040459159)
O saldırıları yapan kişi nick kısmına ne yazarsa o nickle ve o nickin türevleriyle girer, buna çare olarak yukardaki arkadaşın kodu işliyor olabilir, ama o saldırıları yapan kişi istese farklı farklı nicklerle de girebilir. O durumda işe yaramaz.




Aslında ben mIRCScript Botuna uyarlamak istiyorum

KeMaNiSt 11 Temmuz 2010 19:50

Cevap: Clone Saldırısı
 
Alıntı:

Skys Nickli Üyeden Alıntı (Mesaj 1040460040)
Aslında ben mIRCScript Botuna uyarlamak istiyorum

Eğer yanlış anlamadıysam seni yine farketmez dostum pek değişecek bişi olmaz. Ki zaten benim de kastettiğim oydu, mirc entegreli olsa bile aynı sorun...

Rodrigo 11 Temmuz 2010 21:25

Cevap: Clone Saldırısı
 
Alıntı:

Skys Nickli Üyeden Alıntı (Mesaj 1040458770)
Clone Saldırısı

#sohbet kanalına Ani saldırılar alıyoruz

Clone'ler aynı nick üzerinde geliyor

Kod:


örnek :
 
Lamer1
Lamer4154
Lamerqwq
Lamerwfwef
Lamer`eqfewf
Lamer-efwf
Lamer[wefwefwefwfe}

Bu Sekilde ben kullandığım mIRCScript botuna

.lamer #kanal nick

Yazdığımda Aynı nick üzerinde saldırıda bulunan

Tüm Cloneleri uzaklastırmak istiyorum.

mümkünmüdür.


Eğer IP değişmiyorsa, mirc bot için bu alttaki kodu kullanabilirsiniz. 2.ci kişi girerse clone'lerin hepsini dışarı alır...

Kod:

on @*:JOIN:#:{
  if ($ial == $false) .ial on
  if ($chan(#).ial == $false) { who # | return }
  var %total = $ialchan($wildsite,#,0)
  if (%total > 1) {
    var %i = 0
    while (%i < %total) {
      inc %i
      var %nick = $ialchan($wildsite,#,%i).nick
      var %all.nicks = $addtok(%all.nicks,%nick,32)
      if (%nick !== $me) { 
        .raw -q mode $chan +b $mask($fulladdress,2) 
        .raw kick $chan %nick  Clone sebebinden atildiniz %bans
        .unset %nick 
      }
    }
  }
}


asil21 15 Eylül 2010 00:37

Cevap: Clone Saldırısı
 
clone saldırısına çare yoktur versiyon koruması giriş kodlaması çaresi yoktur tek çare aplett appletini değiştir içinde ufak bir modül değiştir sorun biter kolay gelsin

DaDaS 15 Eylül 2010 03:30

Cevap: Clone Saldırısı
 
Kod:

#sericlone on
on *:snotice:*Client connecting on*:{
  .timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
  inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
  if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >= 3 {
    .kline $+(*@,$gettok($gettok($10,2,64),1,41)) 4P12roxy 1/ 4S12ocks/4C12lone 4G12irisi 4Y12apmak 4Y12asaktır 4K12oruma..!
    unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
  }
}
#sericlone end

Mırc Boota Dene Kacırmaz Cloneyı

diyorumki 15 Eylül 2010 12:33

Cevap: Clone Saldırısı
 
clone koruması --> [ .climit ac -/- .climit kapat -/- .clonelimit *Sayi* ]

Boto böyle bir eklenti yapabilirmiyiz / veya mirce

diyorumki 30 Eylül 2010 16:23

Cevap: Clone Saldırısı
 
Alıntı:

diyorumki Nickli Üyeden Alıntı (Mesaj 1040518563)
clone koruması --> [ .climit ac -/- .climit kapat -/- .clonelimit *Sayi* ]

Boto böyle bir eklenti yapabilirmiyiz / veya mirce


#~clone.tcl~###########################
#\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\#
# Coder by Namesis | #
#/////////////////////////////////////#
###############################~BASLA~#
# Clone korumasini acip kapatmak komutunun isleyecegi kanali belirtiniz.
set clone(operchan) "#Opers"
# Clone korumasi komut on eki.
# Kullanimi: !clone <on/off/durum>
# Bu komut on ekini degistirirseniz, belirlediginiz kelime komut on eki olarak kullanilir.
set clone(komut) "!clone"
# Clone limitini belirtiniz.
set clone(limit) "3"
# Sebeb belirtiniz.
set clone(reason) "Clone girisi tespit edildi By Anticode"
# Ban turunu belirtiniz.
# "1" - Kick
# "2" - Kick+Ban
# "3" - Kill
# "4" - zline
set clone(banturu) "4"
# Eger ustteki secenegi 1, 2 veya 3 olarak belirlerseniz clonelere yapilacak islemide burdan ayarlayabilirsiniz.
# Zline olarak belirlerseniz zaten zline'yi IP'ye atacagi icin butun bagli IP'ler atilacaktir.
# "0" - Sadece son giren clone
# "1" - Clonelerin hepsi
set clone(banall) "0"
# Clone ban maskini belirtiniz.
# "1" - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# "2" - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# "3" - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# "4" - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# "5" - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# "6" - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# "7" - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# "8" - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# "9" - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
set clone(banmask) "1"
# Zline atilan banin otomatik acilacagi sureyi belirtiniz.
# "30m" - 30 dakika
# "1h" - 1 saat
# "1d" - 1 gun
set clone(zlntime) "30m"
# Muaf hostlar.
set clone(muafhost1) "ircop.Arkadasca.Net"
set clone(muafhost2) "coadmin.Arkadasca.Net"
set clone(muafhost3) "servicesadmin.Arkadasca.Net"
set clone(muafhost4) "serveradmin.Arkadasca.Net"
set clone(muafhost5) "netadmin.Arkadasca.Net"
################################################## #########################################
# Ayarlamalar bu kadar. Lutfen bundan sonra ki kodlari ellemeyiniz, yoksa calismayabilir. #
################################################## #########################################
bind join - * clones:security
proc clones:security {nick uhost hand chan} {
global botnick clone
if {[lsearch -exact [channel info $clone(operchan)] +cloncmd] != -1} {
if {$nick == $botnick} { return 0 }
if {[string match -nocase $clone(muafhost1) [scan $uhost %*\[^@\]@%s]] || [string match -nocase $clone(muafhost2) [scan $uhost %*\[^@\]@%s]] || [string match -nocase $clone(muafhost3) [scan $uhost %*\[^@\]@%s]] || [string match -nocase $clone(muafhost4) [scan $uhost %*\[^@\]@%s]] || [string match -nocase $clone(muafhost5) [scan $uhost %*\[^@\]@%s]]} { return 0 }
set banmask [clone:banmask $uhost $nick]
set clones 0
foreach tara [chanlist $chan] {
if {[string equal -nocase [scan $uhost %*\[^@\]@%s] [scan [getchanhost $tara $chan] %*\[^@\]@%s]]} {
incr clones
lappend cln $tara
}
if {$clones >= $clone(limit)} {
if {$clone(banturu) == "1"} {
if {$clone(banall) == "0"} {
putquick "KICK $chan $nick :$clone(reason)"
return 0
}
if {$clone(banall) == "1"} {
foreach all1 [chanlist $chan] {
if {[string equal -nocase [scan $uhost %*\[^@\]@%s] [scan [getchanhost $all1 $chan] %*\[^@\]@%s]]} {
putquick "KICK $chan $all1 :$clone(reason)"
}
}
}
return 0
}
if {$clone(banturu) == "2"} {
if {$clone(banall) == "0"} {
putquick "MODE $chan +b $banmask"
putquick "KICK $chan $nick :$clone(reason)"
return 0
}
if {$clone(banall) == "1"} {
foreach all2 [chanlist $chan] {
if {[string equal -nocase [scan $uhost %*\[^@\]@%s] [scan [getchanhost $all2 $chan] %*\[^@\]@%s]]} {
putquick "MODE $chan +b $banmask"
putquick "KICK $chan $all2 :$clone(reason)"
}
}
}
return 0
}
if {$clone(banturu) == "3"} {
if {$clone(banall) == "0"} {
putquick "KILL $nick $clone(reason)"
}
if {$clone(banall) == "1"} {
foreach all3 [chanlist $chan] {
if {[string equal -nocase [scan $uhost %*\[^@\]@%s] [scan [getchanhost $all3 $chan] %*\[^@\]@%s]]} {
putquick "KILL $all3 $clone(reason)"
}
}
}
return 0
}
if {$clone(banturu) == "4"} {
putquick "ZLINE $nick $clone(zlntime) $clone(reason)"
return 0
}
}
}
}
}
setudef flag cloncmd
bind pub - $clone(komut) cloneonoff
proc cloneonoff {nick uhost hand chan text} {
global clone
set komut "[lindex $text 0]"
if {[string match -nocase $clone(operchan) $chan]} {
if {$komut == ""} { putquick "PRIVMSG $clone(operchan) :Kullanimi: $clone(komut) \002<on/off/durum>\002"; return 0 }
if {[string match -nocase "on" $komut]} { channel set $chan +cloncmd; putquick "PRIVMSG $clone(operchan) :Clone korumasi \002acildi\002."; return 0 }
if {[string match -nocase "off" $komut]} { channel set $chan -cloncmd; putquick "PRIVMSG $clone(operchan) :Clone korumasi \002kapatildi\002."; return 0 }
if {[string match -nocase "durum" $komut]} { if {[lsearch -exact [channel info $clone(operchan)] +cloncmd] != -1} { putquick "PRIVMSG $clone(operchan) :Clone korumasi \002acik\002." } else { putquick "PRIVMSG $clone(operchan) :Clone korumasi \002kapali\002." }
}
}
return 0
}
proc clone:banmask {uhost nick} {
global botnick clone
switch -- $clone(banmask) {
1 { set banmask "*!*@[lindex [split $uhost @] 1]" }
2 { set banmask "*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
3 { set banmask "*!*$uhost" }
4 { set banmask "*!*[lindex [split [maskhost $uhost] "!"] 1]" }
5 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
6 { set banmask "*$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
7 { set banmask "*$nick*!*@[lindex [split $uhost "@"] 1]" }
8 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split $uhost @] 1]" }
9 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }
default { set banmask "*!*@[lindex [split $uhost @] 1]" }
return $banmask
}
}
putlog "clone.tcl v1.0 - Coder by Namesis"
putlog "Iletisim: "
#~SON~#################################
#\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\#
# Coder by Namesis | #
#/////////////////////////////////////#
###########################~clone.tcl~#

Bu kodu mirce yada koruma botuna göre editleyemezmiyiz !


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk