IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 20 Toplam 20 Sayfadan « İlkSayfa 1013141516171819 20
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 Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   PROXY Koruması .. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/359672-proxy-korumasi.html)

Sadullah 18 Nisan 2021 02:15
Cevap: PROXY Koruması ..
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emegine saglik abi :))) kullanmak isteyenler olcakdir.

İRcFrm 23 Ağustos 2021 20:04
Cevap: PROXY Koruması ..
 
Hub sunucu için muaf hub'lar nasıl ekleyebiliriz?

Tunne 17 Haziran 2023 13:12
Cevap: PROXY Koruması ..
 
#prox on
on OpenProxy:join:#:{ if $read(sistem/muafk.txt,w,$chan) { halt } | if $read(sistem/muafn.txt,w,$nick) { halt } | { .kick # $nick 4,1[ Proxy ]0 Ip Adresiniz Güven vermiyor. %Logo ) | mode # +b $maddress } }
#prox end
alias Proxyconf if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
dialog Proxylist {
title "Proxy ip Korumasi"
size -1 -1 200 285
button "Tamam", 1, 110 200 70 20,ok
list 2, 10 20 180 135, sort
edit "", 4, 10 165 180 20, autohs
box "Ip Adresi? Örnek : 152.58 gibi", 5, 5 150 190 45
button "İp Ekle", 6, 20 200 70 20
box "Not:", 7, 5 225 190 45
text "İp'yi Kaldirmak icin İp'nin Uzerine Cift Tiklayin", 8, 25 240 140 45
}
alias Proxysetup if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
on *:dialog:Proxylist:dclick:2:{ .ruser OpenProxy $did(2).seltext | did -d Proxylist 2 $did(2).sel }
on *:dialog:Proxylist:sclick:6:{ if ($did(4) != $null) { did -a Proxylist 2 $did(4) | .auser OpenProxy *!*@* $+ $did(4) $+ * | did -fr Proxylist 4 } }
on *:dialog:Proxylist:init:*:{
if ($ulist(*,OpenProxy,0) != $null) {
set %prx.Proxy 0
while (%prx.Proxy < $ulist(*,OpenProxy,0)) {
inc %prx.Proxy 1
did -a Proxylist 2 $ulist(*,OpenProxy,%prx.Proxy)
}
{
.idset 10
}
}
}
unset %prx.Proxy
did -f proxylist 4
}
}


Kolay gelsın arkadaslar su kodu +b yerine gline olarak degıstebılır mıyız. sımdıden tskler

Vision 17 Haziran 2023 18:37
Toplam 1 Eklenti bulunuyor.
Kod:

;################################# IP BAN Koruma Sistemi ################################

menu channel,status,menubar,query {
  -
  Proxy Koruma { dialog -m proxycik proxycik }
  -
}

;- Web Sorgulamalı değildir, manuel çalışır, eklenen IP direk banlanır.

dialog proxycik {
title "IP Ban Koruma Sistemi"
size -1 -1 255 153
option dbu
list 1, 7 14 50 84, size
edit "", 4, 7 101 50 10, return autohs
button "Ekle", 2, 20 113 24 11, flat
text "IP LISTESI", 3, 18 6 28 8
list 5, 73 14 50 84, size
edit "", 6, 73 101 50 10, return autohs
button "Ekle", 7, 87 113 24 11, flat
text "MUAF IP", 8, 87 6 23 8
list 9, 140 14 50 84, size
edit "", 10, 140 101 50 10, return autohs
button "Ekle", 11, 154 113 24 11, flat
text "MUAF NICK", 12, 150 6 29 8
radio "Zline At", 13, 204 22 41 10
radio "Shun At", 14, 204 34 42 10
radio "Gzline At", 15, 204 61 40 10
radio "Gline At", 16, 204 47 42 10
radio "Kill At", 17, 204 85 40 10
radio "Kline At", 18, 204 73 39 10
box "Ceza Türü", 19, 198 5 50 140
edit "", 20, 201 117 44 10, return autohs
check "SİSTEM AÇ/KAPA", 22, 36 134 55 10
radio "Kanal Çek", 21, 204 105 40 10
button "Tamam", 23, 109 133 55 12, flat ok
text "#KANALADI", 24, 208 131 31 8
}
on *:dialog:proxycik:*:*: {
if $devent == sclick {
  if $did == 2 { did -a $dname 1 $did(4) | hadd -m t1 $did(4) | hsave t1 TXT/IPBAN/t1.hash }
  if $did == 7 { did -a $dname 5 $did(6) | hadd -m t2 $did(6) | hsave t2 TXT/IPBAN/t2.hash }
  if $did == 11 { did -a $dname 9 $did(10) | hadd -m t3 $did(10) | hsave t3 TXT/IPBAN/t3.hash }
  if $did(13).state == 1 { set %cezatur zline }
  if $did(14).state == 1 { set %cezatur shun }
  if $did(16).state == 1 { set %cezatur gline }
  if $did(15).state == 1 { set %cezatur gzline }
  if $did(18).state == 1 { set %cezatur kline }
  if $did(17).state == 1 { set %cezatur kill }
  if $did(21).state == 1 { set %cezatur kcek | set %kcek1 $did(20) }
  if $did(22).state == 1 { set %proxysistem on }
  else { unset %proxysistem }
}
if $devent == init {
  ;mdx MarkDialog $dname
  ;mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 +b Turkish 12 600 Arial
  ;mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 text $rgb(0,0,0)
  ;mdx SetDialog $dname style title tool sysmenu
  var %t 1
  while %t <= $hmatch(t1,*,0) {
    did -a $dname 1 $hmatch(t1,*,%t)
    inc %t
  }
  var %t 1
  while %t <= $hmatch(t2,*,0) {
    did -a $dname 5 $hmatch(t2,*,%t)
    inc %t
  }
  var %t 1
  while %t <= $hmatch(t3,*,0) {
    did -a $dname 9 $hmatch(t3,*,%t)
    inc %t
  }
  if %cezatur == zline { did -c $dname 13 }
  if %cezatur == shun { did -c $dname 14 }
  if %cezatur == gline { did -c $dname 16 }
  if %cezatur == gzline { did -c $dname 15 }
  if %cezatur == kline { did -c $dname 18 }
  if %cezatur == kill { did -c $dname 17 }
  if %cezatur == shun { did -c $dname 14 }
  if %cezatur == kcek { did -c $dname 21 }
  did -a $dname 20 %kcek1
  if %proxysistem { did -c $dname 22 }
}
if $devent == dclick {
  if ($did == 1) { hdel t1 $did(1).seltext | did -d $dname 1 $did(1).sel | hsave t1 TXT/IPBAN/t1.hash  }
  if ($did == 5) { hdel t2 $did(5).seltext | did -d $dname 5 $did(5).sel | hsave t2 TXT/IPBAN/t2.hash  }
  if ($did == 9) { hdel t3 $did(9).seltext | did -d $dname 9 $did(9).sel | hsave t3 TXT/IPBAN/t3.hash  }
}
if $devent == close {
  if $did(20) != $null { set %kcek1 $did(20) }
}
}
on *:start: {
hmake t1 200
hmake t2 200
hmake t3 200
.hload t1 TXT/IPBAN/t1.hash
.hload t2 TXT/IPBAN/t2.hash
.hload t3 TXT/IPBAN/t3.hash
}
on *:snotice:*:{
if *Client connecting to* on isin $1- {
  if %proxysistem && $hmatch(t1,$token($gettok($10,2,64),1,41)) && !$hmatch(t3,$9) && !$hmatch(t2,$token($gettok($10,2,64),1,41)) {
    if %cezatur == kcek { sajoin $9 %kcek1 }
    elseif %cezatur == kill { kill $9 Sebep %banlogo }
    else {
      %cezatur $9 900 Sebep %logo
    }
  }
}
}
Alıntı:
Tunne Nickli Üyeden Alıntı (Mesaj 1042809804)
TXT\IPBAN\t1.hash' (Satır 94, script13.mrc) su hatayı aldım bunu nasl duzeltırız hocam
Ekteki dosyayı mirc'in anadizinine at hata almazsın. (ZIP 'i açtıktan sonra TXT klasörü çıkar karşına direk tut at onu)

Toprak 17 Haziran 2023 19:25
Cevap: PROXY Koruması ..
 
Coder Man :cokcool:

Tunne 17 Haziran 2023 21:55
Cevap: PROXY Koruması ..
 
Alıntı:
Vision Nickli Üyeden Alıntı (Mesaj 1042809814)
Onu yaptıysan çalışması lazım aslında /dialog -m proxycik proxycik bu komutu yazar mısın bakalım açıldığında hata vericek mi
hocam mesaj attım anydesk sagolasın ılgınıze

Vision 17 Haziran 2023 22:53
Cevap: PROXY Koruması ..
 
Alıntı:
Tunne Nickli Üyeden Alıntı (Mesaj 1042809825)
hocam mesaj attım anydesk sagolasın ılgınıze
Gereksiz mesajları sildim kodu son olarak güncelledim yukarıdaki üst menüye de ekledim Menü den ulaşabilirsin çalışıyor olması gerek şu an kodu alıp tekrar dener misin.

High 19 Haziran 2023 23:43
Cevap: PROXY Koruması ..
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], çalışma için sağ ol güzel iş görür. Peki bu yasaklı ip listesine toplu eklemeye bilir miyiz? elimde bununla alakalı mevcut bir eklenti vardı. Anladığım kadarıyla koduna göre düzenledim. Bir bakar mısın? hatalı ise gerekli düzeltmeleri yapar mısın?
Not: Ben belirtilen txt içinde ki ipleri 88.35. şeklinde değil 88.35.7. yani 3 noktadan sonrasını baz alarak düzenledim
(^\d+\.\d+\.\d+\.).+/gi,\1*)

Kodun tamama mı aşağıda'dır.

Kod:
;################################# IP BAN Koruma Sistemi ################################

menu channel,status,menubar,query {
  -
  Proxy Koruma { dialog -m proxycik proxycik }
  -
}

;- Web Sorgulamalı değildir, manuel çalışır, eklenen IP direk banlanır.

dialog proxycik {
title "IP Ban Koruma Sistemi"
size -1 -1 255 153
option dbu
list 1, 7 14 50 84, size
edit "", 4, 7 101 50 10, return autohs
button "Ekle", 2, 20 113 24 11, flat
text "IP LISTESI", 3, 18 6 28 8
list 5, 73 14 50 84, size
edit "", 6, 73 101 50 10, return autohs
button "Ekle", 7, 87 113 24 11, flat
text "MUAF IP", 8, 87 6 23 8
list 9, 140 14 50 84, size
edit "", 10, 140 101 50 10, return autohs
button "Ekle", 11, 154 113 24 11, flat
text "MUAF NICK", 12, 150 6 29 8
radio "Zline At", 13, 204 22 41 10
radio "Shun At", 14, 204 34 42 10
radio "Gzline At", 15, 204 61 40 10
radio "Gline At", 16, 204 47 42 10
radio "Kill At", 17, 204 85 40 10
radio "Kline At", 18, 204 73 39 10
box "Ceza Türü", 19, 198 5 50 140
edit "", 20, 201 117 44 10, return autohs
check "SİSTEM AÇ/KAPA", 22, 36 134 55 10
radio "Kanal Çek", 21, 204 105 40 10
button "Tamam", 23, 109 133 55 12, flat ok
text "#KANALADI", 24, 208 131 31 8
}
on *:dialog:proxycik:*:*: {
if $devent == sclick {
  if $did == 2 { did -a $dname 1 $did(4) | hadd -m t1 $did(4) | hsave t1 TXT/IPBAN/t1.hash }
  if $did == 7 { did -a $dname 5 $did(6) | hadd -m t2 $did(6) | hsave t2 TXT/IPBAN/t2.hash }
  if $did == 11 { did -a $dname 9 $did(10) | hadd -m t3 $did(10) | hsave t3 TXT/IPBAN/t3.hash }
  if $did(13).state == 1 { set %cezatur zline }
  if $did(14).state == 1 { set %cezatur shun }
  if $did(16).state == 1 { set %cezatur gline }
  if $did(15).state == 1 { set %cezatur gzline }
  if $did(18).state == 1 { set %cezatur kline }
  if $did(17).state == 1 { set %cezatur kill }
  if $did(21).state == 1 { set %cezatur kcek | set %kcek1 $did(20) }
  if $did(22).state == 1 { set %proxysistem on }
  else { unset %proxysistem }
}
if $devent == init {
  ;mdx MarkDialog $dname
  ;mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 +b Turkish 12 600 Arial
  ;mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 text $rgb(0,0,0)
  ;mdx SetDialog $dname style title tool sysmenu
  var %t 1
  while %t <= $hmatch(t1,*,0) {
    did -a $dname 1 $hmatch(t1,*,%t)
    inc %t
  }
  var %t 1
  while %t <= $hmatch(t2,*,0) {
    did -a $dname 5 $hmatch(t2,*,%t)
    inc %t
  }
  var %t 1
  while %t <= $hmatch(t3,*,0) {
    did -a $dname 9 $hmatch(t3,*,%t)
    inc %t
  }
  if %cezatur == zline { did -c $dname 13 }
  if %cezatur == shun { did -c $dname 14 }
  if %cezatur == gline { did -c $dname 16 }
  if %cezatur == gzline { did -c $dname 15 }
  if %cezatur == kline { did -c $dname 18 }
  if %cezatur == kill { did -c $dname 17 }
  if %cezatur == shun { did -c $dname 14 }
  if %cezatur == kcek { did -c $dname 21 }
  did -a $dname 20 %kcek1
  if %proxysistem { did -c $dname 22 }
}
if $devent == dclick {
  if ($did == 1) { hdel t1 $did(1).seltext | did -d $dname 1 $did(1).sel | hsave t1 TXT/IPBAN/t1.hash  }
  if ($did == 5) { hdel t2 $did(5).seltext | did -d $dname 5 $did(5).sel | hsave t2 TXT/IPBAN/t2.hash  }
  if ($did == 9) { hdel t3 $did(9).seltext | did -d $dname 9 $did(9).sel | hsave t3 TXT/IPBAN/t3.hash  }
}
if $devent == close {
  if $did(20) != $null { set %kcek1 $did(20) }
}
}
on *:start: {
hmake t1 200
hmake t2 200
hmake t3 200
.hload t1 TXT/IPBAN/t1.hash
.hload t2 TXT/IPBAN/t2.hash
.hload t3 TXT/IPBAN/t3.hash
}
on *:snotice:*:{
if *Client connecting to* on isin $1- {
  if %proxysistem && $hmatch(t1,$token($gettok($10,2,64),1,41)) && !$hmatch(t3,$9) && !$hmatch(t2,$token($gettok($10,2,64),1,41)) {
    if %cezatur == kcek { sajoin $9 %kcek1 }
    elseif %cezatur == kill { kill $9 Sebep %banlogo }
    else {
      %cezatur $9 900 Sebep %logo
    }
  }
}
}
alias iekle {  if ($dialog(Proxy_ekle)) { dialog -c Proxy_ekle } |  dialog -ma Proxy_ekle Proxy_ekle }
dialog Proxy_ekle {
  title "Hash Proxy Ekleme"
  size -1 -1 264 163
  option pixels
  box "Ekleme yapmak için dosya seçin", 1, 11 6 240 130
  button "Proxy IP Ekle", 2, 33 34 197 80, normal
  text "Yüklenen Proxy Adet:", 3, 62 140 108 16
  text "0", 4, 171 140 50 16, center
}
on 1:dialog:Proxy_ekle:*:*:{
  if ($devent == init) { }
  if ($devent == sclick) {
    if ($Did == 2) {
      Var %F = $SFile($mIRCDir,Txt Dosyasını Seçiniz,Ekle), %eklenen = 0
      If (%F) {
        Var %I = 1
        While ($Read(%F,%I)) {
          Var %F1 = $Read(%F,%I), %j = $regsubex(%F1,/(^\d+\.\d+\.\d+\.).+/gi,\1*)
          if !$hget(p,%j) {
            hadd -m t1.hash %j
            hsave -o t1.hash
            hsave -o t2.hash
            hsave -o t3.hash
            inc %eklenen
          }
          inc %I
        }
      }
      did -o Proxy_ekle 4 1 %eklenen
    }
  }
}

Vision 19 Haziran 2023 23:54
Cevap: PROXY Koruması ..
 
Alıntı:
High Nickli Üyeden Alıntı (Mesaj 1042810475)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], çalışma için sağ ol güzel iş görür. Peki bu yasaklı ip listesine toplu eklemeye bilir miyiz? elimde bununla alakalı mevcut bir eklenti vardı. Anladığım kadarıyla koduna göre düzenledim. Bir bakar mısın? hatalı ise gerekli düzeltmeleri yapar mısın?
Not: Ben belirtilen txt içinde ki ipleri 88.35. şeklinde değil 88.35.7. yani 3 noktadan sonrasını baz alarak düzenledim
(^\d+\.\d+\.\d+\.).+/gi,\1*)

Kodun tamama mı aşağıda'dır.
İki addonu birbirine bağlamışsın fakat bu bi süre sonra kasacaktır özellikle ip eklerken silmekte zor olur mIRC'in donma ve kapanma ihtimali var onun yerine benim kendi scriptimde kullandığım iboyla (@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) beraber yaptığımız IGS sistemine entegreli bir kod mevcut API ile çalışmakta sınırsız sorgulama hakkına sahip bunu kullanabilirsin.

Kod:

alias _proxyweb return igs.ircforumlari.net.tr
alias _proxyapi return mIRC-daa79bb6385d
alias _baglaniyor return Client connecting
alias _cikti return Client exiting

;- Muaf sistemi mevcuttur.

#ProxyV off
on *:sockopen:proxy*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/proxy.php?ip=,$token($sock($sockname).mark,1,172),&api=,$_proxyapi)  HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:proxy*:{
  var %:proxy | sockread -f %:proxy | tokenize 32 %:proxy
  if $regex($1-,/alert-danger.+Proxy\: <b>(.+)</b>/i) {
    .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h %proxy $_kirmizi($regml(1)) $_scriptlogo
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    echo -em @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $_gri($_tarih) $_baslik(Proxy Koruma Sistemi) $_kirmizi(Nick/IP: $token($sock($sockname).mark,2,191) - $token($sock($sockname).mark,1,191)) $_bilgi(Tipi: $regml(1) olan proxy/tor adresi proxy koruma sistemi tarafından sunucudan uzaklaştırıldı.) $_sari(Xline) $_yesil($network)
    sockclose $sockname
  }
}
on *:snotice:*:if $regex($1-,/ $+ $_baglaniyor $+ /Si) { who +I $9 }
raw 352:*:{
  var %_sc-wnick = $6, %_sc-wip $4, %_rand $+(%_sc-wnick,$r(100,999999))
  if $istok($serverip $ip,%_sc-wip,32) || $read(TXT/proxymuaf.txt,w,$+(*¬,%_sc-wip)) { return }
  else { sockopen $+(proxy,%_rand) $_proxyweb 80 | sockmark $+(proxy,%_rand) $+(%_sc-wip,¿,%_sc-wnick) }
}
#ProxyV end

High 20 Haziran 2023 00:13
Cevap: PROXY Koruması ..
 
Eyvallah sağ ol @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], evet haklısın txt içinde fazla proxy olduğun da kasma yapıyor o yüzden 1000 kadar ekleme yapıyorum sorunsuz yükleme yapıyor. Verdiğin kod da güzel kullanacam elinize, emeğinize sağlık.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:15.
Sayfa 20 Toplam 20 Sayfadan « İlkSayfa 1013141516171819 20
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk