IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 6 Toplam 7 Sayfadan 12345 6 7
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

SenatoR-SuVaRi 28 Mayıs 2020 01:24
Cevap: Proxy Koruması Güncel(Debug/Socket)
 
Öncelikle selam arkadaşlar Alper arkadaşımız gerçekten güzel bir kod yapmış eline sağlık
6.21 mirc kullanan ve bu kodu kullanan arkadaşlarımız varsa ve /sockwrite: 'pro693740904332' bağlı değil (satır 47, script 25.ini) gibi hata gören varsa kodu aşağıdaki gibi eklerseler sorun çözülecektir herkese hayırlı ifler..

Kod:
on *:start:{ ykle | ykle1 | ykle2 | .connect_ aç | korumaontheircd | .proal_ | .timeral 0 18000 .proal_ }
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 }
alias korumaontheircdfull { .set %prox on | .set %aynidnt on | .set %:vpn on }
alias korumaoff { .set %prox off | .set %aynidnt off | .set %:vpn off }
alias proal_ {
  if $hget(Proxy) { .hfree -sw Proxy }
  var %::rand $r(1,999999)
  sockopen $+(alpro,%::rand) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  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 | tokenize 32 $left(%:pro,800)
  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 ($token($sock($sockname).mark,2,191) != $read(nickmuaf.txt)) {
      .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) {
    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 $+ @[Ü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
      .hfree -sw %:n
      sockclose $sockname
    }
  }
}
on *:sockopen:alpro*:{ var %:proal sockwrite -n $sockname | %:proal GET / HTTP/1.1 | %:proal Host: Socks 24 | %: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 }
on *:sockread:alpro*:{ var %proal | sockread %proal | if (*timestamp-link*.html* iswm %proal) { var %rand $rand(10,999999) | .sockopen $+(hpsproal,%rand) Socks 24 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: Socks 24 | %:proalhps $crlf + $crlf }
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 # -
    }
  }
}

HOROZ 12 Haziran 2020 01:26
Cevap: Proxy Koruması Güncel(Debug/Socket)
 
Merhaba Alper

bir ricam olacaktı, karaliste.txt de bulunan ip leri sunucu girşinde gline atılmasını istiyorum

bu konuda remote olarak yardım edebilirmisin.

teşekkürler

Alper 12 Haziran 2020 11:31
Cevap: Proxy Koruması Güncel(Debug/Socket)
 
Alıntı:
MukemmeL Nickli Üyeden Alıntı (Mesaj 1042321402)
Merhaba Alper

bir ricam olacaktı, karaliste.txt de bulunan ip leri sunucu girşinde gline atılmasını istiyorum

bu konuda remote olarak yardım edebilirmisin.

teşekkürler
Kaç tane ip mevcut txt dosyasında az ise bu kodda bulunan karaliste özelliğini kullanabilirsin.

KTeknoloji 20 Haziran 2020 00:36
Cevap: Proxy Koruması Güncel(Debug/Socket)
 
Alıntı:
SenatoR-SuVaRi Nickli Üyeden Alıntı (Mesaj 1042313846)
Öncelikle selam arkadaşlar Alper arkadaşımız gerçekten güzel bir kod yapmış eline sağlık
6.21 mirc kullanan ve bu kodu kullanan arkadaşlarımız varsa ve /sockwrite: 'pro693740904332' bağlı değil (satır 47, script 25.ini) gibi hata gören varsa kodu aşağıdaki gibi eklerseler sorun çözülecektir herkese hayırlı ifler..

Kod:
on *:start:{ ykle | ykle1 | ykle2 | .connect_ aç | korumaontheircd | .proal_ | .timeral 0 18000 .proal_ }
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 }
alias korumaontheircdfull { .set %prox on | .set %aynidnt on | .set %:vpn on }
alias korumaoff { .set %prox off | .set %aynidnt off | .set %:vpn off }
alias proal_ {
  if $hget(Proxy) { .hfree -sw Proxy }
  var %::rand $r(1,999999)
  sockopen $+(alpro,%::rand) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  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 | tokenize 32 $left(%:pro,800)
  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 ($token($sock($sockname).mark,2,191) != $read(nickmuaf.txt)) {
      .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) {
    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 $+ @[Ü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
      .hfree -sw %:n
      sockclose $sockname
    }
  }
}
on *:sockopen:alpro*:{ var %:proal sockwrite -n $sockname | %:proal GET / HTTP/1.1 | %:proal Host: Socks 24 | %: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 }
on *:sockread:alpro*:{ var %proal | sockread %proal | if (*timestamp-link*.html* iswm %proal) { var %rand $rand(10,999999) | .sockopen $+(hpsproal,%rand) Socks 24 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: Socks 24 | %:proalhps $crlf + $crlf }
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 # -
    }
  }
}
Merhabalar


belirtilen koddaki sitede ip kayıt şekli değiştiğinden dolayı kod çalışmamaktadır eski sistem;

104.248.63.17:30588

yeni sistem ;

104.248.63.17:30588@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]4 $0sec#United States

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadaşımız bu konuda size yardımcı olacabileceğini sanıyorum.

Saygılarımla

Alper 20 Haziran 2020 01:40
Cevap: Proxy Koruması Güncel(Debug/Socket)
 
Alıntı:
KralShell Nickli Üyeden Alıntı (Mesaj 1042325007)
Merhabalar


belirtilen koddaki sitede ip kayıt şekli değiştiğinden dolayı kod çalışmamaktadır eski sistem;

104.248.63.17:30588

yeni sistem ;

104.248.63.17:30588@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]4 $0sec#United States

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadaşımız bu konuda size yardımcı olacabileceğini sanıyorum.

 Saygılarımla

Bununla ilgisi yok yer bulma koduyla alakalı bir sorun. Şuan çalışıyor olması lazım site aktif gözüküyor.

High 14 Ocak 2021 22:46
Cevap: Proxy Koruması Güncel(Debug/Socket)
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], Başkan böyle güzel, işlevsel bi kod yazmışsın söylemiyorsun da elimdekiyle uğraştırıyorsun beni. (; Eline, emeğine sağlık gerçekten faydalı olabilecek kullanışlı bir KOD girişte çok az Proxy çekse de diğer işlevleri de iş görür. Peki bu koda bana vermiş olduğun proxylist de ki proxyleri toplu şekilde ekletsek? !proxyekle *@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].24.* gibi

Alper 15 Ocak 2021 09:13
Cevap: Proxy Koruması Güncel(Debug/Socket)
 
Alıntı:
High Nickli Üyeden Alıntı (Mesaj 1042422292)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], Başkan böyle güzel, işlevsel bi kod yazmışsın söylemiyorsun da elimdekiyle uğraştırıyorsun beni. (; Eline, emeğine sağlık gerçekten faydalı olabilecek kullanışlı bir KOD girişte çok az Proxy çekse de diğer işlevleri de iş görür. Peki bu koda bana vermiş olduğun proxylist de ki proxyleri toplu şekilde ekletsek? !proxyekle *@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].24.* gibi

Proxynin neden az çekildiğini üst postlarda belirtmiştim. Söylediğin şekilde çalışmıyor korumalar *@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].24.* değil de 154.24.* olarak eklenebilir.

High 15 Ocak 2021 11:33
Cevap: Proxy Koruması Güncel(Debug/Socket)
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], Başkan senin o toplu proxy ekleme kodunu buna göre uyarlasan daha güzel olmaz mı? Proxy Siteleriyle alakalı da istersen yardımcı olabilirim. Güncel elimde bayağı bi site mevcut.
154.24.* gibi eklense de işlev aynı iş görür(;

Alper 15 Ocak 2021 19:15
Cevap: Proxy Koruması Güncel(Debug/Socket)
 
Alıntı:
High Nickli Üyeden Alıntı (Mesaj 1042422518)
154.24.* gibi eklense de işlev aynı iş görür

Bende onu demek istemiştim aslında :)



Bu arada şuan için yapamam şehir dışındayım ve çalışıyorum. Gerçi aksilik çıkmazsa yarın memlekete gideceğim. Boş vaktim olunca neden olmasın.

High 30 Ocak 2021 10:50
Cevap: Proxy Koruması Güncel(Debug/Socket)
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Başkan sende ki şu toplu Proxy ekleme kodunu bu güzel KOD'a ek yapacaktın vaktin olursa bekliyoruz bilgine. (;


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:05.
Sayfa 6 Toplam 7 Sayfadan 12345 6 7
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net