PROXY Koruması .. - Sayfa 20 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Sadullah · 18 Nisan 2021, 02:15

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emegine saglik abi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)) kullanmak isteyenler olcakdir.

İRcFrm · 23 Ağustos 2021, 20:04

Hub sunucu için muaf hub'lar nasıl ekleyebiliriz?

Tunne · 17 Haziran 2023, 13:12

#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

Kod: Kodu kopyalamak için üzerine çift tıklayın!


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

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

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

Coder Man
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Tunne · 17 Haziran 2023, 21:55

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

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

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

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

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

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

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

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


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

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Proxy Koruması	MaryMy	mIRC Scripting Sorunları	3	25 Mart 2014 18:39
Proxy Koruması	TİGeR	mIRC Scripting Sorunları	1	24 Şubat 2012 21:56
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
Proxy Koruması	OkyAnuS	Unreal IRCd	1	27 Ekim 2008 02:54

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

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.