IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)

- - Proxy Koruması Güncel(Debug/Socket) (https://www.ircforumlari.net/mirc-parca-kodlar/784621-proxy-korumasi-gunceldebug-socket.html)

Cevap: Proxy Koruması Güncel(Debug/Socket)

Karaliste ekle sil olayı çalışmıyor koda yardımcı ola bilirmisin..

1.Karaliste ekle sil olayı komutu kullaninca birşey cıkmıyor
2. ident nick ayni ise mauf eklene biliyormu
4.network penceresi mecburimi onu kaldira biliyormuyuz ?
5. ve önemli kısmı yurtdisi yogun giris esnasinda aktif oluyor ya koruma
.giriskodu aktif edebilirmi paya pasif edebilirmi bitiginde.

<OXM> !karaliste list
[00:35] <OXM> Kullanımı: !karaliste ekle/sil/list
[00:36] <OXM> !karaliste ekle *!Mobil@177.*
[00:36] <OXM> Kullanımı: !karaliste ekle/sil/list

Cevap: Proxy Koruması Güncel(Debug/Socket)

Bu kısmı

Kod:

if (!2) { .timer -h 1 500 msg # Kullanımı: !karaliste ekle/sil/list | return }

Aşağıdaki gibi değiştir

Kod:

if (!$2) { .timer -h 1 500 msg # Kullanımı: !karaliste ekle/sil/list | return }

$ ifadesi arada kaynamış sanırım o yüzden o şekilde hata veriyordu dediğim gibi değiştirince düzelecektir.

Network kısmı için ise

Bu kısmı

Kod:

window -e $+ @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],-,$token($server,2,46))

echo -t $+ @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],-,$token($server,2,46)) 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

Bu şekilde değiştir.

Kod:

window -e $+(@,Network,-,$token($server,2,46))

echo -t $+(@,Network,-,$token($server,2,46)) 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

!muafnick ekle NICK

!muafip ekle IP

yaparsan muaf olarak ekleyebilirsin nick veya IP muaf eklenen bu koddaki tüm korumalardan muaf olur.

Giriş kodun bir komutu varsa kısayolu yani aktif edecek şekilde

Kod:

elseif (%:yd?s? >= 7) { .set %:yon on | echo -at [ Yurt Dışı Girişi ] - Yurt Dışı Girişleri Kapatıldı. }

yukardaki koda ekleme yapılabilir.

Örnek:

Kod:

elseif (%:yd?s? >= 7) { .set %:yon on | .giriskod on | echo -at [ Yurt Dışı Girişi ] - Yurt Dışı Girişleri Kapatıldı. }

Kapatması içinde

Kod:

if (%:yici >= 2) { .set %:yon off | .unset %:yici }

Örnek:

Kod:

if (%:yici >= 2) { .set %:yon off | .giriskod off | .unset %:yici }

Girişkod için kullanılan komutu bilmediğimden temsili bir ifade kullandım kırmızı renkle belirttim.

Cevap: Proxy Koruması Güncel(Debug/Socket)

Yurtdsi girisi die beni bile ati :) herkezi atiyor mirc girenleri

ve giriskodunu aktif etmedi

Alıntı:

pckopat Nickli Üyeden Alıntı (Mesaj 1041966581)

Bu kısmı

Kod:

if (!2) { .timer -h 1 500 msg # Kullanımı: !karaliste ekle/sil/list | return }

Aşağıdaki gibi değiştir

Kod:

if (!$2) { .timer -h 1 500 msg # Kullanımı: !karaliste ekle/sil/list | return }

$ ifadesi arada kaynamış sanırım o yüzden o şekilde hata veriyordu dediğim gibi değiştirince düzelecektir.

Network kısmı için ise

Bu kısmı

Kod:

window -e $+ @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],-,$token($server,2,46))

echo -t $+ @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],-,$token($server,2,46)) 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

Bu şekilde değiştir.

Kod:

window -e $+(@,Network,-,$token($server,2,46))

echo -t $+(@,Network,-,$token($server,2,46)) 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

Kod:

elseif (%:yd?s? >= 7) { .set %:yon on | echo -at [ Yurt Dışı Girişi ] - Yurt Dışı Girişleri Kapatıldı. }

yukardaki koda ekleme yapılabilir.

Örnek:

Kod:

elseif (%:yd?s? >= 7) { .set %:yon on | .giriskod on | echo -at [ Yurt Dışı Girişi ] - Yurt Dışı Girişleri Kapatıldı. }

Kapatması içinde

Kod:

if (%:yici >= 2) { .set %:yon off | .unset %:yici }

Örnek:

Kod:

if (%:yici >= 2) { .set %:yon off | .giriskod off | .unset %:yici }

Girişkod için kullanılan komutu bilmediğimden temsili bir ifade kullandım kırmızı renkle belirttim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 03:20 -->-> Daha önceki mesaj 02:56 --

1. yurt dışı giriş diye giren gerkezi atiyor türkiye ipleri dahil
2. koruma durmuyor kapatsak bile aktif !korumaoff yapiyorum
3. mual ile iligili sorunlar var ekliyorum yine atiyor..

Cevap: Proxy Koruması Güncel(Debug/Socket)

problemler yardimini bekilyorum hocam..

Kod denenmemiş sanırım.

1. yurt dışı giriş diye giren herkezi atiyor türkiye ipleri dahil beni bile attı
2. koruma durmuyor kapatsak bile aktif !korumaoff yapiyorum
3. mual ile iligili sorunlar var ekliyorum yine atiyor..
4. network penceresi gerkeksiz kaldirilmali ip bilgi ülke vermesine gerek yok.
5. yurtdisi girisi anında devreye giren koruma neden durmuyor ? ve giris kodunu aktiflestirmiyor.

Cevap: Proxy Koruması Güncel(Debug/Socket)

Alıntı:

alphae Nickli Üyeden Alıntı (Mesaj 1041966594)

Öncelikle kodu defalarca denemeden paylaşım yapmıyorum. Sırf bu kodu yaparken sunucumda farklı port açıp orda denemeler yaptım sonrasında paylaşım yaptım.

Sorunun kaynağına gelirsek ben kodu denediğimde htmlfree aliası farklı bir yerde olduğundan giriş ülkelerini göstermede sıkıntı olmuyordu doğal olarak çalışıyordu.

Kodu güncelledim.

Düzenlenen ve eklenen yerleri kırmızı renk ile belirttim.
Nerden kısmını isteğe göre açıp kapatılacak şekilde ayarladım /set %:nrdn on yazılıp aktif edilebilir varsayılan olarak off.
Otomatik proxy çekmede sorun vardı sorunun kaynağı ise sitenin adresi sansürlendiğinden host kısmındaki adres doğru gözükmüyor doğal olarak proxy güncellemiyor.

Kod:

on *:start:{ ykle | ykle1 | ykle2 | .connect_ aç | korumaontheircd | .proal_ | .timeral 0 18000 .proal_ }
 alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 

alias ykle { $iif(!$isfile(proxip.hs),.write proxip.hs) | .hmake proxip 100 | .hload proxip proxip.hs }

alias ykle1 { $iif(!$isfile(krlst.hs),.write krlst.hs) | .hmake krlst 100 | .hload krlst krlst.hs }

alias ykle2 { $iif(!$isfile(prox.hs),.write prox.hs) | .hmake prox 100 | .hload prox prox.hs }

alias korumaontheircd { .set %prox on | .set %aynidnt off | .set %:yon off | .set %:vpn off | .set %:nrdn off }

alias korumaontheircdfull { .set %prox on | .set %aynidnt on | .set %:vpn on }

alias korumaoff { .set %prox off | .set %aynidnt off | .set %:vpn off | .set %:yon off }

alias proal_ {

  if $hget(Proxy) { .hfree -sw Proxy }

  var %::rand $r(1,999999)

  sockopen $+(alpro,%::rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

  $+(.timer,otoproxy) 1 40 guncelpro

}

alias guncelpro { echo -sat Proxy list güncellendi toplam4 $hget(Proxy,0).data }
 

alias connect_ {

  if ($1 = aç) debug -i on connect_ 

  if ($1 = kapat) debug off

  tokenize 32 $1-

  if $1 = <- && $3 = NOTICE {

    if ($9 == connecting) && ($level($13) != muafnick) && ($level($remove($token($14,2,64),$chr(41))) != muafips) {

      var %:r = $r(1,999999999999), %ip2 = $remove($token($14,2,64),$chr(41))

      .sockopen $+(pro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(pro,%:r) $+($remove($token($14,2,64),$chr(41)),¿,$13)

      if (%aynidnt = on) && ($13 === $right($gettok($14,1,64),-1)) { kill $13 7Nickiniz13&4Identiniz 8Aynıdır 9Değişiriniz %ver1 } 

      if (%prox == on) {

        if $hget(proxy,%ip2) { kline $+(*@,%ip2) +0 2Sunucumuza 4Proxy/Tor/Socks/Wingate 2ile girmek yasak!! %ver1 }

        elseif $hfind(prox,$13,1,W).data { kline $13 +0 8Yasaklı 7Nick 4Olarak 9Algılandınız. %ver1 }

        elseif $hfind(proxip,%ip2,1,W).data { kline $+(*@,%ip2) +0 7Proxy 4Olarak 9Algılandınız. %ver1 }     

        elseif $hfind(krlst,$+($13,!,$remove($14,$chr(40),$chr(41))),1,W).data { kline $13 +0 7Sunucuya 4Girişiniz 9Yasaklanmıştır. 6! %ver1 }

      }

    }

  }

}

on *:sockopen:pro*:{ 

  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 

  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive

  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8

  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

  sockwrite -nt $sockname $crlf

}
 

on *:sockread:pro*:{  

  if ($sockerr) { .sockclose $sockname | return }

  var %:pro | sockread -f %:pro

  if (IP Country: isin %:pro) && (*Turkey* iswm $token($htmlfree(%:pro),2,58)) && (%:yon == on) { 

    .inc %:yici

    if (%:yici >= 2) { .set %:yon off | .unset %:yici }

  }

  if (IP Country: isin %:pro) && (*Turkey* !iswm $token($htmlfree(%:pro),2,58) ) {

    if (!$ulist($token($sock($sockname).mark,2,191),muafnick,1)) {

      .inc -u3 %:yd?s?

      if (%:yon == on) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Yurtdışı 4Girişi 9Yasaktır. 6! %ver1  }

      elseif (%:yd?s? >= 7) { .set %:yon on | echo -at [ Yurt Dışı Girişi ] - Yurt Dışı Girişleri Kapatıldı. }

    }

  }

  if (ISP Provider: isin %:pro) { 

    var %sglyc = $token($htmlfree(%:pro),2,58)

    if (Virtua isin %sglyc) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Proxy 4Girişi 9Yasaktır. 6! %ver1   }

    elseif (%:vpn == on) { 

      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) {

        kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Vpn 4Kullanımı 9Yasaktır. 6! %ver1 

      }

    }

  } 

  if (%:yon == off) && (%:nrdn == on) {

    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)) }

    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)) }

    if (ISP Provider: isin %:pro) { 

      var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))

      var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)

      window -e $+(@,Network,-,$token($server,2,46))

      echo -t $+(@,Network,-,$token($server,2,46)) 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

      .hfree -sw %:n

      sockclose $sockname

    }

  }

}

on *:sockopen:alpro*:{

  var %:proal sockwrite -n $sockname

  %:proal GET / HTTP/1.1

  %:proal Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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

}

on *:sockread:alpro*:{

  var %proal

  sockread %proal

  if (*timestamp-link*.html* iswm %proal) {

    var %rand $rand(10,999999)

    .sockopen $+(hpsproal,%rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

    .sockmark $+(hpsproal,%rand) $token($token(%proal,3-,47),1,39)

  }

}

on *:sockopen:hpsproal*:{ var %:proalhps sockwrite -n $sockname | %:proalhps GET / $+ $sock($sockname).mark HTTP/1.1 | %:proalhps Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:hpsproal*:{ var %proalhps | sockread %proalhps | if $regex(%proalhps,(\d+\.\d+\.\d+\.\d+)) { .hadd -m Proxy $regml(1) IP } }
 

on *:input:*:{

  if $regex($1,/^[!\.]korumaon$/Si) { .korumaontheircd | echo -sat Koruma Açık }

  if $regex($1,/^[!\.]korumaoff$/Si) { .korumaoff | echo -sat Koruma Kapalı }

  if $regex($1,/^[!\.]korumafullon$/Si) { .korumaontheircdfull | echo -sat Koruma Full Açık } 

  if $regex($1,/^[!\.]pr[oO]xyn[ıiİ][cçÇ]k$/Si) {

    if $regex($2,/^ekle$/Si) {

      if (!$3) { .timer -h 1 500 msg # Lütfen nick belirtiniz | return }        

      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 }

      var %n = $left($calc($ctime * $rand(1000,9999)),7)

      .hadd -m prox %n $strip($3)

      .hsave -o prox prox.hs

      .timer -h 1 500 msg # Proxy Listesine Eklenen Kayıt: $strip($3)

    }

    if $regex($2,/^s[ıiİ]l$/Si) {

      if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return }        

      if !$hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy Nick Listesinde Bulunmamaktadır. | return }

      .hdel -m prox $hfind(prox,$strip($3),1,W).data

      .hsave -o prox prox.hs

      .timer -h 1 500 msg # Proxy Listesinden Silinen Kayıt: $strip($3)

    }

    if $regex($2,/^l[ıiİ]st$/Si) {

      if ($hget(prox,0).data == 0) { .timer -h 1 500 msg # Proxy Nick Listesi bos. | return }

      .timer -h 1 500 msg # -

      var %:ya = 1 | while (%:ya <= $hget(prox,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(prox,%:ya).data ] | inc %:ya }

      .timer -h 1 500 msg # -

    } 

  } 

  if $regex($1,/^[!\.]pr[oO]xy[ıiİ]p$/Si) {

    if $regex($2,/^ekle$/Si) {

      if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return }        

      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 }

      var %:r = $left($calc($ctime * $rand(1000,9999)),7)

      .hadd -m proxip %:r $strip($3)

      .hsave -o proxip proxip.hs

      .timer -h 1 500 msg # Proxy IP Listesine Eklenen Kayıt: $strip($3)

    }

    if $regex($2,/^s[ıiİ]l$/Si) {

      if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return }        

      if !$hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy IP Listesinde Bulunmamaktadır. | return }

      .hdel -m proxip $hfind(proxip,$strip($3),1,W).data

      .hsave -o proxip proxip.hs

      .timer -h 1 500 msg # Proxy IP Listesinden Silinen Kayıt: $strip($3) 

    }

    if $regex($2,/^l[ıiİ]st$/Si) {

      if ($hget(proxip,0).data == 0) { .timer -h 1 500 msg # Proxy IP Listesi bos. | return }

      .timer -h 1 500 msg # -

      var %:g = 1 | while (%:g <= $hget(proxip,0).data) { .timer -h 1 500 msg # %:g $+ ) [ $hget(proxip,%:g).data ] | inc %:g }

      .timer -h 1 500 msg # -

    }  

  }

  if $regex($1,/^[!\.]m[uU]afn[ıiİ][cçÇ]k$/Si) {

    if $2 == list {

      .timer -h 1 500 msg $chan listeleniyor.

      var %:mnck = 1, %mnc = $ulist(*,muafnick,0)

      .timer -h 1 500 msg $chan - Toplam Muaf Nick Sayısı:4 %mnc

      while %:mnck <= %mnc  {

        .timer -h 1 500 msg $chan $+(%:mnck,$chr(41)) $iif($ulist(*,muafnick,%:mnck) == $nick,$+(,$v1,),$v1)

        inc %:mnck 1

      }

    }

    if $2 == ekle { 

      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek nicki yazınız | return }

      if $ulist($3,muafnick,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }

      .auser muafnick $3- 

      .timer -h 1 500 msg $chan $+(",,$3,,") Muaf Nick Listesine Eklendi

    }

    if $2 == sil { 

      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek Nicki Yazınız | return }

      .ruser muafnick $3- | .timer -h 1 500 msg $chan $+(",,$3,,")  Muaf nick Listesinden Silindi 

    }

  }

  if $regex($1,/^[!\.]m[uU]af[ıiİ]p$/Si) {

    if $2 == list {

      .timer -h 1 500 msg $chan listeleniyor.

      var %:mips = 1, %mip = $ulist(*,muafips,0)

      .timer -h 1 500 msg $chan - Toplam Muaf IP Sayısı:4 %mip

      while %:mips <= %mip  {

        .timer -h 1 500 msg $chan $+(%:mips,$chr(41)) $iif($ulist(*,muafips,%:mips) == $nick,$+(,$v1,),$v1)

        inc %:mips 1

      }

    }

    if $2 == ekle { 

      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek IP - HOST yazınız | return }

      if $ulist($3,muafips,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }

      .auser muafips $3- 

      .timer -h 1 500 msg $chan $+(",,$3,,") Muaf IP Listesine Eklendi

    }

    if $2 == sil { 

      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek IP - HOST Yazınız | return }

      .ruser muafips $3- | .timer -h 1 500 msg $chan $+(",,$3,,")  Muaf IP Listesinden Silindi 

    }

  }

  if $regex($1,/^[!\.]karal[ıiİ]ste$/Si) {

    if (!$2) { .timer -h 1 500 msg # Kullanımı: !karaliste ekle/sil/list | return }

    if $regex($2,/^ekle$/Si) {

      if (!$3) { .timer -h 1 500 msg # Lütfen FullAdres belirtiniz | return }        

      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 }

      var %n1 = $left($calc($ctime * $rand(1000,9999)),7)

      .hadd -m krlst %n1 $strip($3)

      .hsave -o krlst krlst.hs

      .timer -h 1 500 msg # KaraListeye Eklenen Kayıt: $strip($3)

    }

    if $regex($2,/^s[ıiİ]l$/Si) {

      if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return }        

      if !$hfind(krlst,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) KaraListede Bulunmamaktadır. | return }

      .hdel -m krlst $hfind(krlst,$strip($3),1,W).data

      .hsave -o krlst krlst.hs

      .timer -h 1 500 msg # KaraListeden Silinen Kayıt: $strip($3)

    }

    if $regex($2,/^l[ıiİ]st$/Si) {

      if ($hget(krlst,0).data == 0) { .timer -h 1 500 msg # KaraListe bos. | return }

      .timer -h 1 500 msg # -

      var %:ya = 1 | while (%:ya <= $hget(krlst,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(krlst,%:ya).data ] | inc %:ya }

      .timer -h 1 500 msg # -

    } 

  } 

}

Cevap: Proxy Koruması Güncel(Debug/Socket)

Alıntı:

pckopat Nickli Üyeden Alıntı (Mesaj 1041966612)

peki kod her gireni atiyordu ülke seçmeden bu sorun cözüldümü ? türkiye iplerini bile atiyordu

ve diger bir şey !korumoff yaptığımda koruma durmuyordu.

diger bir şey yurtdışı saldırılarını oto açıyor otomu kapatıyor ?

Cevap: Proxy Koruması Güncel(Debug/Socket)

Alıntı:

alphae Nickli Üyeden Alıntı (Mesaj 1041966734)

Son halini paylaştım değişiklikleri gösterdim şuan sorunsuz çalışıyor. Denediğinde çalıştığını göreceksin

Cevap: Proxy Koruması Güncel(Debug/Socket)

Alıntı:

pckopat Nickli Üyeden Alıntı (Mesaj 1041966790)

Son halini paylaştım değişiklikleri gösterdim şuan sorunsuz çalışıyor. Denediğinde çalıştığını göreceksin

Tsk ederim hocam bir cok eksik giderilmis..

!korumaon !korumaoff !korumafullon komutları çalışmıyor bilginize..

ve yine !korumafullon islemi ne ise yariyor ?

Yurtdisi girisler aninda otomatik devreye giriyor koruma güzel peki ne kadar süre sonra oto duruyor?
yada biz durdura biliyormuyuz ? koda giris kodunu aktif olayinida koysaydin super olurdu

yurtdisi saldiri tespiti aninda altaki devreye girsin istiyorum
/girisac bole giris kodu aktif oluyor
/giriskapat bolede kapaniyor

Cevap: Proxy Koruması Güncel(Debug/Socket)

Korumanın mantığını şu aslında 3 saniye içinde 7 yurtdışı girince koruma devreye giriyor. Koruma aktifken o sırada Türkiye girişli 2 tane giriş olursa koruma kapanıyor. Türkiye girişi olmadıkça kapanmaz sen kapatmadıkça

Kod:

alias korumaontheircd { .set %prox on | .set %aynidnt off | .set %:yon off | .set %:vpn off | .set %:nrdn off } 

alias korumaontheircdfull { .set %prox on | .set %aynidnt on | .set %:vpn on }

Bunların amacı full olanın yani ayni nick ident ve vpn yi açıyor diğer yurtdışı koruması zaten otomatik açıldığı için onu eklememişim.

Yukarda giriş kod için örnek vermiştim orda giriskod on yazmıştım bilmediğimden onu girisac olarak degistir öyle dene

Cevap: Proxy Koruması Güncel(Debug/Socket)

Tsk ederim son 3 soru

1 siteden veriyi cekmiyor prox.txt bos dünden beri

2 Simdi ben inputt degerini txt yaptim ve her admin ekliyor
ve yazi adminede geliyor koruma on koruma of yaptigimizda uyarı mesajini sadece
mirc görebiliyoruz. bunu herkezin göre bilceği sekle getire bilirmiyiz.

koda göre aç kapatı sadece botun oldu mırc göre bilirsin bulunduğu odaya vermiyor
on *:input:*:{
if $regex($1,/^[!\.]korumaon$/Si) { .korumaontheircd | echo -sat Koruma Açık }
if $regex($1,/^[!\.]korumaoff$/Si) { .korumaoff | echo -sat Koruma Kapalı }
if $regex($1,/^[!\.]korumafullon$/Si) { .korumaontheircdfull | echo -sat Koruma Full Açık }
if $regex($1,/^[!\.]pr[oO]xyn[ıiİ][cçÇ]k$/Si)

3 Diger sorum şu listede ip var neden atmadı ?
[18:13] *** Notice -- Client exiting: esk_m (ZhRdopPPP@124.11.168.136) [Connection reset by peer]
[18:13] *** Notice -- Client exiting: SAWY (ZhRdopPPP@124.11.169.43) [Ping timeout: 180 seconds]
.
<&Jiyan> .proxyip ekle 124.11.*
<Proxy> "Jiyan" Eklemek istediğiniz IP Zaten Listede mevcut 124.11.* Eslesen Veri..

karaliste aynı sorun var eklenenleri atmıyor.

altaki kodların ekleme silme olayı oluyor ama saldırı anında işlev görmüyor

!proxyip ekle/sil/list
!proxynick ekle/sil/list
!muafip ekle/sil/list
!muafnick ekle/sil/list
!karaliste ekle/sil/list

Alıntı:

pckopat Nickli Üyeden Alıntı (Mesaj 1041966936)

Kod:

alias korumaontheircd { .set %prox on | .set %aynidnt off | .set %:yon off | .set %:vpn off | .set %:nrdn off } 

alias korumaontheircdfull { .set %prox on | .set %aynidnt on | .set %:vpn on }