egghelp/eggheads community

TCL get IP from webchat, converts from HEX to the real ip

2013-01-13T21:59:48-04:00

hi, thanks for reply, for all. I tried it but couldn't make it work. always gives this output. how to run this? i give here some examples:

: !hex @350CE3.C1A208.7F4D68.0036C0
: @350CE3.C1A208.7F4D68.0036C0 isn't the amount of characters ( 8 ) required to convert to hex ip.
!hex 350CE3.C1A208.7F4D68.0036C0
: 350CE3.C1A208.7F4D68.0036C0 isn't the amount of characters ( 8 ) required to convert to hex ip.

Statistics: Posted by kingkong — Sun Jan 13, 2013 9:59 pm

TCL get IP from webchat, converts from HEX to the real ip

2013-01-13T13:13:27-04:00

ZendOR isn't the amount of characters ( 8 ) required to convert to hex ip.

what if i want to use less than 8 character to convert it to hex ip? is it possible for that? can somebody help me how to do it pls. thanks

Statistics: Posted by bunnybump — Sun Jan 13, 2013 1:13 pm

TCL get IP from webchat, converts from HEX to the real ip

2013-01-13T06:17:50-04:00

Can you give me script for this who i want ?

Statistics: Posted by SmasHinG — Sun Jan 13, 2013 6:17 am

TCL get IP from webchat, converts from HEX to the real ip

2013-01-13T02:33:19-04:00

hey, it doesn't work at me coz our cloaked ips different hexed.
as an example cloaked ip here: @350CE3.C1A208.7F4D68.0036C0

can someone help with it please?

you probably want to change

Code:

set wnick [lindex [split [getchanhost [lindex [split $text] 0] $chan] @] 0]

with....

Code:

set wnick [lindex [split [getchanhost $text $chan] @] 1]

That should work.

Can you make this script to check for proxy checking ip/host and if is proxy bot tell to channel example: Warning This IP 54.67.88.35 is infected !
Thank You

lol, umm, there are plenty of other script's out there that do that. This script is completely different from what you want/need, it's made for webchat IRC client's that use encrypted identd connections.

Statistics: Posted by Get_A_Fix — Sun Jan 13, 2013 2:33 am

TCL get IP from webchat, converts from HEX to the real ip

2013-01-12T05:15:34-04:00

Can you make this script to check for proxy checking ip/host and if is proxy bot tell to channel example: Warning This IP 54.67.88.35 is infected !
Thank You

Statistics: Posted by SmasHinG — Sat Jan 12, 2013 5:15 am

TCL get IP from webchat, converts from HEX to the real ip

2013-01-12T02:37:46-04:00

hey, it doesn't work at me coz our cloaked ips different hexed.
as an example cloaked ip here: @350CE3.C1A208.7F4D68.0036C0

can someone help with it please?

Statistics: Posted by kingkong — Sat Jan 12, 2013 2:37 am

TCL get IP from webchat, converts from HEX to the real ip

2012-07-10T15:58:17-04:00

thanks it really works I just edit the line putserv "privmsg #my_chan .." to only send the data to that specific channel, thanks

Statistics: Posted by sapo — Tue Jul 10, 2012 3:58 pm

TCL get IP from webchat, converts from HEX to the real ip

2012-07-10T15:25:01-04:00

Code:

bind pub - !hex hexIdentbind join - * hexIdentJoinsetudef flag hexsetudef flag hexjoinproc hexIdentJoin {nick uhost hand chan} {if {![channel get $chan hexjoin]} { return }hexIdent $nick $uhost $hand $chan $nick 1}proc hexIdent {nick uhost hand chan text {join 0}} {if {![channel get $chan hex]} { return }set wnick [lindex [split [getchanhost [lindex [split $text] 0] $chan] @] 0]if {[string length $wnick]} { set text $wnick } { set wnick $text }set a $textif {[string length $a] == 8} {while {[string length $a]} {set piece [string range $a 0 1]set a [string range $a 2 end]if {[regexp {^[a-fA-F0-9]+$} $piece]} {lappend ip [scan $piece %x]} else {set flag 1 ; break}}if {![info exists flag]} {set ip [join $ip "."]putserv "privmsg $chan :\002$wnick\002 > Ident:\002$text\002; IP:\002$ip\002"} else {if {$join < 1} {putserv "privmsg $chan :\002$wnick\002 > \"$text\" is not hex based."}}} else {if {$join < 1} {putserv "privmsg $chan :\002$wnick\002 isn't the amount of characters (8) required to convert to hex ip."}}}

There are 2 ways this is usually done:

1) -----
nick!A6FD2E9F@somewebchat.net

This is the code I use to do that. It works when the nickname's "ident" is hex encoded. Where that a6 stuff is above. This is similar to the way the script you originally posted handles it, except I know mine above works. If this is what you meant.. Enjoys..

Make sure you:
to enable !hex for your users >> .chanset #yourchan +hex
to enable hex checks on join >>.chanset #yourchan +hexjoin

2) ----
nick!webchat@9785F988.22D4FF26.21659F86.IP

If instead, it looks like this. It would take a different script to reverse this type of hostmask. Neither the script I posted nor the one you originally posted will work with this type.

Statistics: Posted by speechles — Tue Jul 10, 2012 3:25 pm

TCL get IP from webchat, converts from HEX to the real ip

2012-07-10T09:04:15-04:00

Could you provide an example of how an hex IP looks like?

Statistics: Posted by caesar — Tue Jul 10, 2012 9:04 am

TCL get IP from webchat, converts from HEX to the real ip

2012-07-10T07:16:01-04:00

anyone please?

Statistics: Posted by sapo — Tue Jul 10, 2012 7:16 am

help

2012-06-16T21:38:36-04:00

can anyone help please?

Statistics: Posted by sapo — Sat Jun 16, 2012 9:38 pm

TCL get IP from webchat, converts from HEX to the real ip

2012-06-15T09:45:32-04:00

Hello,

I would like that: when a user from a webchat join a channe where the bot is, his real IP would be written by the bot on a private channel that I have.
The IP from a webchat is formatted as HEX.

The TCL doesn't do nothing can you help, please?

Code:

# This script allows to find out true IP of an user# connected thru webchat services.## Enable IP discovery on trigger (!findip)set findip_do 1# Enable IP discovery on joinset findjoinedip_do 1# Channels to show info onset findip_channel(#palmela-bots)  1## End of prefs#set findip_header "\[ FindIP \]"bind pub  m|m !findip findipbind join -|- *       findjoinedipproc findip {nick uhost hand channel arg} {  global findip_header findip_do findip_channel  set channel [string tolower $channel]  if {$findip_do != 1} {    return;  }  # hint taken from http://www.peterre.com/characters.html  set arg [lindex [split $arg] 0]  set hexip ""  set host [getchanhost $arg $channel]  if {$host != ""} {    if {[regexp -- {-?([0-9a-f]{8})@(.*\.ircnet\.(info|com)|webchat\.(xs4all\.nl|irc\.cz))} $host all hexip]} {      set realip [long2ip [format %d "0x$hexip"]]      putserv "PRIVMSG $channel :$findip_header Real IP of $arg is $realip"    }  }}proc findjoinedip {nick uhost hand channel} {  global findip_header findjoinedip_do join_message findip_channel  set channel [string tolower $channel]  if {$findjoinedip_do != 1 || [info exists findip_channel($channel)] && $findip_channel($channel) == "0"} {    return  }  set arg [lindex [split $nick] 0]  set hexip ""  if {$uhost != ""} {    if {[regexp -- {-?([0-9a-f]{8})@(.*\.ircnet\.(info|com)|webchat\.xs4all\.nl|webchat\.irc\.cz)} $uhost all hexip]} {      set realip [long2ip [format %d "0x$hexip"]]      putserv "PRIVMSG $channel :$findip_header $arg is connected thru a webchat service, his real IP is $realip"    }  }}# proc taken from http://www.eggfaq.com/docs/faq.htmlproc long2ip {long} {  return [format "%d.%d.%d.%d" \  [expr ($long >> 24) & 0xff] \  [expr ($long >> 16) & 0xff] \  [expr ($long >> 8) & 0xff] \  [expr $long & 0xff]]}putlog "Loaded FindIP 0.5"

Statistics: Posted by sapo — Fri Jun 15, 2012 9:45 am