Feb 17, 2004 05:08
CGI:IRC Hex Converter
As of Nemokrad's post, you know that there is now a CGI client available for use to access irc.winbolo.com. When a user joins the channel, it reports their real IP address in hex characters as that client's user name. The following script will convert their IP address, do a DNS lookup on it, and display it in your active window in mIRC.
1) Copy everything below in the code section.
2) Paste it in your remotes section and save it.
3) To use, click a user then right click and choose "CGI-IRC"
[code:1:9d4129cc6d]
alias cgicon {
if ($chan(#).ial == $false) {
echo $color(info) -a -
echo $color(whois) -a $timestamp *** Please try again
echo $color(info) -a -
/who #
return
}
set %cgi.nick $snick(#,1)
var %hex = $mid($address(%cgi.nick,1),4,8)
var %dec
var %count 1
while (%count < 9) {
if ((($asc($mid(%hex,%count,1)) < 48) || ($asc($mid(%hex,%count,1)) > 57)) && (($asc($mid(%hex,%count,1)) < 97) || ($asc($mid(%hex,%count,1)) > 103))) {
echo $color(info) -a -
echo $color(whois) -a $timestamp *** User not on CGI:IRC
echo $color(info) -a -
return
}
inc %count
}
while ($len(%hex) != 0) {
var %temp = $base($mid(%hex,1,2),16,10) $+ .
%dec = %dec $+ %temp
%hex = $right(%hex,$calc($len(%hex) - 2))
}
%dec = $left(%dec,-1)
set %cgi.ip %dec
/dns %dec
}
on *:DNS: {
if (%cgi.nick == $null) { return }
elseif ($dns(0) == 0) {
echo $color(info) -a -
echo $color(whois) -a $timestamp *** %cgi.ip < > %cgi.nick < > Unable to Resolve
echo $color(info) -a -
}
else {
echo $color(info) -a -
echo $color(whois) -a $timestamp *** $dns(1).ip < > %cgi.nick < > $dns(1).addr
echo $color(info) -a -
}
unset %cgi.nick
unset %cgi.ip
}
menu nicklist {
CGI-IRC:/cgicon $snick(#,1)
}
[/code:1:9d4129cc6d]
1) Copy everything below in the code section.
2) Paste it in your remotes section and save it.
3) To use, click a user then right click and choose "CGI-IRC"
[code:1:9d4129cc6d]
alias cgicon {
if ($chan(#).ial == $false) {
echo $color(info) -a -
echo $color(whois) -a $timestamp *** Please try again
echo $color(info) -a -
/who #
return
}
set %cgi.nick $snick(#,1)
var %hex = $mid($address(%cgi.nick,1),4,8)
var %dec
var %count 1
while (%count < 9) {
if ((($asc($mid(%hex,%count,1)) < 48) || ($asc($mid(%hex,%count,1)) > 57)) && (($asc($mid(%hex,%count,1)) < 97) || ($asc($mid(%hex,%count,1)) > 103))) {
echo $color(info) -a -
echo $color(whois) -a $timestamp *** User not on CGI:IRC
echo $color(info) -a -
return
}
inc %count
}
while ($len(%hex) != 0) {
var %temp = $base($mid(%hex,1,2),16,10) $+ .
%dec = %dec $+ %temp
%hex = $right(%hex,$calc($len(%hex) - 2))
}
%dec = $left(%dec,-1)
set %cgi.ip %dec
/dns %dec
}
on *:DNS: {
if (%cgi.nick == $null) { return }
elseif ($dns(0) == 0) {
echo $color(info) -a -
echo $color(whois) -a $timestamp *** %cgi.ip < > %cgi.nick < > Unable to Resolve
echo $color(info) -a -
}
else {
echo $color(info) -a -
echo $color(whois) -a $timestamp *** $dns(1).ip < > %cgi.nick < > $dns(1).addr
echo $color(info) -a -
}
unset %cgi.nick
unset %cgi.ip
}
menu nicklist {
CGI-IRC:/cgicon $snick(#,1)
}
[/code:1:9d4129cc6d]
Last edited: Mar 01, 2004 00:30 (edited 5 times)