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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Çözüldü +b Z:line çevirme. (https://www.ircforumlari.net/mirc-scripting-sorunlari/670452-b-z-line-cevirme.html)

High 14 Ocak 2015 17:51
Merhaba, iyi iF'ler arkadaşlar. Elimde Proxy koruması var yalnız. +b (ban) atmak da. Ben bunu Z:lined'e çevirmek istiyorum. Yardımcı olabilir misiniz.



Kod;

Kod:
on *:join:#:{
  if ($count($nick($chan,$me).pnick,@,&,~,%) != 0) && %Proxy.koruma == On {
    var %ip $gettok($address,2,$asc(@))
    if $hfind(p,%ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae **** Muaf nick girişi:4 $nick  Atilmadi.  | return }
    kick $chan $nick sebep| mode $chan +b $+(*!*@,$hfind(p,%ip,1,W).item) }
  }
}



Kod:
on *:Start:{
  if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x
  if !$file(m.x) { write -c m.x } | hmake m | hload m m.x
}
alias pr {
  if !$hget(p) { if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x  }
  if !$hget(m) { if !$file(m.x) { write -c m.x } | hmake m | hload m m.x }
  if $1 == Ac { set %proxy.koruma ON | echo 3 -ae *** 5Proxy Koruması acılmıştır. } | if $1 == Kapat { set %proxy.koruma Off | echo 3 -ae *** 5Proxy Korumasi kapatılmıştır.. }
  if $1 == ekle {
    if !$2 { echo 3 -ae *** Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item { echo 3 -ae *** Bu ip listede mecvuttur. | return }
    hadd -m p $2 Proxy | hsave p pr.x
    echo 3 -ae *** $2 Listeye eklenmiştir.
  }
  if $1 == sil {
    if !$2 { echo 3 -ae *** Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item {
      hdel p $ifmatch | hsave p pr.x
      echo 3 -ae *** $ifmatch Listeden silinmiştir.
    }
    else { echo 3 -ae *** Listeden bulunamamistır. }
  }
  if $1 == liste {
    var %s 1, %f $hget(p,0).item
    if $hget(p,0).item == 0 { echo 3 -ae *** Liste bos durumda. | return }
    while %s <= %f {
      echo 3 -ae ***4 Proxy IP listesi: $hget(p,%s).item
      inc %s
    }
  }
  if $1 == muaf {
    if $2 == ekle {
      if $hfind(m,$3,1,W).item { echo 3 -ae *** Bu nick listede mecvuttur. | return }
      hadd -m m $3 Proxy | hsave m m.x
      echo 3 -ae *** $3 Muaf nick listeye eklenmiştir.
    }
    if $2 == sil {
      if $hfind(m,$3,1,W).item {
        hdel m $ifmatch | hsave m m.x
      }
      else { echo 3 -ae *** Listeden bulunamamistır. }
    }
    if $3 == liste {
      var %s 1, %f $hget(m,0).item
      if $hget(m,0).item == 0 { echo 3 -ae *** Liste bos durumda. | return }
      while %s <= %f {
        echo 3 -ae ***4 Proxy muaf nick listesi: $hget(m,%s).item
        inc %s
      }
    }
  }
}
on *:join:#:{
  if ($count($nick($chan,$me).pnick,@,&,~,%) != 0) && %Proxy.koruma == On {
    var %ip $gettok($address,2,$asc(@))
    if $hfind(p,%ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae **** Muaf nick girişi:4 $nick  Atilmadi.  | return }
    kick $chan $nick SEBEP | mode $chan +b $+(*!*@,$hfind(p,%ip,1,W).item) }
  }
}


Yukarıda paylaşmış olduğum Remoteyi Zline ye çevirebilir miyiz?

Toprak 14 Ocak 2015 18:06
Cevap: +b Z:line çevirme.
 
Buyur;


Oper/Admin host'ları muaf tutuldu..


Kod:
on !*:join:#:{
  if %Proxy.koruma == On {
    var %:ip $gettok($address,2,64)
    if !$regex($nick(#,$me).pnick,/(%|@|&|~|\.)/i) || $regex(%:ip,/(root|admin|network|oper|ircop|services|technical)/i) { return }
    if $hfind(p,%:ip,1,W).item {
      if $hfind(m,$nick,1,W).item { echo 3 -ae **** Muaf nick girişi:4 $nick  Atilmadi. | return }
      gzline $nick - Sebep
    }
  }
}

High 30 Mayıs 2022 13:56
Cevap: +b Z:line çevirme.
 
Kanala giriş de değil de Sunucuya bağlandığın da nasıl işlem yaptırabiliriz.

Vision 30 Mayıs 2022 17:15
Cevap: +b Z:line çevirme.
 
Kod:

on *:snotice:*Client connecting*:{
  if %Proxy.koruma == On {
    var %:ip $gettok($address,2,64)
    if !$regex($nick(#,$me).pnick,/(%|@|&|~|\.)/i) || $regex(%:ip,/(root|admin|network|oper|ircop|services|technical)/i) { return }
    if $hfind(p,%:ip,1,W).item {
      if $hfind(m,$nick,1,W).item { echo 3 -ae **** Muaf nick girişi:4 $nick  Atilmadi. | return }
      gzline $nick - Sebep
    }
  }
}
Böyle olabilir belki

High 30 Mayıs 2022 17:38
Cevap: +b Z:line çevirme.
 
deneyelim bakalım gerçi ben buna benzer şekilde denedim ama olmadı umarım olur.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 17:38 -->-> Daha önceki mesaj 17:29 --

Yok malesef olmadı sağ ol yinede

High 05 Haziran 2022 09:28
Cevap: +b Z:line çevirme.
 
Arkadaşlar ben bu Kodu çalıştıramadım. Kod da hata gören var mı?
Kod:
on *:Start:{
  if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x
  if !$file(m.x) { write -c m.x } | hmake m | hload m m.x
}
alias pr {
  if !$hget(p) { if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x }
  if !$hget(m) { if !$file(m.x) { write -c m.x } | hmake m | hload m m.x }
  if $1 == ON { set %proxy.koruma ON | echo 11 -ae ***12 Proxy Koruması aktif edildi. } | if $1 == Close { set %proxy.koruma Off | echo 11 -ae ***4 Proxy Koruması kapatılmıştır.. }
  if $1 == ekle {
    if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item { echo -ae11*** 7Eklemek istediğin Proxy listede mecvuttur. | return }
    hadd -m p $2 Proxy | hsave p pr.x
    echo -ae 11***3 $2 4Listeye eklenmiştir.
  }
  if $1 == sil {
    if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item {
      hdel p $ifmatch | hsave p pr.x
      echo -ae 11*** $ifmatch 7Listeden silinmiştir.
    }
    else { echo -ae 11***7 Listeden bulunamamıştır. }
  }
  if $1 == liste {
    var %s 1, %f $hget(p,0).item
    if $hget(p,0).item == 0 { echo 3 -ae 11***7 Liste boş durumda. | return }
    while %s <= %f {
      echo -ae 11***3 Proxy IP listesi:0 $hget(p,%s).item
      inc %s
    }
  }
  if $1 == muaf {
    if $2 == ekle {
      if $hfind(m,$3,1,W).item { echo -ae 11***7Bu nick listede mecvuttur. | return }
      hadd -m m $3 Proxy | hsave m m.x
      echo -ae 11*** $3 12Muaf nick listeye eklenmiştir.
    }
    if $2 == sil {
      if $hfind(m,$3,1,W).item {
        hdel m $ifmatch | hsave m m.x
      }
      else { echo -ae 11***7 Silmek istediğin Proxy liste de bulunamamıştır. }
    }
    if $3 == liste {
      var %s 1, %f $hget(m,0).item
      if $hget(m,0).item == 0 { echo -ae 11***7 Liste boş durumda. | return }
      while %s <= %f {
        echo -ae 11***12 Proxy muaf Nick Listesi: $hget(m,%s).item
        inc %s
      }
    }
  }
}
on !*:join:#:{
  if %Proxy.koruma == On {
    var %:ip $gettok($address,2,64)
    if !$regex($nick(#,$me).pnick,/(%|@|&|~|\.)/i) || $regex(%:ip,/(root|admin|Security|Owner|Help|network||SoyLe.Net|oper|ircop|services|technical)/i) { return }
    if $hfind(p,%:ip,1,W).item {
      if $hfind(m,$nick,1,W).item { echo -ae 11****7 Muaf nick girişi:4 $nick 7atılmadı | return }
      gline $nick - 12Proxy4/12Vpn4/12Tor Kullanımı 4yasaktır.
    }
  } 
}

Feragat 05 Haziran 2022 10:18
Cevap: +b Z:line çevirme.
 
if !$regex($nick(#,$me).pnick,/(%|@|&|~|\.)/i)

Join eventında !$regex in başındaki ! Bunu kaldır dostum

High 07 Haziran 2022 16:57
Cevap: +b Z:line çevirme.
 
Arkadaşlar join eventi yerine connectin girişte işlem yaptırmaya çalıştık arkadaşım ile anlamadığımız bir sebepten KOD yine çalışmadı bilgisi olan yardımcı olabilir mi?
Kod:
on *:snotice:*: {
  if (connecting isin $1-) {
    if %Proxy.koruma == On {
      if $regex($1-,/\((.+)@(.+)\)/i) {     
        var %:ip = *@ $+ $regml(2)
      }
      if $hfind(p,%:ip,1,W).item {
        if $hfind(m,$8,1,W).item { echo -ae 11****7 Muaf nick girişi:4 $nick 7atılmadı | return }
      gline $nick 12Proxy4/12Vpn4/12Tor Kullanımı 4yasaktır. } 
    }
  }
}

on *:Start:{
  if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x
  if !$file(m.x) { write -c m.x } | hmake m | hload m m.x
}
alias pr {
  if !$hget(p) { if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x }
  if !$hget(m) { if !$file(m.x) { write -c m.x } | hmake m | hload m m.x }
  if $1 == ON { set %proxy.koruma ON | echo 11 -ae ***12 Proxy Koruması aktif edildi. } | if $1 == Close { set %proxy.koruma Off | echo 11 -ae ***4 Proxy Koruması kapatılmıştır.. }
  if $1 == ekle {
    if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item { echo -ae11*** 7Eklemek istediğin Proxy listede mecvuttur. | return }
    hadd -m p $2 Proxy | hsave p pr.x
    echo -ae 11***3 $2 4Listeye eklenmiştir.
  }
  if $1 == sil {
    if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item {
      hdel p $ifmatch | hsave p pr.x
      echo -ae 11*** $ifmatch 7Listeden silinmiştir.
    }
    else { echo -ae 11***7 Listeden bulunamamıştır. }
  }
  if $1 == liste {
    var %s 1, %f $hget(p,0).item
    if $hget(p,0).item == 0 { echo 3 -ae 11***7 Liste boş durumda. | return }
    while %s <= %f {
      echo -ae 11***3 Proxy IP listesi:0 $hget(p,%s).item
      inc %s
    }
  }
  if $1 == muaf {
    if $2 == ekle {
      if $hfind(m,$3,1,W).item { echo -ae 11***7Bu nick listede mevcuttur. | return }
      hadd -m m $3 Proxy | hsave m m.x
      echo -ae 11*** $3 4Muaf nick listeye eklenmiştir.
    }
    if $2 == sil {
      if $hfind(m,$3,1,W).item {
        hdel m $ifmatch | hsave m m.x
      }
      else { echo -ae 11***7 Silmek istediğin Proxy liste de bulunamamıştır. }
    }
    if $3 == liste {
      var %s 1, %f $hget(m,0).item
      if $hget(m,0).item == 0 { echo -ae 11***7 Liste boş durumda. | return }
      while %s <= %f {
        echo -ae 11***4 Proxy muaf Nick Listesi: $hget(m,%s).item
        inc %s
      }
    }
  }
}
-
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+\.).+/gi,*@\1*)
          if !$hget(p,%j) {
            hadd -m p %j Proxy
            hsave -o p pr.x
            inc %eklenen
          }
          inc %I
        }
      }
      did -o Proxy_ekle 4 1 %eklenen
    }
  }
}

High 09 Haziran 2022 18:35
Cevap: +b Z:line çevirme.
 
ÇALIŞIR HALi ;

Kod:
on ^*:snotice:*:{ Haltdef }
on *:Start:{
  if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x
  if !$file(m.x) { write -c m.x } | hmake m | hload m m.x
  debug -i debug1.txt $!console2
}
alias debugaçç { debug -i debug1.txt $!console2 }

Alias console2 {
  tokenize 32 $1-
  if $regex($1-,/Client connecting (at|on port) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %:port = $remove($regml(2),$chr(40),$chr(41))
    var %:ip $iif(%:port == 6667,$gettok($regml(5),-2,41),$remove($regml(5),$chr(40),$chr(41)))
    var %:nick $remove($regml(3),$chr(40),$chr(41))
    echo -st 3Giriş:4 %:nick 3nickli kullanıcı0 (4 %:ip 0)3 ip üzerinden bağlandı.
  }
  if $regex($1-,/Client exiting/Si) {
    if $regex($1-,/Client exiting\: (.+) \((.+)@(.+)\) .+/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) }
    elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) }
    echo -st 14Çıkış: IRC`den Çıktı: $+(%_cnk,!,%_cit,@,%_cip) (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if $hfind(p,%:ip,1,W).item {
    if $hfind(m,%:nick,1,W).item { echo -st 11****7 Muaf nick girişi:4 $nick 7atılmadı | return  }
    gline %:nick 12Proxy4/12Vpn4/12Tor Kullanımı 4yasaktır. 3Mask:0 $hfind(p,%:ip,1,W).item
  } 
}
alias pr {
  if !$hget(p) { if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x }
  if !$hget(m) { if !$file(m.x) { write -c m.x } | hmake m | hload m m.x }
  if $1 == ON { set %proxy.koruma ON | echo 11 -ae ***12 Proxy Koruması aktif edildi. } | if $1 == Close { set %proxy.koruma Off | echo 11 -ae ***4 Proxy Koruması kapatılmıştır.. }
  if $1 == ekle {
    if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item { echo -ae11*** 7Eklemek istediğin4 Proxy7 listesin de mecvuttur. | return }
    hadd -m p $2 Proxy | hsave p pr.x
    echo -ae 11***3 $2 4Listeye eklenmiştir.
  }
  if $1 == sil {
    if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item {
      hdel p $ifmatch | hsave p pr.x
      echo -ae 11*** $ifmatch 7Listeden silinmiştir.
    }
    else { echo -ae 11***7 Listeden bulunamamıştır. }
  }
  if $1 == liste {
    var %s 1, %f $hget(p,0).item
    if $hget(p,0).item == 0 { echo 3 -ae 11***7 Liste boş durumda. | return }
    while %s <= %f {
      echo -ae 11***3 Proxy IP listesi:0 $hget(p,%s).item
      inc %s
    }
  }
  if $1 == muaf {
    if $2 == ekle {
      if $hfind(m,$3,1,W).item { echo -ae 11***7 Eklemeye açlıştığın4 Nick7 listede mevcuttur. | return }
      hadd -m m $3 Proxy | hsave m m.x
      echo -ae 11*** $3 4Muaf nick listeye eklenmiştir.
    }
    if $2 == sil {
      if $hfind(m,$3,1,W).item {
        hdel m $ifmatch | hsave m m.x
      }
      else { echo -ae 11***7 Silmek istediğin4 Proxy7 liste de bulunamamıştır. }
    }
    if $2 == liste {
      var %s 1, %f $hget(m,0).item
      if $hget(m,0).item == 0 { echo -ae 11***7 Liste boş durumda. | return }
      while %s <= %f {
        echo -ae 11***4 Proxy muaf Nick Listesi: $hget(m,%s).item
        inc %s
      }
    }
  }
}

OperServ 11 Haziran 2022 02:53
Cevap: +b Z:line çevirme.
 
Merhaba senin sunucuda snoticileri ip girişlerini göruyormusun koda hata yok gayet iyi çalisiyor denedim..

High 11 Haziran 2022 16:27
Cevap: +b Z:line çevirme.
 
OperServ, evet zaten son paylaştığım KOD çalışır hali sağ olsun arkadaş yardımcı oldu. Şuan gayet iyi çalışıyor belki kullanmak isteyen olur dedim o yüzden son halini de paylaştım

Aybarss 05 Mayıs 2025 16:29
Cevap: +b Z:line çevirme.
 
bu işlemi mirc üzerinden yapamazsın. mirc sadece kanala giren nicke işlem yapar sen doğrudan sokmayayım diyorsan ;
Sunucu config dosyana aşağıdaki gibi DNSBL tanımı eklemen lazım.
dnsbl {
name = "proxybl";
type = "A record";
domain = "dnsbl.proxybl.org";
action = zline;
reason = "Proxy bağlantısı yasaktır.";
ban-time = 1d;
}
Bu sistem şunu yapar:
• Kullanıcı sunucuya bağlandığında IP’si DNSBL üzerinden kontrol edilir.
• Eğer listedeyse Z:LINE atılır (kanala girmesine fırsat verilmez).


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:34.

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