Bu kod ile mIRC script üzerinden bagli oldugunuz sunucu sayısını gösterir ve hangi sunuculara baglisiniz size bilgi verebilir. $scon identifiers ile bunu daha önce göstermiştik. Şimdi $scon dan yararlanarak listeyecegiz.
Görünümü : [02:57] * Server Baglantisi[ 4 ]: Bagli oldugunuz sunucular: Mircclub.Org, Sohbetc.Org, Rizeliyiz.Net, Mircdb.Net
Kullanımı : /servers yazarak görebilirsiniz.
Kaynak : Mircclub.Org
Mirc scriptinizde kullabileceğiniz eğlenceli bir kod !zar komutu ile çalışır kazanan kullanıcıya hediye gönderir.
Bu koruma ile giren kullanıcıların nick, ident ve hostunu kontrol edip eklediğiniz nick , ident ve hostlara gzline atmanıza yarayan alternatif bir karaliste addonu.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
### /lamer komutu ile korumayı açabilirsiniz ### mircclub.org alias lamer { /dialog -m start start } dialog start { title "Ident Nick Ekstra Korumaları" size -1 -1 467 274 option pixels box "", 11, 19 13 430 256 text "Güvenlik Giriş Ayarları", 1, 136 3 167 20 edit "", 3, 125 37 186 20, center button "Nick gzline liste ekle", 8, 30 70 190 30, flat button "İdent gzline liste ekle", 4, 30 108 190 30, flat button "Host gzline liste ekle", 5, 30 148 190 30, flat button "Host gzline list'en sil", 2, 240 148 190 30, flat button "İdent gzline list'en sil", 6, 241 108 190 30, flat button "Nick gzline list'en sil", 7, 240 70 190 30, flat button "Kapat", 9, 125 190 192 29, flat text " Bu koruma sunucuya hep aynı nick yada ident ile saldırıları önlemek için yazılmıştır.", 10, 24 228 413 16 } on 1:dialog:start:*:*: { if ($devent == init) { did -a start 3 $null } if ($devent == sclick) { if ($did == 8 ) { /auser gzline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline Liste eklendi } } if ($devent == sclick) { if ($did == 9 ) { /dialog -c start start } } if ($devent == sclick) { if ($did == 7 ) { /ruser gzline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline List'en silindi } } if ($devent == sclick) { if ($did == 2 ) { /ruser gzline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline List'en silindi } } if ($devent == sclick) { if ($did == 4 ) { /auser gzline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline Liste eklendi } } if ($devent == sclick) { if ($did == 6 ) { /ruser gzline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline Listen silindi } } if ($devent == sclick) { if ($did == 5 ) { /auser gzline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline Liste eklendi } } } on gzline:join:#:{ gzline $nick : 4,1 Security Korumasi 4 $time - } |
Proxy koruması sorgulu sorgu cevaplarını istediğiniz log kanalına yansıtır. %95 civarı başarılı saldırıları büyük çoğunlukla kesmenize yarayabilir faydalı bir kod.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
# Add-on u ekledikten sonra sağ tıklayıp log kanalını ayarlandıktan sonra aktif ediniz. # Muaf port için ilgili satırı çoğaltabilirsiniz. menu * { Proxy Koruması .Aç:/.enable #ProxyKoruma | echo -a Proxy koruması açıldı.. .Kapat:/.disable #ProxyKoruma | echo -a Proxy koruması kapatıldı.. .- .Log Kanalı:.set %proxylogkanali $$?="Örnek #kanal1,#kanal2" } #ProxyKoruma off on *:snotice:*Client connecting*:{ ; alt satır kopyalanarak muaf port eklenebilir if $remove($8,1,33,:) == 7000 { halt } .who +I $token($token($4-,2,58),1,32) } raw 352:*:{ var %:r $+($left($md5($ticks),$r(5,20)),$6) sockopen $+(proxy,%:r) proxy.turkirc.org 80 sockmark $+(proxy,%:r) $+($4,¿,$6) } on *:sockopen:proxy*:{ sockwrite -nt $sockname GET $+(/?ipv4=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */* sockwrite -nt $sockname Accept-Language: tr-TR sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729) sockwrite -nt $sockname Connection: Keep-Alive sockwrite -nt $sockname $crlf } on *:sockread:proxy*:{ if ($sockerr) { .sockclose $sockname | return } var %:proxy | sockread -f %:proxy | tokenize 32 %:proxy ;msg %proxylogkanali -a %:proxy if $regex($1-,/sonuc red/i) { gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Proxy Yasak! /msg %proxylogkanali (4GİRİŞ) $token($sock($sockname).mark,1,191) numaralı IP Proxy'dir. (Nick: $token($sock($sockname).mark,2,191) $+ ) sockclose $sockname return } if $regex($1-,/sonuc green/i) { /msg %proxylogkanali (3GİRİŞ) $token($sock($sockname).mark,1,191) numaralı IP Proxy degildir. (Nick: $token($sock($sockname).mark,2,191) $+ ) sockclose $sockname return } if $regex($1-,/sonuc orange/i) { /msg %proxylogkanali (7GİRİŞ) $token($sock($sockname).mark,1,191) numaralı IP sorgulanamadı! (Nick: $token($sock($sockname).mark,2,191) $+ ) sockclose $sockname return } } #ProxyKoruma end |
