version reply stuff - mIRC Discussion Forums

some of the workaround scripts for the recent dcc bug made me realize that it is relatively simple to bypass the default version reply using /debug -i. I just thought i would make this known so something might be done about it in future versions.

I understand what you're saying, but you still can't halt it entirly...

Code:

on 1:CONNECT: {
  /newver mIRC $version Khaled Mardam-Bey (KingTomato Test)
}

alias newver {
  /set %vers $1
  .debug -ni @d- $+ $cid newVersion
  .window -nh @d- $+ $cid
}

alias newVersion {
  /tokenize 32 $1
  if ((*!*@* iswm $2) &amp;&amp; ($5 == :VERSION)) {
    var %nick = $right($gettok($2, 1, $asc(!)), -1), %addy = $1
    .ctcpreply %nick VERSION Boo
    /halt
  }
  return $1-
}

//ctcp $me Version

Returns:

[22:49:35] -> [KingTomato] VERSION
-
[22:49:35] [KingTomato VERSION]
-
[22:49:35] [KingTomato VERSION reply]: mIRC 6.12 Khaled Mardam-Bey (KingTomato Test)
-
[22:49:36] [KingTomato VERSION reply]: mIRC v6.12 Khaled Mardam-Bey

You still get the default msg..

Code:

ON *:START:{
  .window -h @ctcp_catcher
  .debug -i @ctcp_catcher ctcp_catcher
}

alias ctcp_catcher {
  tokenize 32 $1
  if ($1 != &lt;-) return
  if ($5 == :VERSION || $5 == VERSION) {
    var %to = $gettok($2,1,33)
    if ($left(%to,1) == :) {
      %to = $right(%to,-1)
    }
    ctcpreply %to VERSION Not telling v1.0
    return
  }
  return
}

voila!!!!!! version changer

lies

[23:02] [MTec89 VERSION]
[23:02] [MTec89 VERSION reply]: Not telling v1.0
[23:02] [MTec89 VERSION reply]: mIRC v6.12 Khaled Mardam-Bey

ignore all ctcps first

Congratulations!

oh that is not my code so dont congratulate me ..... a poster here should recognize it as his and i wont give any names to whom it belongs.

I modified it to this so ignoring all ctcp on all networks isn't needed .. what ya think?

Code:

on *:CONNECT:.debug -i $iif($debug == $null,NUL,$debug) ctcp_catcher
alias ctcp_catcher {
  tokenize 32 $1
  if ($1 != &lt;-) return
  if (($5 == :VERSION) || ($5 == VERSION)) {
    .ignore -twu1 $right($2,-1)
    var %to = $gettok($2,1,33)
    if ($left(%to,1) == :) %to = $right(%to,-1)
    ctcpreply %to VERSION Not telling v1.1
  }
  return
}

This still allows any other ctcp through.

oh i use something entirely different for 6.03 version which also works. note debug -i does not work in 6.03

Sorry, forgot you were stickin with 6.03

It needed this added

.ignore -tu1 $mid($2,2)

Just ignore ctcp's from that person for a second

This is what a exploit patch was doing for 6.1 for 2 seconds after it encountered a *!*@* $+ $chr(1) $+ DCC SEND "*

On a personal note, I dont see whats wrong with being able to deny people the right to version you, near the end of the exploit being used by "people" (i use that word loosely) on others , i noticed a few times i would be versioned, by people not in the same channels as me, this made me wonder why, so i rigged the exploit fix, to also give off a false v6.03, and low and behold i would then get hit witha exploit attempt, one time 6 of them in a row, they must have been wondering how i was stopping it on 6.03 i guess