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

AsaF · 07 Temmuz 2017, 11:17

on ^*:snotice:*: {
if client connecting* iswm $4- {
var %:ip $remove($gettok($10,2,64),$chr(41))
kontrol %:ip
hadd -m ckontrol %:ip $9
halt
}
}
alias kontrol {
sockopen $+(kontrol,$r(1,999999999)) $1- 1080
sockopen $+(kontrol,$r(1,999999999)) $1- 3128
sockopen $+(kontrol,$r(1,999999999)) $1- 9050
sockopen $+(kontrol,$r(1,999999999)) $1- 8000
sockopen $+(kontrol,$r(1,999999999)) $1- 6588
sockopen $+(kontrol,$r(1,999999999)) $1- 3124
sockopen $+(kontrol,$r(1,999999999)) $1- 50050
sockopen $+(kontrol,$r(1,999999999)) $1- 8008
}
on *:sockopen:kontrol*: {
if !$sockerr {
.raw gline *@ $+ $sock($sockname).ip +0 14Proxy Girişi Yasaktır...
echo -a 4Proxy girişvar : $+(,$sock($sockname).ip,3:,$sock($sockname).port ,) - Nicki bu:4 $ip2nick($sock($sockname).ip)
hdel ckontrol $sock($sockname).ip
sockclose $sockname
}
}
on *:sockclose:kontrol*: {
hdel ckontrol $sock($sockname).ip
}
alias ip2nick {
var %i 1
while %i <= $hget(ckontrol,0).item {
if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt }
inc %i
}
}
Kodun Sahıbını Bılmıyorum Ama ALıntıdır Burdakı Sorunumuz NormaL Userıde Atıyor NasıL Bır Duzeltme Yapabılırız Yada Elınde Proxy Koruması Olan varsa PayLasırsanız Sevınrım Mircde KuLanacam

CoCoRiCo · 13 Temmuz 2017, 15:55

site içi aramayı kullanın.

Aytac · 13 Temmuz 2017, 21:10

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

#portarama off
on *:snotice:*: {
  if client connecting* iswm $4- { 
    var %:ip $remove($gettok($10,2,64),$chr(41))
    if ($level(%:ip) == muaf) { halt }
    kontrol %:ip 
    hadd -m ckontrol %:ip $9 
    halt 
  } 
}
alias kontrol { 
  sockopen $+(kontrol,$r(1,999999999)) $1- 8080 
  sockopen $+(kontrol,$r(1,999999999)) $1- 3128 
  sockopen $+(kontrol,$r(1,999999999)) $1- 1080
  sockopen $+(kontrol,$r(1,999999999)) $1- 9050
  sockopen $+(kontrol,$r(1,999999999)) $1- 45454
  sockopen $+(kontrol,$r(1,999999999)) $1- 65000
} 
on *:sockopen:kontrol*: { 
  if !$sockerr { 
    .raw gline *@ $+ $sock($sockname).ip +0 4Proxy vpn Girisi Yasaktir.
    write proxylistesi.txt $+(,$sock($sockname).ip,:,$sock($sockname).port,)
    window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 5 $date $time $+ 3- 1[ Proxy Girisi ] : $+(,$sock($sockname).ip,1:,$sock($sockname).port,) 5- 1Nick:2 $ip2nick($sock($sockname).ip) 
    hdel ckontrol $sock($sockname).ip 
    sockclose $sockname 
  } 
} 
on *:sockclose:kontrol*: { 
  hdel ckontrol $sock($sockname).ip 
} 
alias ip2nick { 
  var %i 1 
  while %i <= $hget(ckontrol,0).item { 
    if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt } 
    inc %i 
  }
}
#portarama end

alias croxyy dialog -m croxy croxy
dialog croxy {
  title "Muaf IP Ekleme"
  size -1 -1 165 104
  option dbu
  box " Muaf IP Listesi ", 1, 4 6 103 91
  box " İşlemler ", 2, 110 6 50 91
  button "+ EKLE", 3, 116 16 37 12
  text "İp Adres", 4, 7 15 25 8
  edit "110.77.* örnek", 5, 35 14 68 10
  list 6, 7 26 96 67, size
  button "- SİL", 7, 116 33 37 12
  button "TAMAM", 8, 116 50 37 12, ok
}

on *:dialog:croxy:sclick:*:{
  if ($did = 7) {
    ruser muaf $did($dname,6).seltext | did -d croxy 6 $did($dname,6).sel
  }
  if ($did = 3) { if ($did($dname,5) != $null ) { .auser muaf $did($dname,5) | did -a croxy 6 $did($dname,5) } }
}

on *:dialog:croxy:init:0: {
  var %x = 1
  while (%x <= $ulist(*,muaf,0)) { 
    did -a croxy 6 $ulist(*,muaf,%x)
    inc %x 
  }
}

menu menubar,channel {
  +> Port Korumasi
  ..Aç:!if $group(#portarama).status = on { echo 4 -tgae Port Korumasi Zaten Aç?k } | else { /.enable #portarama | echo 4 -tgae Port Korumas? AÇILDI | set %portarama on  }
  ..Kapat:!if $group(#portarama).status = off { echo 4 -tgae Port Korumasi Zaten KAPALI } | else { /.disable #portarama | echo 4 -tgae Port Korumas? KAPATILDI | set %portarama off  }
  ..Durum < $replace($group(#portarama).status, off, Kapal?, on, Aç?k) >:.
  ..Muaf IP Ekle:/croxyy
}

AsaF · 19 Eylül 2017, 21:28

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

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

#portarama off
on *:snotice:*: {
  if client connecting* iswm $4- { 
    var %:ip $remove($gettok($10,2,64),$chr(41))
    if ($level(%:ip) == muaf) { halt }
    kontrol %:ip 
    hadd -m ckontrol %:ip $9 
    halt 
  } 
}
alias kontrol { 
  sockopen $+(kontrol,$r(1,999999999)) $1- 8080 
  sockopen $+(kontrol,$r(1,999999999)) $1- 3128 
  sockopen $+(kontrol,$r(1,999999999)) $1- 1080
  sockopen $+(kontrol,$r(1,999999999)) $1- 9050
  sockopen $+(kontrol,$r(1,999999999)) $1- 45454
  sockopen $+(kontrol,$r(1,999999999)) $1- 65000
} 
on *:sockopen:kontrol*: { 
  if !$sockerr { 
    .raw gline *@ $+ $sock($sockname).ip +0 4Proxy vpn Girisi Yasaktir.
    write proxylistesi.txt $+(,$sock($sockname).ip,:,$sock($sockname).port,)
    window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 5 $date $time $+ 3- 1[ Proxy Girisi ] : $+(,$sock($sockname).ip,1:,$sock($sockname).port,) 5- 1Nick:2 $ip2nick($sock($sockname).ip) 
    hdel ckontrol $sock($sockname).ip 
    sockclose $sockname 
  } 
} 
on *:sockclose:kontrol*: { 
  hdel ckontrol $sock($sockname).ip 
} 
alias ip2nick { 
  var %i 1 
  while %i <= $hget(ckontrol,0).item { 
    if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt } 
    inc %i 
  }
}
#portarama end

alias croxyy dialog -m croxy croxy
dialog croxy {
  title "Muaf IP Ekleme"
  size -1 -1 165 104
  option dbu
  box " Muaf IP Listesi ", 1, 4 6 103 91
  box " İşlemler ", 2, 110 6 50 91
  button "+ EKLE", 3, 116 16 37 12
  text "İp Adres", 4, 7 15 25 8
  edit "110.77.* örnek", 5, 35 14 68 10
  list 6, 7 26 96 67, size
  button "- SİL", 7, 116 33 37 12
  button "TAMAM", 8, 116 50 37 12, ok
}

on *:dialog:croxy:sclick:*:{
  if ($did = 7) {
    ruser muaf $did($dname,6).seltext | did -d croxy 6 $did($dname,6).sel
  }
  if ($did = 3) { if ($did($dname,5) != $null ) { .auser muaf $did($dname,5) | did -a croxy 6 $did($dname,5) } }
}

on *:dialog:croxy:init:0: {
  var %x = 1
  while (%x <= $ulist(*,muaf,0)) { 
    did -a croxy 6 $ulist(*,muaf,%x)
    inc %x 
  }
}

menu menubar,channel {
  +> Port Korumasi
  ..Aç:!if $group(#portarama).status = on { echo 4 -tgae Port Korumasi Zaten Aç?k } | else { /.enable #portarama | echo 4 -tgae Port Korumas? AÇILDI | set %portarama on  }
  ..Kapat:!if $group(#portarama).status = off { echo 4 -tgae Port Korumasi Zaten KAPALI } | else { /.disable #portarama | echo 4 -tgae Port Korumas? KAPATILDI | set %portarama off  }
  ..Durum < $replace($group(#portarama).status, off, Kapal?, on, Aç?k) >:.
  ..Muaf IP Ekle:/croxyy
}

Pekı Hocam Bunu AtıLan Proxy İpLerı Opers KanaLına NasıL Yansıtabılırız

Alper · 20 Eylül 2017, 14:00

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

Pekı Hocam Bunu AtıLan Proxy İpLerı Opers KanaLına NasıL Yansıtabılırız

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

#portarama off
on *:snotice:*: {
  if client connecting* iswm $4- { 
    var %:ip $remove($gettok($10,2,64),$chr(41))
    if ($level(%:ip) == muaf) { halt }
    kontrol %:ip 
    hadd -m ckontrol %:ip $9 
    halt 
  } 
}
alias kontrol { 
  sockopen $+(kontrol,$r(1,999999999)) $1- 8080 
  sockopen $+(kontrol,$r(1,999999999)) $1- 3128 
  sockopen $+(kontrol,$r(1,999999999)) $1- 1080
  sockopen $+(kontrol,$r(1,999999999)) $1- 9050
  sockopen $+(kontrol,$r(1,999999999)) $1- 45454
  sockopen $+(kontrol,$r(1,999999999)) $1- 65000
} 
on *:sockopen:kontrol*: { 
  if !$sockerr { 
    .raw gline *@ $+ $sock($sockname).ip +0 4Proxy vpn Girisi Yasaktir.
    write proxylistesi.txt $+(,$sock($sockname).ip,:,$sock($sockname).port,)
    window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 5 $date $time $+ 3- 1[ Proxy Girisi ] : $+(,$sock($sockname).ip,1:,$sock($sockname).port,) 5- 1Nick:2 $ip2nick($sock($sockname).ip) 
    msg #opers 3- 1[ Proxy Girisi ] : $+(,$sock($sockname).ip,1:,$sock($sockname).port,) 5- 1Nick:2 $ip2nick($sock($sockname).ip) 5 $date $time
    hdel ckontrol $sock($sockname).ip 
    sockclose $sockname 
  } 
} 
on *:sockclose:kontrol*: { 
  hdel ckontrol $sock($sockname).ip 
} 
alias ip2nick { 
  var %i 1 
  while %i <= $hget(ckontrol,0).item { 
    if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt } 
    inc %i 
  }
}
#portarama end

alias croxyy dialog -m croxy croxy
dialog croxy {
  title "Muaf IP Ekleme"
  size -1 -1 165 104
  option dbu
  box " Muaf IP Listesi ", 1, 4 6 103 91
  box " İşlemler ", 2, 110 6 50 91
  button "+ EKLE", 3, 116 16 37 12
  text "İp Adres", 4, 7 15 25 8
  edit "110.77.* örnek", 5, 35 14 68 10
  list 6, 7 26 96 67, size
  button "- SİL", 7, 116 33 37 12
  button "TAMAM", 8, 116 50 37 12, ok
}

on *:dialog:croxy:sclick:*:{
  if ($did = 7) {
    ruser muaf $did($dname,6).seltext | did -d croxy 6 $did($dname,6).sel
  }
  if ($did = 3) { if ($did($dname,5) != $null ) { .auser muaf $did($dname,5) | did -a croxy 6 $did($dname,5) } }
}

on *:dialog:croxy:init:0: {
  var %x = 1
  while (%x <= $ulist(*,muaf,0)) { 
    did -a croxy 6 $ulist(*,muaf,%x)
    inc %x 
  }
}

menu menubar,channel {
  +> Port Korumasi
  ..Aç:!if $group(#portarama).status = on { echo 4 -tgae Port Korumasi Zaten Aç?k } | else { /.enable #portarama | echo 4 -tgae Port Korumas? AÇILDI | set %portarama on  }
  ..Kapat:!if $group(#portarama).status = off { echo 4 -tgae Port Korumasi Zaten KAPALI } | else { /.disable #portarama | echo 4 -tgae Port Korumas? KAPATILDI | set %portarama off  }
  ..Durum < $replace($group(#portarama).status, off, Kapal?, on, Aç?k) >:.
  ..Muaf IP Ekle:/croxyy
}

Hem @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresinde hemde #Opers kanalında gözükür.

AsaF · 03 Ekim 2017, 16:40

Arada Userde Atılıyor Ama GeneLde İyi OLdu Elınıze SagLık

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
KoD Düzeltme	TISSOT	mIRC Scripting Sorunları	7	31 Ağustos 2008 16:03

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.