Proxy Koruması Güncel(Debug/Socket) - Sayfa 3 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

alphae · 13 Temmuz 2018, 07:23

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.

Alper · 13 Temmuz 2018, 09:55

alphae Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.

Ö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: Kodu kopyalamak için üzerine çift tıklayın!

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

alphae · 13 Temmuz 2018, 19:25

pckopat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ö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.
[/CODE]

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 ?

Alper · 13 Temmuz 2018, 23:35

alphae Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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 ?

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

alphae · 14 Temmuz 2018, 06:36

pckopat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

Mesut · 30 Ocak 2020, 09:21

Alper Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ö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: Kodu kopyalamak için üzerine çift tıklayın!

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

Alper usta Cod Super Çalışıyor Emeğine Sağlık Sizden 3 ufak Ricam olucak 1cisi : 5 Saatte 1 Proxy Guncellemesini 1 Saat Nasıl yaparız 2cisi porxy Guncellemesi Status de bunu atiyorum : #Alper kanalina yansiticak Son olarakda komutlar Calismiyor yardimci olursaniz Sevinirim.

Alper · 30 Ocak 2020, 12:16

BordoTurk Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Alper usta Cod Super Çalışıyor Emeğine Sağlık Sizden 3 ufak Ricam olucak 1cisi : 5 Saatte 1 Proxy Guncellemesini 1 Saat Nasıl yaparız 2cisi porxy Guncellemesi Status de bunu atiyorum : #Alper kanalina yansiticak Son olarakda komutlar Calismiyor yardimci olursaniz Sevinirim.

1. Satırda

.timeral 0 18000 .proal_

18000 olan kısmı 3600 yapman gerek. (18000 / 5 = 3600 )

Diğer istek için

echo -sat Proxy list güncellendi toplam $hget(Proxy,0).data

echo -sat olan kısmı msg #kanal olarak değişmen gerek.

Diğer çalışmayan kısım nedir anlamadım. Kodu botta kullaniyorsan input kısmını text olarak değişmen gerek.

Mobil olduğum için bu şekilde yardımcı olmaya çalıştım.

Mesut · 30 Ocak 2020, 13:31

Alper Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

1. Satırda

.timeral 0 18000 .proal_

18000 olan kısmı 3600 yapman gerek. (18000 / 5 = 3600 )

Diğer istek için

echo -sat Proxy list güncellendi toplam $hget(Proxy,0).data

echo -sat olan kısmı msg #kanal olarak değişmen gerek.

Diğer çalışmayan kısım nedir anlamadım. Kodu botta kullaniyorsan input kısmını text olarak değişmen gerek.

Mobil olduğum için bu şekilde yardımcı olmaya çalıştım.

Cok tesekkurler ustam
Usta Codu Botta degil kendi mirc ime ekledim su !proxy on !karaliste ekle nick !karaliste list !muafnick ekle komutlarini calistiramadim birde 450 tane guncelliyor bu Sayı bin 3bin olabilirmi proxy guncellemede birde attıklarini #Admin kanalina belirtebilirmi cod guzel ve kullanisli Emegine Yuregine Saglik paylasimin icin cok tesekkurler.

Alper · 14 Temmuz 2018, 10:56

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: Kodu kopyalamak için üzerine çift tıklayın!

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

alphae · 14 Temmuz 2018, 19:54

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

pckopat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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: Kodu kopyalamak için üzerine çift tıklayın!

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

Seçenekler	Arama
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder	Arama: Gelişmiş Arama Yap
Stil
Normal gösterime geğ Hybrid-Şeklinde Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Clone Koruması Proxy Koruması ve SaldırıProgramına OnLem KOdu Lazım	neobre	mIRC Scripting Sorunları	13	09 Ekim 2009 00:07
Proxy Koruması ( Koruma Icın Proxy Lıstesı Lazım)	Heavenly	mIRC Scripting Sorunları	2	05 Temmuz 2009 20:09

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.