Difference between revisions of "Challenge auth"

From Scriptwiki
Jump to: navigation, search
m (a-f instead of a-z)
m (added echo to show what server(ip) we are connected to, and some other minor stuff)
Line 2: Line 2:
 
  ;  written and tested on mIRC 6.16
 
  ;  written and tested on mIRC 6.16
 
  ;
 
  ;
  ;What does this script do?
+
  ; What does this script do?
 
  ;
 
  ;
 
  ;  auths with Q using the 'CHALLENGEAUTH' command
 
  ;  auths with Q using the 'CHALLENGEAUTH' command
 
  ;
 
  ;
  ;How to use this script?
+
  ; How to use this script?
 
  ;
 
  ;
 
  ;  load the script and connect to quakenet
 
  ;  load the script and connect to quakenet
Line 15: Line 15:
 
   
 
   
 
  on $*:notice:/^CHALLENGE MD5 ([0-9a-f]){32}$/:?:{
 
  on $*:notice:/^CHALLENGE MD5 ([0-9a-f]){32}$/:?:{
   if ($fulladdress === Q!TheQBot@CServe.quakenet.org) && ($network === QuakeNet) && ($right($server,13) === .quakenet.org) {
+
   if ($fulladdress != Q!TheQBot@CServe.quakenet.org) || ($network != QuakeNet) || (*.quakenet.org !iswm $server) { !return }
 +
  !echo -egst *** Attempting to CHALLENGE AUTH with Q from $server $chr(91) $+ $serverip $+ $chr(93)
 
   
 
   
    ;this is the most secure way, 'semi-automatic'
+
  ; this is the most secure way, 'semi-automatic'
    ;sets the command ready for you, but you have to enter the account and password everytime
+
  ; sets the command ready for you, but you have to enter the account and password everytime
    ;for paranoid people, change the -ns to -s,  
+
  ; for paranoid people, change the -ns to -s,  
    ;that way you see the command in status window and have to press enter yourself
+
  ; that way you see the command in status window and have to press enter yourself
    ;do not change the following 3 lines, unless you know what you are doing
+
  ; do not change the following 2 lines, unless you know what you are doing
 
   
 
   
    !editbox -ns $+($str($readini($mircini,text,commandchar),2),.!MSG) $&
+
  !editbox -ns //!.msg Q@CServe.quakenet.org CHALLENGEAUTH $$!?*="account" $!md5($left($$?*="password",10) $3 $+ )
      Q@CServe.quakenet.org CHALLENGEAUTH $$!?*="account" $!md5($left($$?*="password",10) $3 $+ )
+
  !return
    !return
 
 
   
 
   
 
   
 
   
 +
  ; if you want automatic auth, despite the risks..,
 +
  ; comment the above 2 lines, like this:
 +
  ;  ;!editbox ..
 +
  ;  ;!return
 +
  ; and replace 'username' and 'password' below
 
   
 
   
    ;if you want automatic auth, despite the risks..,
+
  !var %j = $&
    ;comment the above 3 lines, like this:
+
    username
    ; ;!editbox ..
+
  !var %s = $&
    ;  ;Q@CServe.quakenet.org ..
+
    password
    ; ;!return
+
  !.msg $+(Q,$chr(64),CSe,rve,$chr(46),qua,ken,et,.o,rg,$chr(32),CH,$chr(65),LL,$chr(69),NG,$chr(69),$chr(65),$chr(85),TH) %j $md5($left(%s,10) $3)
    ;and replace 'username' and 'password' below
 
 
    !var %j = $&
 
      username
 
    !var %s = $&
 
      password
 
    .!MSG $+(Q,$chr(64),CSe,rve,$chr(46),qua,ken,et,.o,rg,$chr(32),CH,$chr(65),LL,$chr(69),NG,$chr(69),$chr(65),$chr(85),TH) %j $md5($left(%s,10) $3)
 
 
   }
 
   }
 
  }
 
  }
 
   
 
   
 
  on *:notice:Either you haven't requested a challenge yet or your one expired.:?:{
 
  on *:notice:Either you haven't requested a challenge yet or your one expired.:?:{
   if ($fulladdress === Q!TheQBot@CServe.quakenet.org) && ($network === QuakeNet) && ($right($server,13) === .quakenet.org) {
+
   if ($fulladdress != Q!TheQBot@CServe.quakenet.org) || ($network != QuakeNet) || (*.quakenet.org !iswm $server) { !return }
    .!MSG Q@CServe.quakenet.org CHALLENGE
+
  !.msg Q@CServe.quakenet.org CHALLENGE
  }
 
 
  }
 
  }
 
   
 
   
 
  on *:connect:{
 
  on *:connect:{
   if ($network === QuakeNet) && ($right($server,13) === .quakenet.org) {
+
   if ($network != QuakeNet) || (*.quakenet.org !iswm $server) { !return }
    .!MSG Q@CServe.quakenet.org CHALLENGE
+
  !.msg Q@CServe.quakenet.org CHALLENGE
  }
 
 
  }
 
  }
  
 
[[Category:Script Archive]]
 
[[Category:Script Archive]]

Revision as of 13:24, 10 February 2008

;  by wiebe @ QuakeNet
;  written and tested on mIRC 6.16
;
; What does this script do?
;
;  auths with Q using the 'CHALLENGEAUTH' command
;
; How to use this script?
;
;  load the script and connect to quakenet
;  (if already connected, /msg Q challenge)
;  default mode is 'semi-automatic'
;  for more info, read below
;

on $*:notice:/^CHALLENGE MD5 ([0-9a-f]){32}$/:?:{
  if ($fulladdress != Q!TheQBot@CServe.quakenet.org) || ($network != QuakeNet) || (*.quakenet.org !iswm $server) { !return }
  !echo -egst *** Attempting to CHALLENGE AUTH with Q from $server $chr(91) $+ $serverip $+ $chr(93)

  ; this is the most secure way, 'semi-automatic'
  ; sets the command ready for you, but you have to enter the account and password everytime
  ; for paranoid people, change the -ns to -s, 
  ; that way you see the command in status window and have to press enter yourself
  ; do not change the following 2 lines, unless you know what you are doing

  !editbox -ns //!.msg Q@CServe.quakenet.org CHALLENGEAUTH $$!?*="account" $!md5($left($$?*="password",10) $3 $+ )
  !return


  ; if you want automatic auth, despite the risks..,
  ; comment the above 2 lines, like this:
  ;  ;!editbox ..
  ;  ;!return
  ; and replace 'username' and 'password' below

  !var %j = $&
    username
  !var %s = $&
    password
  !.msg $+(Q,$chr(64),CSe,rve,$chr(46),qua,ken,et,.o,rg,$chr(32),CH,$chr(65),LL,$chr(69),NG,$chr(69),$chr(65),$chr(85),TH) %j $md5($left(%s,10) $3)
  }
}

on *:notice:Either you haven't requested a challenge yet or your one expired.:?:{
  if ($fulladdress != Q!TheQBot@CServe.quakenet.org) || ($network != QuakeNet) || (*.quakenet.org !iswm $server) { !return }
  !.msg Q@CServe.quakenet.org CHALLENGE
}

on *:connect:{
  if ($network != QuakeNet) || (*.quakenet.org !iswm $server) { !return }
  !.msg Q@CServe.quakenet.org CHALLENGE
}