[script]
n0=on *:start:{ ykle | ykle1 | ykle2 | .connect_ aç | korumaontheircd | .proal_ | .timeral 0 18000 .proal_ }
n1=alias ykle { $iif(!$isfile(proxip.hs),.write proxip.hs) | .hmake proxip 100 | .hload proxip proxip.hs }
n2=alias ykle1 { $iif(!$isfile(krlst.hs),.write krlst.hs) | .hmake krlst 100 | .hload krlst krlst.hs }
n3=alias ykle2 { $iif(!$isfile(prox.hs),.write prox.hs) | .hmake prox 100 | .hload prox prox.hs }
n4=alias korumaontheircd { .set %prox on | .set %aynidnt off | .set %:yon off | .set %:vpn off }
n5=alias korumaontheircdfull { .set %prox on | .set %aynidnt on | .set %:vpn on }
n6=alias korumaoff { .set %prox off | .set %aynidnt off | .set %:vpn off }
n7=alias proal_ {
n8=  if $hget(Proxy) { .hfree -sw Proxy }
n9=  var %::rand $r(1,999999)
n10=  sockopen $+(alpro,%::rand) www.socks24.org 80
n11=  $+(.timer,otoproxy) 1 40 guncelpro
n12=}
n13=; alias guncelpro { .msg #güvenlik Proxy list güncellendi toplam4 $hget(Proxy,0).data }
n14=
n15=alias connect_ {
n16=  if ($1 = aç) debug -i on connect_ 
n17=  if ($1 = kapat) debug off
n18=  tokenize 32 $1-
n19=  if $1 = <- && $3 = NOTICE {
n20=    if ($9 == connecting) && ($level($13) != muafnick) && ($level($remove($token($14,2,64),$chr(41))) != muafips) {
n21=      var %:r = $r(1,999999999999), %ip2 = $remove($token($14,2,64),$chr(41))
n22=      .sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($remove($token($14,2,64),$chr(41)),¿,$13)
n23=      if (%aynidnt = on) && ($13 === $right($gettok($14,1,64),-1)) { kill $13 7Nickiniz13&4Identiniz 8Aynıdır 9Değişiriniz %ver1 } 
n24=      if (%prox == on) {
n25=        ;if $hget(proxy,%ip2) { kline $+(*@,%ip2) +0 2Sunucumuza 4Proxy/Tor/Socks/Wingate 2ile girmek yasak!! %ver1 }
n26=        ;elseif $hfind(prox,$13,1,W).data { kline $13 +0 8Yasaklı 7Nick 4Olarak 9Algılandınız. %ver1 }
n27=        ;elseif $hfind(proxip,%ip2,1,W).data { kline $+(*@,%ip2) +0 7Proxy 4Olarak 9Algılandınız. %ver1 }     
n28=        ;elseif $hfind(krlst,$+($13,!,$remove($14,$chr(40),$chr(41))),1,W).data { kline $13 +0 7Sunucuya 4Girişiniz 9Yasaklanmıştır. 6! %ver1 }
n29=      }
n30=    }
n31=  }
n32=}
n33=on *:sockopen:pro*:{ 
n34=  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 
n35=  sockwrite -nt $sockname Host: www.ipaddresslocation.org 
n36=  sockwrite -nt $sockname Connection: keep-alive
n37=  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
n38=  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
n39=  sockwrite -nt $sockname $crlf
n40=}
n41=
n42=on *:sockread:pro*:{  
n43=  if ($sockerr) { .sockclose $sockname | return }
n44=  var %:pro | sockread -f %:pro
n45=  if (IP Country: isin %:pro) && (*Turkey* iswm $token($htmlfree(%:pro),2,58) ) && (%:yon == on) { 
n46=    .inc %:yici
n47=    if (%:yici >= 2) { .set %:yon off | .unset %:yici }
n48=  }
n49=  if (IP Country: isin %:pro) && (*Turkey* !iswm $token($htmlfree(%:pro),2,58) ) {
n50=    if ($token($sock($sockname).mark,2,191) != $read(nickmuaf.txt)) {
n51=      .inc -u3 %:yd?s?
n52=      if (%:yon == on) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Yurtdışı 4Girişi 9Yasaktır. 6! %ver1  }
n53=      elseif (%:yd?s? >= 7) { .set %:yon on | msg #güvenlik [ Yurt Dışı Girişi ] - Yurt Dışı Girişleri Kapatıldı. }
n54=    }
n55=  }
n56=  if (ISP Provider: isin %:pro) { 
n57=    var %sglyc = $token($htmlfree(%:pro),2,58)
n58=    if (Virtua isin %sglyc) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Proxy 4Girişi 9Yasaktır. 6! %ver1   }
n59=    elseif (%:vpn == on) { 
n60=      if (Services isin %sglyc) || (Ocean isin %sglyc) || (SG.GS isin %sglyc) || (SurfEasy isin %sglyc) || (ISPPro isin %sglyc) || (WorldStream isin %sglyc) || (SoftLayer isin %sglyc) || (OVH isin %sglyc) || (Liteserver isin %sglyc) {
n61=        kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Vpn 4Kullanımı 9Yasaktır. 6! %ver1 
n62=        msg #güvenlik $+(*@,$token($sock($sockname).mark,1,191)) 4VPN1 Kullandigindan sunucudan uzaklastirildi.
n63=      }
n64=    }
n65=  } 
n66=  if (%:yon == off) {
n67=    if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
n68=    if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
n69=    if (ISP Provider: isin %:pro) { 
n70=      var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
n71=      var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
n72=      if ($window(@half) == $token($server,2,46)) { window -ne @half } 
n73=      msg #System 2[ 4Giriş 2] *** Nick:4 %:n 3- IP:4 %ip 3- Ulke:4 %ülke 3- Sehir:4 %sehir 3- ISP:4 %:isp 3- Saat:4 $timestamp ident %:i $tam($hget(ident,$nick)
n74=      .hfree -sw %:n
n75=      sockclose $sockname
n76=    }
n77=  }
n78=}
n79=on *:sockopen:alpro*:{ var %:proal sockwrite -n $sockname | %:proal GET / HTTP/1.1 | %:proal Host: www.socks24.org | %:proal User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0 | %:proal Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 | %:proal Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 | %:proal Connection: keep-alive | %:proal $crlf + $crlf }
n80=on *:sockread:alpro*:{ var %proal | sockread %proal | if (*timestamp-link*.html* iswm %proal) { var %rand $rand(10,999999) | .sockopen $+(hpsproal,%rand) www.socks24.org 80 | .sockmark $+(hpsproal,%rand) $token($token(%proal,3-,47),1,39) } }
n81=on *:sockopen:hpsproal*:{ var %:proalhps sockwrite -n $sockname | %:proalhps GET / $+ $sock($sockname).mark HTTP/1.1 | %:proalhps Host: www.socks24.org | %:proalhps $crlf + $crlf }
n82=on *:sockread:hpsproal*:{ var %proalhps | sockread %proalhps | if $regex(%proalhps,(\d+\.\d+\.\d+\.\d+)) { .hadd -m Proxy $regml(1) IP } }
n83=
n84=on *:text:*:#güvenlik:{
n85=  if $regex($1,/^[!\.]komutlar$/Si) {  msg #güvenlik 4Sohbet2Ederiz 1Guvenlik System | msg #güvenlik !korumaon manuel eklenen proxy korumasini aktif eder. | msg #güvenlik !korumafullon tum proxy korumalarini aktif eder. | msg #güvenlik !korumaoff proxy korumayi deaktif eder | msg #güvenlik !proxynick ekle Nick Lamer nickleri proxy'e ekler | msg #güvenlik !proxyip ekle ipadresi ( Ipadresini yasaklar ) | msg #güvenlik !muafnick ekle nick ( Proxy/random/botnet'ten muaf tutar ) | msg #güvenlik !muafnick sil nick Muaf listeden kaldirir | msg #güvenlik Spam komutlarini gormek icin !spams  }
n86=  if $regex($1,/^[!\.]korumaon$/Si) { .korumaontheircd | msg #güvenlik Koruma Açık }
n87=  if $regex($1,/^[!\.]korumaoff$/Si) { .korumaoff | msg #güvenlik Koruma Kapalı }
n88=  if $regex($1,/^[!\.]korumafullon$/Si) { .korumaontheircdfull | msg #güvenlik Koruma Full Açık } 
n89=  if $regex($1,/^[!\.]proxynick$/Si) {
n90=    if $regex($2,/^ekle$/Si) {
n91=      if (!$3) { .timer -h 1 500 msg # Lütfen nick belirtiniz | return }        
n92=      if $hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Nick Zaten Listede mevcut $+([,$chr(32),$hget(prox,$hfind(prox,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return }
n93=      var %n = $left($calc($ctime * $rand(1000,9999)),7)
n94=      .hadd -m prox %n $strip($3)
n95=      .hsave -o prox prox.hs
n96=      .timer -h 1 500 msg # Proxy Listesine Eklenen Kayıt: $strip($3)
n97=    }
n98=    if $regex($2,/^s[ıiİ]l$/Si) {
n99=      if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return }        
n100=      if !$hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy Nick Listesinde Bulunmamaktadır. | return }
n101=      .hdel -m prox $hfind(prox,$strip($3),1,W).data
n102=      .hsave -o prox prox.hs
n103=      .timer -h 1 500 msg # Proxy Listesinden Silinen Kayıt: $strip($3)
n104=    }
n105=    if $regex($2,/^l[ıiİ]st$/Si) {
n106=      if ($hget(prox,0).data == 0) { .timer -h 1 500 msg # Proxy Nick Listesi bos. | return }
n107=      .timer -h 1 500 msg # -
n108=      var %:ya = 1 | while (%:ya <= $hget(prox,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(prox,%:ya).data ] | inc %:ya }
n109=      .timer -h 1 500 msg # -
n110=    } 
n111=  } 
n112=  if $regex($1,/^[!\.]proxyip$/Si) {
n113=    if $regex($2,/^ekle$/Si) {
n114=      if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return }        
n115=      if $hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz IP Zaten Listede mevcut $+([,$chr(32),$hget(proxip,$hfind(proxip,$strip($3),1,W).data),$chr(32),]) Eslesen Veri.. | return }
n116=      var %:r = $left($calc($ctime * $rand(1000,9999)),7)
n117=      .hadd -m proxip %:r $strip($3)
n118=      .hsave -o proxip proxip.hs
n119=      .timer -h 1 500 msg # Proxy IP Listesine Eklenen Kayıt: $strip($3)
n120=    }
n121=    if $regex($2,/^s[ıiİ]l$/Si) {
n122=      if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return }        
n123=      if !$hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy IP Listesinde Bulunmamaktadır. | return }
n124=      .hdel -m proxip $hfind(proxip,$strip($3),1,W).data
n125=      .hsave -o proxip proxip.hs
n126=      .timer -h 1 500 msg # Proxy IP Listesinden Silinen Kayıt: $strip($3) 
n127=    }
n128=    if $regex($2,/^l[ıiİ]st$/Si) {
n129=      if ($hget(proxip,0).data == 0) { .timer -h 1 500 msg # Proxy IP Listesi bos. | return }
n130=      .timer -h 1 500 msg # -
n131=      var %:g = 1 | while (%:g <= $hget(proxip,0).data) { .timer -h 1 500 msg # %:g $+ ) [ $hget(proxip,%:g).data ] | inc %:g }
n132=      .timer -h 1 500 msg # -
n133=    }  
n134=  }
n135=  if $regex($1,/^[!\.]m[uU]afn[ıiİ][cçÇ]k$/Si) {
n136=    if $2 == list {
n137=      .timer -h 1 500 msg $chan listeleniyor.
n138=      var %:mnck = 1, %mnc = $ulist(*,muafnick,0)
n139=      .timer -h 1 500 msg $chan - Toplam Muaf Nick Sayısı:4 %mnc
n140=      while %:mnck <= %mnc  {
n141=        .timer -h 1 500 msg $chan $+(%:mnck,$chr(41)) $iif($ulist(*,muafnick,%:mnck) == $nick,$+(,$v1,),$v1)
n142=        inc %:mnck 1
n143=      }
n144=    }
n145=    if $2 == ekle { 
n146=      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek nicki yazınız | return }
n147=      if $ulist($3,muafnick,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }
n148=      .auser muafnick $3- 
n149=      .timer -h 1 500 msg $chan $+(",,$3,,") Muaf Nick Listesine Eklendi
n150=    }
n151=    if $2 == sil { 
n152=      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek Nicki Yazınız | return }
n153=      .ruser muafnick $3- | .timer -h 1 500 msg $chan $+(",,$3,,")  Muaf nick Listesinden Silindi 
n154=    }
n155=  }
n156=  if $regex($1,/^[!\.]m[uU]af[ıiİ]p$/Si) {
n157=    if $2 == list {
n158=      .timer -h 1 500 msg $chan listeleniyor.
n159=      var %:mips = 1, %mip = $ulist(*,muafips,0)
n160=      .timer -h 1 500 msg $chan - Toplam Muaf IP Sayısı:4 %mip
n161=      while %:mips <= %mip  {
n162=        .timer -h 1 500 msg $chan $+(%:mips,$chr(41)) $iif($ulist(*,muafips,%:mips) == $nick,$+(,$v1,),$v1)
n163=        inc %:mips 1
n164=      }
n165=    }
n166=    if $2 == ekle { 
n167=      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek IP - HOST yazınız | return }
n168=      if $ulist($3,muafips,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }
n169=      .auser muafips $3- 
n170=      .timer -h 1 500 msg $chan $+(",,$3,,") Muaf IP Listesine Eklendi
n171=    }
n172=    if $2 == sil { 
n173=      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek IP - HOST Yazınız | return }
n174=      .ruser muafips $3- | .timer -h 1 500 msg $chan $+(",,$3,,")  Muaf IP Listesinden Silindi 
n175=    }
n176=  }
n177=  if $regex($1,/^[!\.]karaliste$/Si) {
n178=    if (!2) { .timer -h 1 500 msg # Kullanımı: !karaliste ekle/sil/list | return }
n179=    if $regex($2,/^ekle$/Si) {
n180=      if (!$3) { .timer -h 1 500 msg # Lütfen FullAdres belirtiniz | return }        
n181=      if $hfind(krlst,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Zaten KaraListede mevcut $+([,$chr(32),$hget(krlst,$hfind(krlst,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return }
n182=      var %n1 = $left($calc($ctime * $rand(1000,9999)),7)
n183=      .hadd -m krlst %n1 $strip($3)
n184=      .hsave -o krlst krlst.hs
n185=      .timer -h 1 500 msg # KaraListeye Eklenen Kayıt: $strip($3)
n186=    }
n187=    if $regex($2,/^s[ıiİ]l$/Si) {
n188=      if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return }        
n189=      if !$hfind(krlst,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) KaraListede Bulunmamaktadır. | return }
n190=      .hdel -m krlst $hfind(krlst,$strip($3),1,W).data
n191=      .hsave -o krlst krlst.hs
n192=      .timer -h 1 500 msg # KaraListeden Silinen Kayıt: $strip($3)
n193=    }
n194=    if $regex($2,/^l[ıiİ]st$/Si) {
n195=      if ($hget(krlst,0).data == 0) { .timer -h 1 500 msg # KaraListe bos. | return }
n196=      .timer -h 1 500 msg # -
n197=      var %:ya = 1 | while (%:ya <= $hget(krlst,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(krlst,%:ya).data ] | inc %:ya }
n198=      .timer -h 1 500 msg # -
n199=    }
