Code:

proc urlEncode {url} {  if {[regexp {(.*)\?(.*)} $url -> pre sur]} {    set result ${pre}?    foreach {x} [split $sur {}] {      if {[regexp {[^a-zA-Z0-9=%]} $x]} {        append result "%[format %02x [scan $x %c]]"      } else {      append result $x      }    }    return $result  }  return $url}

Code:

proc slowUrlEncode str {set out ""foreach c [split $str ""] {if {[string match {[A-Za-z0-9]} $c]} {append out $c} {append out [switch [string bytelen $c] {1 {format %%%.2X [scan $c %c]}2 {eval format %%%.2X%%%.2X [scan [encoding convertto utf-8 $c] %c%c]}3 {eval format %%%.2X%%%.2X%%%.2X [scan [encoding convertto utf-8 $c] %c%c%c]}}]}}set out}

Code:

Tcl error [p_userinfo]: couldn't compile regular expression pattern: invalid escape \ sequence

Code:

proc urlencode { text } {       regsub -all {\%} $text "%25" text     set i [string length $text]         # Loop through and replace all non alpha / numeric characters    # with their relevant %{HEX ascii code} values.    while {([regexp -nocase {[^a-z0-9%]} $text toh])&&!($i < 0 )} {         scan "$toh" %c dec         regsub -all "\\${toh}" $text "%[format %X $dec]" text         incr i -1     }     if {$i < 0} {putlog "Infinite loop something is very wrong: $text"}     return $text } 

Code:

proc makeUrlencodeMap {} {   for {set i 0} {$i<256} {incr i} {      set c [format %c $i]      if {![string match \[a-zA-Z0-9\] $c]} {         set tmp($c) %[format %.2X $i]      }   }   array set tmp {" " +   \n %0D%0A}   array get tmp}set urlencodeMap [makeUrlencodeMap]proc urlencode string {   string map $::urlencodeMap $string}proc p_userinfo { n u h c t } {  global scripturl ui_pass ui_salt  if {[userinfo:auth $c]} {    if { [llength [split $t]] < "1" } {      putquick "PRIVMSG $c :\0034\002\[UINFO\]:\002 USAGE: \002!userinfo <username>\002\003"      return 0    }        set ft [join [list $t]]    set t "$ft"        set t [urlencode $t]    set agent "Mozilla"    set query "$scripturl?querytype=userinfo&username=$t&password=$ui_pass&salt=$ui_salt"    set page [http::config -useragent $agent]    set page [http::geturl $query]    set lines [split [::http::data $page] \n]    set result [lindex $lines 1]    set output [string range [lindex $lines 1] 9 end]       if { [lrange "$result" 0 0] == "baduser" } {      putlog "\[UINFO\] sent query: $query"      putquick "PRIVMSG $c :\0034\002\[UINFO\]:\002 invalid username: \002$ft\002\003"      putlog "\0034\002\[UINFO\]:\002 ($c) \002$n\002 requested userinfo on invalid username: \002$ft\002\003"    }    if { [lrange "$result" 0 0] == "gooduser" } {      putlog "\[UINFO\] sent query: $query"      putserv "PRIVMSG $c :[string range [lindex $lines 1] 9 end]"      putserv "PRIVMSG $c :[lindex $lines 2]"      putlog "\0033\002\[UINFO\]:\002 ($c) \002$n\002 received userinfo on username: \002$ft\002\003"    }  }}

Code:

[UINFO] sent query: http://www.domain.com/scs/test.php?querytype=userinfo&username=somedude&password=48573434&salt=fuuwy

Code:

[UINFO] sent query: http://www.domain.com/scs/test.php?querytype=userinfo&username=some+dude&password=48573434&salt=fuuwy

Code:

[UINFO] sent query: http://www.domain.com/scs/test.php?querytype=userinfo&username=§ome+dude§&password=48573434&salt=fuuwy

Code:

[UINFO] sent query: http://www.domain.com/scs/test.php?querytype=userinfo&username=®en&password=48573434&salt=fuuwy