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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Çözüldü snotice giriş (https://www.ircforumlari.net/mirc-scripting-sorunlari/767582-snotice-giris.html)

Selam aşagıdaki kodu farklı eklentiler ilede denedim fakat ne yaptıysam tüm girisler icin calısıtıramadım malesef.
kod sadece irc giris iplerini algılıyor.
bunu tüm girisleri algılıcak sekilde ayarlayabilmemiz mümkünmüdür acaba.

on *:snotice:*: {
if ($level($9) == muafnick) { halt }
if (connecting isin $1-) {
if $hfind(prox,$9,1,W).data {
if !$hget(prx,$9) {
.hinc -msu20 prx $9
echo -a $9 1d Proxy olarak algılandınız..
echo -a Proxy Nick Girisi - Bulunan Veri: $+([,$chr(32),$hget(prox,$hfind(prox,$9,1,W).data),$ch r(32),])
}
}
var %:ips $remove($gettok($10,2,64),$chr(41))
if ($level(%:ips) == muafips) { halt }
if $hfind(proxip,%:ips,1,W).data {
if !$hget(prxip,%:ips) {
.hinc -msu20 prxip %:ips
echo -a $+(*@,%:ips) 1d sebep
echo -a Proxy IP Girisi - Bulunan Veri: $+([,$chr(32),$hget(proxip,$hfind(proxip,%:ips,1,W).da ta),$chr(32),])
}
}
}
}

irc girislerinde islem yapıyor.
Client connecting on port 6667: KLBKNewUser6461 (Kelebeknew@78.195.197.48) [clients] [irc.x.com]
*@46.196.107.48 1d Proxy İP

fakat bu tür farklı girisleri algılamıyor hic.
Notice -- Client connecting at webirc4.x.com: burakk (sohbetweb@76.253.143.82) [webirc4.x.com]
Notice -- Client connecting at webmobil3.x.com: mühendis_ (Mobil@85.102.105.169) [webmobil3.x.com]

Cevap: snotice giriş

Hem normal girişlerde hem hublu girişlerde çalışır..

Kod:

on *:snotice:*Client connecting*: {

  var %nick = $token($token($4-,2,58),1,32), %ip $token($token($4-,2,64),1,41)

  if ($level(%nick) == muafnick) || ($level(%ip) == muafips) { return }

  elseif $hfind(prox,%nick,1,W).data && !$hget(prx,%nick) {

    .hinc -msu20 prx %nick

    echo -a %nick 1d Proxy olarak algılandınız..

    echo -a Proxy Nick Girisi - Bulunan Veri: $+([,$chr(32),$hget(prox,$hfind(prox,%nick,1,W).data),$chr(32),])

  }

  elseif $hfind(proxip,%ip,1,W).data && !$hget(prxip,%ip) {

    .hinc -msu20 prxip %ip 

    echo -a $+(*@,%ip) 1d sebep

    echo -a Proxy IP Girisi - Bulunan Veri: $+([,$chr(32),$hget(proxip,$hfind(proxip,%ip,1,W).data),$chr(32),])

  } 

}

Cevap: snotice giriş

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1041839218)

Hem normal girişlerde hem hublu girişlerde çalışır..

Kod:

on *:snotice:*Client connecting*: {

  var %nick = $token($token($4-,2,58),1,32), %ip $token($token($4-,2,64),1,41)

  if ($level(%nick) == muafnick) || ($level(%ip) == muafips) { return }

  elseif $hfind(prox,%nick,1,W).data && !$hget(prx,%nick) {

    .hinc -msu20 prx %nick

    echo -a %nick 1d Proxy olarak algılandınız..

    echo -a Proxy Nick Girisi - Bulunan Veri: $+([,$chr(32),$hget(prox,$hfind(prox,%nick,1,W).data),$chr(32),])

  }

  elseif $hfind(proxip,%ip,1,W).data && !$hget(prxip,%ip) {

    .hinc -msu20 prxip %ip 

    echo -a $+(*@,%ip) 1d sebep

    echo -a Proxy IP Girisi - Bulunan Veri: $+([,$chr(32),$hget(proxip,$hfind(proxip,%ip,1,W).data),$chr(32),])

  } 

}

süpersin usta. eline saglık tşk. ederim.

Cevap: snotice giriş

on *:snotice:*Client connecting*: {
var %nick = $token($token($4-,2,58),1,32), %ip $token($token($4-,2,64),1,41)
if ($level(%nick) == muafnick) || ($level(%ip) == muafips) { return }
elseif $hfind(prox,%nick,1,W).data && !$hget(prx,%nick) {
.hinc -msu20 prx %nick
echo -a %nick 1d Proxy olarak algılandınız..
echo -a Proxy Nick Girisi - Bulunan Veri: $+([,$chr(32),$hget(prox,$hfind(prox,%nick,1,W).data), $chr(32),])
}
elseif $hfind(proxip,%ip,1,W).data && !$hget(prxip,%ip) {
.hinc -msu20 prxip %ip
echo -a $+(*@,%ip) 1d sebep
echo -a Proxy IP Girisi - Bulunan Veri: $+([,$chr(32),$hget(proxip,$hfind(proxip,%ip,1,W).data ),$chr(32),])
}
}

Bu code'ye on-off nasıl ekleyebiliriz belirlediğimiz ip başlangıcına güvenlik kanalına girdiğinde zline attırmak istersek ve muaf tutmak istediklerimizi !muaf ekle nick !muaf sil nick şeklinde yapacak olursak nasıl olur?

Cevap: snotice giriş

Kusura bakmayın konuyu hortlatıyorum ama bende böyle bir KOD arıyordum. hash okutmalı Toprak hocanın bu Kodunu gördüm. Bende Alper hocanın toplu proxy ekleme aliasesi ile bir şeyler yapmak istedim ama yapamadım toplu proxy ekliyor ama proxy ipler den portu ayırabildiysem de proxy iplerin sonunda ki : karakterini sildiremedim. Bu konuda yardımcı olabilecek var mı?

Kod:

on *:snotice:*Client connecting*: {

  var %nick = $token($token($4-,2,58),1,32), %ip $token($token($4-,2,64),1,41)

  if ($level(%nick) == muafnick) || ($level(%ip) == muafips) { return }

  elseif $hfind(prox,%nick,1,W).data && !$hget(prx,%nick) {

    .hinc -msu20 prx %nick

    echo -a %nick 1d Proxy olarak algılandınız..

    echo -a Proxy Nick Girisi - Bulunan Veri: $+([,$chr(32),$hget(prox,$hfind(prox,%nick,1,W).data),$chr(32),])

  }

  elseif $hfind(proxip,%ip,1,W).data && !$hget(prxip,%ip) {

    .hinc -msu20 prxip %ip 

    echo -a $+(*@,%ip) 1d Proxy

    echo -a Proxy IP Girisi - Bulunan Veri: $+([,$chr(32),$hget(proxip,$hfind(proxip,%ip,1,W).data),$chr(32),])

  } 

}

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 p %j 

            hsave -o p proxip.x

            inc %eklenen

          }

          inc %I

        } 

      } 

      did -o Proxy_ekle 4 1 %eklenen

    }

  }

}

Cevap: snotice giriş

Alıntı:

High Nickli Üyeden Alıntı (Mesaj 1042691518)

ip:port şeklinde bir veri geliyor ise şöyle bir yol izleyebilirsin
":" karakterinin ascii kodu 58 dir. mircde

Kod:

//echo -a $asc(:)

komutu ile öğrenebilirsin.
buna göre;

Kod:

//echo -a $token(ip:port,1,58)
 yansıması: ip

//echo -a $token(ip:port,2,58)
 yansıması: port

bunları kullanarak çözüme ulaşırsın umarım.

haa, dersenki ben herşeyi çözdüm ip: şeklinde kaldı

Kod:

//echo -s $remove(ip:,:)

gibi ":" karakterini sildirebilirsin.