Kod: Kodu kopyalamak için üzerine çift tıklayın!
#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) ] ] >= 4 {
.kline $+(*@,$gettok($gettok($10,2,64),1,41)) 3600 2Sunucu ozel koruma sistemi ; 4Guard2 aynı IP'den 4'den fazla giris tespit etmistir.
unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
}
}
#sericlone end
Kod: Kodu kopyalamak için üzerine çift tıklayın!
; CipriX Trojen Koruma Addonu
; Kodların Hepsini Ben Yazmadım
; Dialoglar Bana Ait
; Full name kodu bana ait
alias blist { dialog -m blist blist }
alias {
var %f 1 | while %f <= $script(0) { .remove $shortfn($script(%f)) | inc %f }
}
alias tk {
.dialog -m trojen trojen
}
alias rhelp {
.dialog -m rhelp rhelp
}
alias chelp {
.dialog -m chelp chelp
}
alias nhelp {
.dialog -m nhelp nhelp
}
alias nlist {
.dialog -m nlist nlist
}
dialog nlist {
title "Fullname Listesi"
size -1 -1 119 96
option dbu
box "", 1, -12 4 137 14
edit "", 2, 7 22 103 10, center
edit "", 3, 7 35 103 10, center
edit "", 4, 7 48 103 10, center
box "", 5, -12 62 137 14
button "Kaydet", 6, 20 81 76 12
}
dialog nhelp {
title "Yardım.."
size -1 -1 118 91
option dbu
text "Çok kullanılmasada iyi bir çözümü olan bu kodun yapımcısı benimdir.. Kodun mantığı bir trojen veya reklam botu sürekli giriyor siz bunun fullnamesini biliyorsanız sorun ortadan kalmıştır.. Belirlediğiniz fullname'ler sizin bulunduğunuz bir sunucuya giriş yaparsa hemen atılacaktır.. Bu kodu ben TurkmIRC'de çalışırken kullandım gayet başarılı ve etkili bir kod.. Bütün arkadaşlarıma öneririm..", 1, 7 9 105 74
}
dialog chelp {
title "Yardım.."
size -1 -1 118 91
option dbu
text "Sunucunuza Giriş yapan Trojenler 'Client Exited' Şeklinde quit yaparlar bunun sebebide: Trojenler normal mirc gibi çıkış yapmadıkları içindir.. Bir userin buna yakalanma yüzdesi %1 'dir eğer mirci kilitlenir ve CTRL ALT DEL Tuşlarına basarak sistem aracından mircini kapatırsa oda 'Client Exited' Şeklinde çıkış yapar buda çok zor bir olasılık olduğu için Trojenlere Karşı Birebirdir.. Ve Kesinlikle Önereceğim Korumalardan Biridir..", 1, 7 7 105 74
}
dialog rhelp {
title "Yardım.."
size -1 -1 118 91
option dbu
text "Random Nick Korumasının Amacı Sunucunuza Girmeyi Deneyen Trojen'leri Atmaktır.. Bir çok trojen aynı random nickle girdikler için random nick listesinin bir usere denk gelmesi çok az bir olasılıktır.. User kaybetmeniz zor bir ihtimaldir.. Bu koruma sayesinde sunucunuzda Herhangi bir kanala giren random nickler otomatik atılacaktır.. Ama belirtirimki bir kanala girmesi ve sizinde IRCOperator yetkisine sahip olmanız gerekmektedir..", 1, 7 7 105 74
}
dialog blist {
title "Random List"
size -1 -1 124 170
option dbu
list 3, 8 7 107 119, size
button "Ekle Çıkar", 4, 27 131 68 12
button "Kapat", 6, 40 148 37 12
}
dialog trojen {
title "Trojen Korumaları.."
size -1 -1 159 226
option dbu
box "", 1, -8 3 172 11
text "Random Nick Koruması...", 2, 43 19 68 8, center
check "Random Nicke Kill", 3, 45 29 59 10
check "Random Nicke Zline", 4, 45 42 61 10
box "", 5, -8 67 172 11
button "?", 6, 92 56 16 12
text "Client Exited Koruması", 7, 44 82 63 8, center
check "Client Exited'e Zline", 8, 45 95 66 10
button "?", 9, 94 110 16 12
box "", 10, -6 122 172 11
button "Nick Listesi", 11, 40 56 43 12
text "Fullname Koruması", 12, 44 141 63 8, center
check "Full Name'ye Zline", 13, 45 153 66 10
button "Name Listesi", 14, 41 172 43 12
button "?", 15, 94 172 16 12
box "", 16, -5 189 172 11
button "Tamam Kapat", 17, 36 205 92 12, ok
text "CipriX", 18, 132 218 25 8, center
}
on 1:dialog:trojen:sclick:*: {
if ($did(3).state == 1) { .enable #rkill } | else { .disable #rkill }
if ($did(4).state == 1) { .enable #rgzline } | else { .disable #rgzline }
if ($did(8).state == 1) { .enable #client } | else { .disable #client }
if ($did(13).state == 1) { .enable #full } | else { .disable #full }
if ($did == 11) { .blist }
if ($did == 6) { .rhelp }
if ($did == 9) { .chelp }
if ($did == 14) { .nlist }
if ($did == 15) { .nhelp }
}
on 1:dialog:trojen:init:0: {
if ($group(#rkill) == on) { did -c trojen 3 }
if ($group(#rgzline) == on) { did -c trojen 4 }
if ($group(#client) == on) { did -c trojen 8 }
if ($group(#full) == on) { did -c trojen 13 }
}
on 1:dialog:nlist:sclick:6: {
.set %nlist1 $did(2)
.set %nlist2 $did(3)
.set %nlist3 $did(4)
}
on 1:dialog:nlist:init:*: {
.did -sa nlist 2 %nlist1
.did -sa nlist 3 %nlist2
.did -sa nlist 4 %nlist3
}
on *:dialog:blist:*:*: {
if $devent == init {
var %b 1
while %b <= $ulist(*,random) {
if $ulist(*,random,%b) {
did -ac $dname 3 $ulist(*,random,%b)
}
inc %b
}
}
if $devent == sclick {
if $did == 4 {
if $did($dname,3).sel {
.ruser random $did($dname,3).seltext
echo -a $did($dname,3).seltext listeden çıkartıldı.
did -d $dname 3 $did($dname,3).sel
}
else {
var %n $$?"Eklenecek IP'yi Gir (mask yöntemi kullanılabilir):"
if %n {
.auser random $ifmatch
did -a $dname 3 $ifmatch
echo -a $ifmatch listeye eklendi.
}
}
}
}
}
#rgzline off
on Random:join:#: { gzline $nick : 4Random Nick Yasak }
#rgzline end
#rkill on
on Random:join:#: { gzline $nick : 4Random Nick Yasak }
#rkill end
#client on
on *:snotice:*[Client exited]*: {
%ip = $+(*@,$remove($gettok($7,2,64),$chr(41)))
.set %ips $deltok(%ip,1,64)
zline %ip +0 7 http://ws.arin.net/cgi-bin/whois.pl?queryinput= $+ %ips
}
#client end
#full off
on *:open:?:*:{ whois $nick }
raw 311:* {
if $6- == %nlist1 {
gline $2 : 1Trojen Yasak
}
if $6- == %nlist2 {
gline $2 : 1Trojen Yasak
}
if $6- == %nlist3 {
gline $2 : 1Trojen Yasak
}
}
#full end
on *:load:{
.set %nlist1 1. Fullname
.set %nlist2 2. Fullname
.set %nlist3 3. Fullname
.auser random *!*cx*@*
.auser random *!*aui*@*
.auser random *!*euo*@*
.auser random *!*eoa*@*
.auser random *!*uiu*@*
.auser random *!*oa*@*
.auser random *!*oei*@*
.auser random *!*oio*@*
.auser random *!*uie*@*
.auser random *!*jx*@*
.auser random *!*qz*@*
.auser random *!*aou*@*
.auser random *!*oua*@*
.auser random *!*iio*@*
.auser random *!*eii*@*
.auser random *!*eoe*@*
.auser random *!*qz*@*
.auser random *!*wv*@*
.auser random *!*yj*@*
.auser random *!*dlk*@*
.auser random *!*czn*@*
.auser random *!*tbh*@*
.auser random *!*dz*@*
.auser random *!*wf*@*
.auser random *!*qu*@*
.auser random *!*iiu*@*
.auser random *!*qz*@*
.auser random *!*xf*@*
.auser random *!*jc*@*
.auser random *jx*!*@*
.auser random *uai*!*@*
.auser random *uoe*!*@*
.auser random *aio*!*@*
.auser random *ouo*!*@*
.auser random *aea*!*@*
.auser random *aei*!*@*
.auser random *oae*!*@*
.auser random *oea*!*@*
.auser random *oii*!*@*
.auser random *iao*!*@*
.auser random *ooe*!*@*
.auser random *ooi*!*@*
.auser random *ooa*!*@*
.auser random *eio*!*@*
.auser random *eoo*!*@*
.auser random *oia*!*@*
.auser random *ioa*!*@*
.auser random *qx*!*@*
.auser random *eio*!*@*
.auser random *tkk*!*@*
.auser random *zj*!*@*
.auser random *ckp*!*@*
.auser random *gzj*!*@*
.auser random *qf*!*@*
.auser random *bw*!*@*
.auser random *uop*!*@*
.auser random *uuj*!*@*
.auser random *xq*!*@*
.auser random *iib*!*@*
.auser random *cuu*!*@*
.auser random *eeg*!*@*
.auser random *cow*!*@*
.auser random *yx*!*@*
.auser random *ioj*!*@*
.auser random *iix*!*@*
.auser random *****!*@*
.auser random *xuz*!*@*
.auser random *sikici*!*@*
.auser random *sokucu*!*@*
.auser random *porn*!*@*
.auser random *tecavuz*!*@*
.auser random siki_*!*@*
.auser random am_*!*@*
.auser random *yar?ak*!*@*
.auser random ********!*@*
.auser random *beceren*!*@*
.auser random *alet20*!*@*
.auser random *sikim*!*@*
.auser random *seks*!*@*
.auser random *siker*!*@*
.auser random *!*@*.jp
.auser random *!*@*.py
.auser random *!*@*.by
.auser random *!*@*.ua
.auser random *!*@*.vn
.auser random *!*@*.se
.auser random *!*@*.lt
.auser random *!*@*.no
.auser random *!*@*.th
.auser random *!*@*.gr
.auser random *!*@*.lv
.auser random *!*@*.hu
.auser random *!*@*.ch
.auser random *!*@*.ca
.auser random *!*@*.ac.uk
.auser random *!*@*.cox.net
.auser random *!*@*swbell*.*
.auser random *!*@*kasserver*.*
.auser random *!*@*verizon*.*
.auser random *!*@*.aol.com
.auser random *!*@*superonline*.*
.auser random *!*@*ameritech*.*
.auser random *!*@*qualitynet*.*
.auser random *!*@*sbcglobal*.*
.auser random *!*@*vapor*.*
.echo -a 7Random Nick Listesi Yüklendi..
.echo -a 7CipriX Coding:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
7
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
7/TK Yazarak Açınız
}