#1
| ||||
| ||||
iP Takip Sistemi Addonu Addona girdiğiz ipler sunucuya girdiğinde size uyarı verir ve geçici olarak shun atar açılan ekranda istefiğiniz işlemi yapabilirsiniz. Admin ve ircopların işine yarayabilecek bir kod. Kod: on *:start:{ if (!$hget(ips)) { .hmake ips | .hload ips ips.mercy } if (!$hget(muafn)) { .hmake muafn | .hload muafn muafn.mercy } } alias ips { if !$dialog(ips) { .dialog -ms ips ips } } alias islem { if !$dialog(işlem) { .dialog -ms işlem işlem } } dialog işlem { title "İşlem Merkezi" size -1 -1 109 150 option dbu text " Nick :", 1, 6 6 25 8 edit "", 2, 40 4 65 13, read text " ident :", 3, 6 22 25 8 edit "", 4, 40 20 65 13, read text " iP :", 5, 6 38 25 8 edit "", 6, 40 36 65 13, read text " Şehir :", 7, 4 54 37 8 edit "", 8, 40 52 65 13, read box "", 12, 3 -2 105 69 text "Şuan Bu Kişiye Shun Atıldı", 15, 3 68 102 8, center button "Gline At", 9, 3 79 48 17 button "Shun Kaldır", 10, 55 79 48 17 button "Yardım'a Çek", 11, 3 98 48 17 button "Özel'e Al", 13, 55 98 48 17 button "Bu kişiyi Muaf Nicklere Ekle", 14, 3 117 100 12 box "", 16, 1 74 106 58 button "Kapat", 17, 2 133 104 15, ok } on *:dialog:işlem:init:*: { ;mdx MarkDialog $dname ; mdx SetDialog $dname bgcolor $rgb(237,351,219) ; mdx SetColor $dname 1 textbg $rgb(237,241,219) ;mdx SetColor $dname 1 background $rgb(287,291,219) ;mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 13 900 Verdana ; mdx SetColor $dname 1,2,3,4,5,6,7,8,15 background $rgb(237,241,219) ;mdx SetColor $dname 1,2,3,4,5,6,7,8,15 textbg $rgb(237,241,219) ;mdx SetColor $dname 15l text $rgb(199,92,2) } on *:dialog:işlem:sclick:13: { query $did(2).text } on *:dialog:işlem:sclick:14: { if $hget(muafn,$did(2).text).item { noop $input(Bu Nick Muaf Listede Mevcut,o,Muaf Uyarı) } else { if !$hget(muafn) { .hmake muafn 100 | .hadd -m muafn $did(2).text 1 | .hsave muafn muafn.mercy | shun $+(-*@,$did(6).text) | return $input(Nick Muaf Listeye Eklendi ve Shunu Kaldırıldı,o,Muaf Uyarı) } else { .hadd -m muafn $did(2).text 1 | .hsave muafn muafn.mercy | shun $+(-*@,$did(6).text) | return $input(Nick Muaf Listeye Eklendi ve Shunu Kaldırıldı,o,Muaf Uyarı) } } } dialog ips { title "Sorunlu IP Tespit Merkezi" size -1 -1 159 156 option dbu list 1, 6 13 64 74, size text " IP'ler", 2, 7 5 63 7 text " Muaf Nick'ler", 3, 88 5 64 8 list 4, 88 13 64 74, size edit "", 5, 6 91 64 12, multi autohs button "IP Ekle", 6, 6 107 64 12, flat edit "", 7, 88 91 64 12, multi autohs button "Muaf Nick Ekle", 8, 88 107 64 12, flat button "« « KAPAT » »", 15, 2 139 154 15, flat box "", 16, 2 -1 72 124 box "", 17, 84 -1 72 124 box "", 9, 2 122 154 16 text " Silmek için üstüne Çift tıklayınız", 10, 9 127 125 8 } on *:dialog:ips:*:*: { if $devent == init { mdx MarkDialog $dname mdx SetDialog $dname bgcolor $rgb(237,241,219) mdx SetFont $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 +b Turkish 13 950 Verdana mdx SetColor $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 textbg $rgb(237,241,219) mdx SetColor $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 background $rgb(237,241,219) mdx SetColor $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 text $rgb(0,0,0) mdx SetColor $dname 9,10,12,13,14,15 background $rgb(237,241,219) mdx SetColor $dname 9,10,12,13,14,15 textbg $rgb(237,241,219) mdx SetFont $dname 2,5,6,7,9,10,11,14 13 950 Verdana mdx SetColor $dname 9,10,15 textbg $rgb(237,241,219) mdx SetFont $dname 9,10,15 13 950 Verdana mdx SetColor $dname 2,3,10l text $rgb(199,92,2) var %:ips = 1 | while %:ips <= $hget(ips,0).item { .did -a $dname 1 $hget(ips,%:ips).item | inc %:ips } var %:muafn = 1 | while %:muafn <= $hget(muafn,0).item { .did -a $dname 4 $hget(muafn,%:muafn).item | inc %:muafn } } if $devent == sclick { if $did == 6 { if (*.* iswm $did(5)) { if $hget(ips,$did(5)) { return } | if !$hget(ips) { .hmake ips 100 | .write ips.mercy | return } | .hadd -ms ips $did(5) $rand(10,999) | .hsave -o ips ips.mercy | did -a $dname 1 $did(5) | did -r $dname 5 } } if $did == 8 { if $did(7) { if #* iswm $did(7) || *.* iswm $did(7) { return } | if !$hget(muafn) { .hmake muafn 100 | .write muafn.mercy | return } | if $hget(muafn,$did(7)) { return } | .hadd -ms muafn $did(7) $rand(10,9999) | .hsave muafn muafn.mercy | .did -a $dname 4 $did(7) | did -r $dname 7 } } if $did == 10 { if %:nick { .sajoin %:nick #0,0 | unset %:nick | unset %:ipp } } if $did == 12 { if %:nick { .shun $+(-*@,%:ipp) | unset %:nick | unset %:ipp } } if $did == 11 { if %:ipp { gline $+(*@,%:ipp) - Sorunlu | unset %:ipp | unset %:nick } } if $did == 13 { if %:nick { var %:com = 1 | while %:com <= $comchan(%:nick,0) { ban -k $comchan(%:nick,%:com) %:nick Sorunlu | inc %:com } unset %:nick | unset %:ipp } } if $did == 15 { unset %:nick | unset %:ipp | .dialog -c $dname } } if $devent == dclick { if $did == 1 { .hdel ips $hfind(ips,$did(1).seltext,1,W).item | .hsave -o ips ips.mercy | .hload ips ips.mercy | .did -d $dname 1 $did(1).sel } if $did == 4 { .hdel muafn $hfind(muafn,$did(4).seltext,1,W).item | .hsave -o muafn muafn.mercy | .hload muafn muafn.mercy | .did -d $dname 4 $did(4).sel } } } on *:dialog:işlem:*:*: { if $devent == init { renklendirici 20 } if $devent == sclick { if $did == 9 { gline $+(*@,$did(6).text) Sorunlu | dialog -c $dname } if $did == 10 { .shun $+(-*@,$did(6).text) | return $input(Shun Kaldırıldı,o,İşlem Merkezi) } if $did == 11 { sajoin $did(2).text #Yardim } } } on *:snotice:*Client connecting on port*:{ if $hget(muafn,$9) { return } .enable #ips | .who +I $9 var %:ip = 1 | while %:ip <= $hget(ips,0).item { if $+($hget(ips,%:ip).item,*) iswm $token($token($10,2,64),1,41) { .islem | set %:nick $9 | set %:ipp $token($token($10,2,64),1,41) | .shun %:nick - Sorunlu | .splay $mircdirsounds\uyar.wav | break } | inc %:ip } } #ips off raw 352:*:{ haltdef var %:ip = 1 | while %:ip <= $hget(ips,0).item { if $+($hget(ips,%:ip).item,*) iswm $4 { if !$dialog(işlem) { .dialog -ms işlem işlem } var %:rand $rand(10,9999999) .sockopen $+(bul,%:rand) anonymouse.org 80 | .sockmark $+(bul,%:rand) $4 .did -a işlem 2 $6 | did -a işlem 4 $3 | did -a işlem 6 $4 | did -a işlem 8 Bekleyin.. break } inc %:ip } .disable #ips } #ips end alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:bul*:{ var %:city sockwrite -n $sockname %:city GET /cgi-bin/anon-www.cgi/http://whatismyipaddress.com/ip/ $+ $sock($sockname).mark HTTP/1.1 %:city Accept: text/html, application/xhtml+xml, */* %:city Accept-Language: tr-TR %:city User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0) %:city Host: anonymouse.org %:city DNT: 1 %:city Connection: Keep-Alive %:city $crlf if $dialog(işlem) { .did -r işlem 8 | .did -a işlem 8 Siteye Baglanıldı.. } } on *:sockread:bul*:{ if ($sockerr) { .sockclose $sockname | if $dialog(işlem) { .did -r işlem 8 | .did -a işlem 8 Hata.. | return } } var %city | sockread %city if (Country: isin %city) { if $token($htmlfree(%city),2,58) != Turkey { if $dialog(işlem) { sockclose $sockname | .did -r işlem 8 | .did -a işlem 8 Yurt Dışı... | return } } } if (City: isin %city) { if $dialog(işlem) { .did -r işlem 8 | .did -a işlem 8 $token($htmlfree(%city),2,58) | sockclose $sockname } } }
__________________ www.ircde.net iRc Platformu |
Etiketler |
ip koruması, ip takip, irc ip takip sistemi |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Seçenekler | |
Stil | |
| |