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

elhale · 10 Nisan 2017, 14:19

Merhaba all,

I searched the forum before opening this thread and found 2 topics that somehow offer what im looking for.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

on *:ctcpreply:VERSION mIRC*:if $($+(%,nc.,$nick),2) { msg #kanal $1 mIRC Girişi Yaptı | unset $+(%,nc.,$nick) }
on *:snotice:*Client connecting*:{
var %id ident1 ident2
if $istok(%id,$remove($gettok($gettok($10,1,40),1,64) ,~),32) {
ctcp $9 VERSION | set $+(%,nc.,$9) 1 | timer 1 60 vcontrol $9
}
}

alias vcontrol { if $($+(%,nc.,$1),2) { msg #kanal $1 mIRC Girişi Yaptı| unset $+(%,nc.,$nick) } }

and

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

on *:ctcpreply:VERSION mIRC*:if $($+(%,nc.,$nick),2) { zline $nick <zline sebebi> | unset $+(%,nc.,$nick) }
on *:snotice:*Client connecting*:{
    var %id ident1 ident2
  if $istok(%id,$remove($gettok($gettok($10,1,40),1,64) ,~),32) {
    ctcp $9 VERSION | set $+(%,nc.,$9) 1 | timer 1 60 vcontrol $9
  }
}

alias vcontrol { if $($+(%,nc.,$1),2) { zline $1 <zline sebebi> | unset $+(%,nc.,$nick) } }

The code on these topics works but i wanted it to do smth more. I wanted to add to the code when a user with a specific ident connects and doesn't give an answer to the ctcp $nick version command.

So, if anyone can help, how can we identify the users connecting to the server that don't give an answer to the version request?

for example the code works for:

[12:03:59] <ConnectServ> SIGNON user: User68314 (JavaUser@p50811B44.dip0.t-ipconnect.de
[12:03:59] <Network> Got Version Reply from User68314: mIRC v6.12 Khaled Mardam-Bey

msg on test channel:

[12:04:02] [ ALERT ] User68314 using bad ident with mIRC Entered.

But how to do it for when no answer to Version request?

[14:12:34] <ConnectServ> SIGNON user: User53456 (JavaUser@185.89.217.233

"No Network Answer"

"and no message on test channel"

CoCoRiCo · 11 Nisan 2017, 09:24

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

Merhaba all,

I searched the forum before opening this thread and found 2 topics that somehow offer what im looking for.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

on *:ctcpreply:VERSION mIRC*:if $($+(%,nc.,$nick),2) { msg #kanal $1 mIRC Girişi Yaptı | unset $+(%,nc.,$nick) }
on *:snotice:*Client connecting*:{
var %id ident1 ident2
if $istok(%id,$remove($gettok($gettok($10,1,40),1,64) ,~),32) {
ctcp $9 VERSION | set $+(%,nc.,$9) 1 | timer 1 60 vcontrol $9
}
}

alias vcontrol { if $($+(%,nc.,$1),2) { msg #kanal $1 mIRC Girişi Yaptı| unset $+(%,nc.,$nick) } }

and

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

on *:ctcpreply:VERSION mIRC*:if $($+(%,nc.,$nick),2) { zline $nick <zline sebebi> | unset $+(%,nc.,$nick) }
on *:snotice:*Client connecting*:{
    var %id ident1 ident2
  if $istok(%id,$remove($gettok($gettok($10,1,40),1,64) ,~),32) {
    ctcp $9 VERSION | set $+(%,nc.,$9) 1 | timer 1 60 vcontrol $9
  }
}

alias vcontrol { if $($+(%,nc.,$1),2) { zline $1 <zline sebebi> | unset $+(%,nc.,$nick) } }

The code on these topics works but i wanted it to do smth more. I wanted to add to the code when a user with a specific ident connects and doesn't give an answer to the ctcp $nick version command.

So, if anyone can help, how can we identify the users connecting to the server that don't give an answer to the version request?

for example the code works for:

[12:03:59] <ConnectServ> SIGNON user: User68314 (JavaUser@p50811B44.dip0.t-ipconnect.de
[12:03:59] <Network> Got Version Reply from User68314: mIRC v6.12 Khaled Mardam-Bey

msg on test channel:

[12:04:02] [ ALERT ] User68314 using bad ident with mIRC Entered.

But how to do it for when no answer to Version request?

[14:12:34] <ConnectServ> SIGNON user: User53456 (JavaUser@185.89.217.233

"No Network Answer"

"and no message on test channel"

/debug @d
See the [ ALERT ] message. And copy it here.

And personal solution.
start: /getd
blue section is monitor channel.
red sction is how long he will respond if he does not respond
pink section is ban type.

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

alias getd {
var %ch #ControlChannel
var %min 10
  if (!$1) debug -i d getd 
  if $1 {
    tokenize 32 $1-
    if (*<-:*NOTICE*:Notice*Client*connecting*on*port*:* iswm $1-) .ctcp $4 VERSION 
    if *PRIVMSG*:VERSION* iswm $1- { 
      .hadd -mu $+ %min ver $4 
      $+(.timerver_,$4) 1 %min gzline $4 version SUX! $(|) echo %ch $4 Did not respond to the version
    }
    if *:*!*@*NOTICE* $+ $hget(ver,$4) $+ :VERSION** iswm $1- {
      echo %ch Version Reply : $4 to $remove($6-,$chr(1)) 
      hdel ver $4 | $+(.timerver_,$4) off
    }
  }
}

elhale · 11 Nisan 2017, 12:24

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

/debug @d
See the [ ALERT ] message. And copy it here.

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

<- :hub3.network.net NOTICE starkeffect :*** Notice -- Client connecting at hub1.network.net: cuni (Web@79.106.7.8)
-> hub3.network.net WHO +I cuni
<- :hub3.network.net 352 starkeffect * Web 79.106.7.8 hub1.network.net cuni H :1 12Visitor from --=> 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
315 starkeffect cuni :End of /WHO list.
<- :cuni!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 JOIN :#Main
<- :hub3.network.net NOTICE starkeffect :*** Notice -- Client connecting at hub2.network.net: StIvI (Mibbit@31.22.49.253)
-> hub3.network.net WHO +I StIvI
-> hub3.network.net PRIVMSG StIvI :VERSION
<- :hub3.network.net 352 starkeffect * Mibbit 31.22.49.253 hub2.network.net StIvI H :1 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
315 starkeffect StIvI :End of /WHO list.
<- :StIvI!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 NOTICE starkeffect :VERSION 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ajax IRC Client:3993:3993
14:10:11: 14[11c10tcp14(11StIvI14)] 15VERSION 14REPLY: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ajax IRC Client:3993:3993
-> hub3.network.net PRIVMSG #test4 :4 StIvI  entered the server with a different client than mIRC. 2
<- :StIvI!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 JOIN :#Main

<- :hub3.network.net NOTICE starkeffect :*** Notice -- Client connecting on port 6667: testing (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) [clients] 
-> hub3.network.net WHO +I testing
-> hub3.network.net PRIVMSG testing :VERSION
<- :hub3.network.net 352 starkeffect * Mibbit 78.12.112.143 hub3.network.net testing H :0 fullname
<- :hub3.network.net 315 starkeffect testing :End of /WHO list.
<- :testing!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 NOTICE starkeffect :VERSION mIRC v7.41
14:10:11: 14[11c10tcp14(11testing14)] 15VERSION 14REPLY: mIRC v7.41
-> hub3.network.net PRIVMSG #test4 :7[ ALERT 7] 4 testing  using bad ident with mIRC Entered. 1

this is the debug result I get @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

What I want to do is to get a report for certain idents (mibbit and javauser for example) that connect but are using mirc.

Also for the ones i don't get a version to report them aswell on the channel.

Eventually, decide what action to take (gzline for example).

I am trying to make it work for a hub not only for one server.

So, I am using 2 remotes atm

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

on *:ctcpreply:VERSION*:if ($regex(* mIRC*)) && $($+(%,nc.,$nick),2) { msg #test4  7[ ALERT 7] 4 $nick  using bad ident with mIRC Entered. 2 | unset $+(%,nc.,$nick) }
on *:snotice:*Client connecting*:{
  var %id Javauser Mibbit
  if $istok(%id,$remove($gettok($gettok($9,1,40),1,64) ,~),32) {
    ctcp $8 VERSION | set $+(%,nc.,$8) 1 | timer 1 2 vcontrol $8
  }
}

alias vcontrol { if $($+(%,nc.,$1),2) { msg #test4 4 $1  entered the server with a different client than mIRC. 2 | unset $+(%,nc.,$nick) } }

and this

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

on *:ctcpreply:VERSION mIRC*:if ($regex(* mIRC*)) && $($+(%,nc.,$nick),2) { msg #test4  7[ ALERT 7] 4 $nick  using bad ident with mIRC Entered. 1 | unset $+(%,nc.,$nick) }
on *:snotice:*Client connecting*:{
  var %id Javauser Mibbit
  if $istok(%id,$remove($gettok($gettok($10,1,40),1,64) ,~),32) {
    ctcp $9 VERSION | set $+(%,nc.,$9) 1 | timer 1 2 vcontrol $9
  }
}

alias vcontrol { if $($+(%,nc.,$1),2) { msg #test4 4 $1  entered the server with a different client than mIRC. 1 | unset $+(%,nc.,$nick) } }

your solution seems nice... to make it work for me do i have to change $4 with ($9 and $8?)

CoCoRiCo · 11 Nisan 2017, 13:19

no, you do not need to change anything. It does not use any event. It works through raw data.
The code I gave. For those who have not responded to the version for some time.
If you want to apply for a group of versions, you need to add a condition.(red section)
ex:

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

    if *:*!*@*NOTICE* $+ $hget(ver,$4) $+ :VERSION** iswm $1- {
      echo %ch Version Reply : $4 to $remove($6-,$chr(1)) 
       hdel ver $4 | $+(.timerver_,$4) off
       if $regex($6-,/(mibbit|lightirc)/) { gzline $4 hoop! your client are not allow from this server } 
           
    }

elhale · 11 Nisan 2017, 15:58

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

no, you do not need to change anything. It does not use any event. It works through raw data.
The code I gave. For those who have not responded to the version for some time.
If you want to apply for a group of versions, you need to add a condition.(red section)
ex:

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

    if *:*!*@*NOTICE* $+ $hget(ver,$4) $+ :VERSION** iswm $1- {
      echo %ch Version Reply : $4 to $remove($6-,$chr(1)) 
       hdel ver $4 | $+(.timerver_,$4) off
       if $regex($6-,/(mibbit|lightirc)/) { gzline $4 hoop! your client are not allow from this server } 
           
    }

hmmm i am trying this code

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

alias getd {
var %ch #main
var %min 10
  if (!$1) debug -i d getd 
  if $1 {
    tokenize 32 $1-
    if (*<-:*NOTICE*:Notice*Client*connecting*:* iswm $1-) .ctcp $4 VERSION 
    if *PRIVMSG*:VERSION* iswm $1- { 
      .hadd -mu $+ %min ver $4 
      $+(.timerver_,$4) 1 %min gzline $4 Version Abuse! $(|) msg #test4 %ch $4 Did not respond to version request
    }
    if *:*!*@*NOTICE* $+ $hget(ver,$4) $+ :VERSION** iswm $1- {
      echo %ch Version Reply : $4 to $remove($6-,$chr(1)) 
       hdel ver $4 | $+(.timerver_,$4) off
       if $regex($6-,/(mibbit|lightirc)/) { gzline $4 hey! your client is not allowed on this server $(|) msg #test4 %ch $4 tried to connect with a prohibited version } 
           
    }
  }
}

but when i start the code with /getd I dont get a window with the raw data

if I do /debug @d yes, but nothing happens... just the raw data...

CoCoRiCo · 11 Nisan 2017, 16:16

Debug can only transfer raw data to a point.

/getd

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

...
tokenize 32 $1-
$iif(!$window(@debug),window -fn  @debug,echo @debug $1-)
...

gzline $4 hey! your client is not allowed on this server $(|) msg #test4 %ch $4 tried to connect with a prohibited version
change gzline $4 hey! your client is not allowed on this server | msg #test4 %ch $4 tried to connect with a prohibited

elhale · 11 Nisan 2017, 17:01

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

Debug can only transfer raw data to a point.

/getd

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

...
tokenize 32 $1-
$iif(!$window(@debug),window -fn  @debug,echo @debug $1-)
...

gzline $4 hey! your client is not allowed on this server $(|) msg #test4 %ch $4 tried to connect with a prohibited version
change gzline $4 hey! your client is not allowed on this server | msg #test4 %ch $4 tried to connect with a prohibited

made the changes and now when i do the /getd the code activates and i see the @debug window but i think the command .ctcp $4 version is not being issued on users connecting or when they join the channel.

if i load the code on the first post with ctcp $9 version command i get the version of the clients connecting...

maybe unreal is different? or is it a problem on my mirc?

CoCoRiCo · 12 Nisan 2017, 08:40

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

made the changes and now when i do the /getd the code activates and i see the @debug window but i think the command .ctcp $4 version is not being issued on users connecting or when they join the channel.

if i load the code on the first post with ctcp $9 version command i get the version of the clients connecting...

maybe unreal is different? or is it a problem on my mirc?

yes, right.
this may be different on some special edits made and modules added to the servers or networks.

Raw data is different from "on events."

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

you can add the word that the red section nickname is. so it will work well.

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

..
if (*<-:*NOTICE*:Notice*Client*connecting*:* iswm $1-) .ctcp $4 VERSION 
....

elhale · 12 Nisan 2017, 15:16

Still not getting the results I want...

Ok, so here is how I am understanding things.

on server notice (@snotice) when users connect i get these notices:

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

*** Notice -- Client connecting on port 6667: Nick (Mibbit@79.106.40.73) [clients]
*** Notice -- Client connecting at hub1.network.net: User_836 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.kundencontroller.de)

and if I use these commands

for "on port" ctcp $9 VERSION
and
for "at" ctcp $8 VERSION

It works and I get the version response back

but when I edit your code for the debug raw data

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

<- :hub.network.net NOTICE starkeffect :*** Notice -- Client connecting on port 6667: Nick (Mibbit@79.106.40.73) [clients]
<- :hub1.network.net NOTICE starkeffect :*** Notice -- Client connecting at hub1.network.net: User_836 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.kundencontroller.de)

the command should change to

for "on port" ctcp $13 VERSION
and
for "at" ctcp $12 VERSION

right?

but when I edit your code to the new identifiers I don't see a version notice on the debug raw data... (i have done the /umode2 -T) it is as if the version command is not issued. The hash table ver is created but it is empty...

so for on port the code becomes

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

alias getd {
  var %ch #controlChannel
  var %min 10
  if (!$1) debug -i d getd 
  if $1 {
    tokenize 32 $1-
    $iif(!$window(@debug),window -fn  @debug,echo @debug $1-)
    if (*<-:*NOTICE*:Notice*Client*connecting*on*port*:* iswm $1-) .ctcp $13 VERSION 
    if *352* iswm $1- { 
      .hadd -mu $+ %min ver $13 
      $+(.timerver_,$13) 1 %min gzline $13 Version Abuse! $(|) msg #test4 %ch $13 Did not respond to version request
    }
    if *:*!*@*NOTICE* $+ $hget(ver,$13) $+ :*VERSION** iswm $1- {
      echo %ch Version Reply : $13 to $remove($6-,$chr(1)) 
      hdel ver $13 | $+(.timerver_,$13) off
      if $regex($6-,/(mibbit|lightirc)/) { gzline $13 hey! your client is not allowed on this server | msg #test4 %ch $13 tried to connect with a prohibited version } 

    }
  }
}

and for hub becomes:

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

alias getd {
  var %ch #controlChannel
  var %min 10
  if (!$1) debug -i d getd 
  if $1 {
    tokenize 32 $1-
    $iif(!$window(@debug),window -fn  @debug,echo @debug $1-)
    if (*<-:*NOTICE*:Notice*Client*connecting*at*:* iswm $1-) .ctcp $12 VERSION 
    if *352* iswm $1- { 
      .hadd -mu $+ %min ver $12 
      $+(.timerver_,$12) 1 %min gzline $12 Version Abuse! $(|) msg #test4 %ch $12 Did not respond to version request
    }
    if *:*!*@*NOTICE* $+ $hget(ver,$12) $+ :*VERSION** iswm $1- {
      echo %ch Version Reply : $12 to $remove($6-,$chr(1)) 
      hdel ver $12 | $+(.timerver_,$12) off
      if $regex($6-,/(mibbit|lightirc)/) { gzline $12 hey! your client is not allowed on this server | msg #test4 %ch $12 tried to connect with a prohibited version } 

    }
  }
}

I am sorry, I know I am always a headache... lol

CoCoRiCo · 12 Nisan 2017, 17:26

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

Still not getting the results I want...

....

I am sorry, I know I am always a headache... lol

this is tested.

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

on *:start: getd
alias getd {
  var %ch #ControlChannel
  var %min 60
  if (!$1) debug -i d getd 
  if $1 {
    tokenize 32 $1-

    ;### <- :IRC.syrix.net NOTICE CoCoRiCo :*** Client connecting: GONULMIMARI (ChatFoX@localhost) [127.0.0.1] {clients}

    if (*Client*connecting*:* iswm $1-) {
      .ctcp $8 VERSION | .hadd $+(-mu,%min) ver $8 $8 
      $+(.timerver_,$8) 1 %min zline $8 version SUX! $(|) msg %ch $8 Huh! version?
    }

    ;###  <- :GONULMIMARI!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
-B9074F5E NOTICE CoCoRiCo :VERSION mIRC v7.47

    if (*<-*:*!*@*NOTICE*:*VERSION* iswm $1-) {
      var %v_nick $remove($gettok($2,1,$asc(!)),:)
      msg %ch Version Reply : %v_nick to $remove($6-,$chr(1)) 
      .hdel ver %v_nick
      $+(.timerver_,%v_nick) off
      if $regex($6-,/(mibbit|lightirc)/i) { kill %v_nick hoop! your client SUX!  } 
    }
  }
}

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Ctcp	Skys	mIRC Scripting Sorunları	1	18 Aralık 2010 17:22
Ctcp	Coder-Ufuk	Eggdrop, NeoStats, BNC	0	26 Ocak 2010 12:15
Notice & CTCP	Asksihir	mIRC Scripting Sorunları	3	31 Mart 2009 22:19
CTCP Reply'da sorun (version)	codcu	mIRC Scripting Sorunları	4	04 Ağustos 2006 00:57
ctcp	beyaz_bjk	Chat ve IRC	0	31 Mayıs 2005 11:47

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.