egghelp/eggheads community

Need help with IPinfo Script

2023-06-25T14:28:05-04:00

Will you be able to adapt this api please caesar
https://proxycheck.io/v2/2806:10be:a:76 ... :6b6c:7a23

{
"status": "ok",
"2806a:7699:e094:f36d:6b6c:7a23": {
"proxy": "no",
"type": "Business"
}
}

Statistics: Posted by RoKiTo — Sun Jun 25, 2023 2:28 pm

Need help with IPinfo Script

2023-04-27T13:34:24-04:00

The command is !ginfo ip not !test ip, unless you changed the command from !ginfo to !test.

Statistics: Posted by caesar — Thu Apr 27, 2023 1:34 pm

Re: weird

2023-04-26T21:51:54-04:00

good morning, because that's my opinion when i tried checking the ip on both website.

Statistics: Posted by nobody — Wed Apr 26, 2023 9:51 pm

Re: weird

2023-04-26T09:42:44-04:00

Hello, why do you say that ipinfo.io is more accurate then the the source from BlackIP.tcl ?

Statistics: Posted by BLaCkShaDoW — Wed Apr 26, 2023 9:42 am

weird

2023-04-26T01:31:36-04:00

how to see errors?

witch rehash
-witch- Reloading scripts/settings..
!test
-witch- Error, syntax is: !Ginfo
!test 1.1.1.1

- no response at all im currently using blackip.tcl using ip-info.com service but i found ipinfo.io near to accurate.

Statistics: Posted by nobody — Wed Apr 26, 2023 1:31 am

Need help with IPinfo Script

2023-04-26T01:13:29-04:00

this is good for ircop?

Statistics: Posted by nobody — Wed Apr 26, 2023 1:13 am

Need help with IPinfo Script

2023-04-25T10:57:07-04:00

And the version that uses ip library to do the IP v4 and v6 validation rather than that regexp that won't match IP v6:

Code:

package require httppackage require jsonpackage require ipbind raw - NOTICE server:noticesproc server:notices {from keyword text} {if {![string match -nocase "*client connecting*" $text]} returnset lookup [lindex [split $text] 6]if {[::ip::version $lookup] < 4} returncatch {set http [::http::geturl http://ipinfo.io/$lookup/json -timeout 6000]} errorset data [::http::data $http]set json [::json::json2dict $data]::http::cleanup $httpset keys [dict keys $json]foreach ele {ip hostname city region country loc postal phone org} {set $ele [expr {[lsearch $keys $ele] > -1 ? [dict get $json $ele] : "n/a"}]}puthelp "PRIVMSG #Opers :$nick -  $ip - $country"}

Statistics: Posted by caesar — Tue Apr 25, 2023 10:57 am

Need help with IPinfo Script

2023-04-25T05:39:56-04:00

Code:

package require httppackage require jsonbind pub m|- !ginfo Pub:Geo:INFOproc Pub:Geo:INFO {nick uhost hand chan text} {   if {[scan $text {%s} lookup] != 1} {      puthelp "NOTICE $nick :Error, syntax is: !Ginfo "      return   }   if {![regexp {([0-9]+\.)([0-9]+\.)([0-9]+\.)([0-9]+)} $lookup]} {      puthelp "NOTICE $nick :Error, the IP you mentioned is not valid."      return   }   catch {set http [::http::geturl http://ipinfo.io/$lookup/json -timeout 6000]} error   set data [::http::data $http]   set json [::json::json2dict $data]   ::http::cleanup $http   set keys [dict keys $json]   foreach ele {ip hostname city region country loc postal phone org} {      set $ele [expr {[lsearch $keys $ele] > -1 ? [dict get $json $ele] : "n/a"}]   }   puthelp "NOTICE $nick :IP: $ip - Hostname: $hostname - City: $city - Region: $region - Country: $country - Location: $loc - Organization: $org"}

Statistics: Posted by simo — Tue Apr 25, 2023 5:39 am

Need help with IPinfo Script

2023-04-25T01:53:33-04:00

Forgot to reply back. Script works flawless now. Thank you

can you post the complete working script here bro , if you don't mind?

Statistics: Posted by nobody — Tue Apr 25, 2023 1:53 am

Need help with IPinfo Script

2019-04-04T02:29:26-04:00

I just noticed that I copy/paste the code you gave me and didn't double check the variables, so instead of:

Code:

set hostmask [lindex [split $text] 6]

should have been:

Code:

set lookup [lindex [split $text] 6]

Anyway, back to what you asked. We can just use TCLib's IP to validate a Ipv4 or IPv6 that will return -1 if the IP isn't valid, 4 for IPv4 and 6 for IPv6. Simple, no?

Basically we change these two lines:

Code:

      set hostmask [lindex [split $text] 6]      if {![regexp {([0-9]+\.)([0-9]+\.)([0-9]+\.)([0-9]+)} $lookup]} return

with:

Code:

      set lookup [lindex [split $text] 6]      if {[::ip::version $lookup] < 4} return

and above:

Code:

bind raw - NOTICE server:notices

simply add:

Code:

package require ip

Statistics: Posted by caesar — Thu Apr 04, 2019 2:29 am

Need help with IPinfo Script

2019-04-03T22:22:51-04:00

i have a slight inquiry since your last update, you can no longer look up IPv6 addresses

so i decided to remove the regex that requires numerical digits and it worked just fine

Statistics: Posted by sysusr — Wed Apr 03, 2019 10:22 pm

Need help with IPinfo Script

2019-01-28T15:52:18-04:00

Keep this in mind about ipinfo.io website:

If you need to make under 1,000 requests a day to our API and it's for non-commercial use, or you just want to test things out, signup for our free plan.

meaning that they offer a paid lookup service, so if you do a few of them then I guess that they won't mind, but if you plan to whois every IP that is connecting (meaning a lot of traffic) should consider either getting a paid account or another service, maybe an addon for the IRC server itself.

Anyway, if whatever you get from:

Code:

set hostmask [lindex [split $text] 6]

isn't a valid IP in the format x.x.x.x this won't work, you would have to reverse DNS to get the actual IP.

Give this untested code a try:

Code:

bind raw - NOTICE server:noticesproc server:notices {from keyword text} {if {[string match -nocase "*client connecting*" $text]} {set hostmask [lindex [split $text] 6]if {![regexp {([0-9]+\.)([0-9]+\.)([0-9]+\.)([0-9]+)} $lookup]} returncatch {set http [::http::geturl http://ipinfo.io/$lookup/json -timeout 6000]} errorset data [::http::data $http]set json [::json::json2dict $data]::http::cleanup $httpset keys [dict keys $json]foreach ele {ip hostname city region country loc postal phone org} {set $ele [expr {[lsearch $keys $ele] > -1 ? [dict get $json $ele] : "n/a"}]}puthelp "PRIVMSG #Opers :$nick -  $ip - $country"}}

Duno from what position in that raw notice you get the $nick from cos you didn't give me an example so left it as is and it's up to you to fix it.

Edit: There are multiple paid and free options you should consider if plan to filter every connection. Just do a ip to country database lookup on Google.

Statistics: Posted by caesar — Mon Jan 28, 2019 2:36 pm

Script help

2019-01-28T12:17:41-04:00

Can u make this script and to show on connect client Nick IP Country Code and msg connect client on channel #opers

and to make save blacklist list countrycode on #opers !add blcountry AA | !del blcountry AA | !blcountry list

if the country code is on blacklist to show only this msg one #oper during client Global connect

INFO:Client Global Connecting : [G-ZLine] : Jimmy 46.34.57.23 Germany De [BlackCountry]

to take gzline *@IP 2h: Your Country Is Not Allowed In This Network

and to make save exemp list on channel #opers !add exemp 46.34.* US | !del exemp 46.34.* US |
!exemp list

if the Ip + country code is on exemp list to show only this msg one #oper during client Global connect

INFO: Client Global Connecting : Jimmy 46.34.57.23 Germany De

if the Ip dont have his Country Code on exemp to be gzline
same and for the Country Code when dont have his Ip on exemp

Code:

bind raw - NOTICE server:noticesproc server:notices {from keyword text} {  global outputchan      if {[string match -nocase "*client connecting*" $text]} {        set hostmask [lindex [split $text] 6]     puthelp "PRIVMSG #Opers :$nick -  $IP - $country"         return 0      }}

Statistics: Posted by Stefano1990 — Mon Jan 28, 2019 12:17 pm

Need help with IPinfo Script

2019-01-28T03:45:12-04:00

Care to elaborate on what you tried and is complicated? Here is an updated code that validates user input and if the ip is in correct format (for example 1.1.1.1).

Code:

package require httppackage require jsonbind pub * !geo fetch:geoproc fetch:geo {nick uhost hand chan text} {if {[scan $text {%s} lookup] != 1} {puthelp "PRIVMSG $chan :Error, syntax is: !geo "return}if {![regexp {([0-9]+\.)([0-9]+\.)([0-9]+\.)([0-9]+)} $lookup]} {puthelp "PRIVMSG $chan :Error, the IP you mentioned is not valid."return}catch {set http [::http::geturl http://ipinfo.io/$lookup/json -timeout 6000]} errorset data [::http::data $http]set json [::json::json2dict $data]::http::cleanup $httpset keys [dict keys $json]foreach ele {ip hostname city region country loc postal phone org} {set $ele [expr {[lsearch $keys $ele] > -1 ? [dict get $json $ele] : "n/a"}]}puthelp "PRIVMSG $chan :IP: $ip - Hostname: $hostname - City: $city - Region: $region - Country: $country - Location: $loc - Organization: $org"}

Statistics: Posted by caesar — Mon Jan 28, 2019 3:45 am

Re: Need help with IPinfo Script

2019-01-27T16:46:56-04:00

I tried but It's a little complicated

Statistics: Posted by Sadie05 — Sun Jan 27, 2019 4:46 pm