Statistics: Posted by d3n — Wed Jan 18, 2017 6:19 pm
Code:
bind pub - !s scanpackage require httpproc scan {nick host hand chan text} {set scanconnect [::http::geturl "http://1whois.ru/scanhost/?host=$text&rem=scan" -timeout 10000]set scandata [::http::data $scanconnect]::http::cleanup $scanconnectif {[string match -nocase "*Open port not found.*" $scandata]} { putquick "PRIVMSG $chan :Open port not found."; return}regsub -all {<a alt=.*?Открытые порты.*?<br><table><tr>} $scandata "" scandataregsub -all {<a onclick=\".*?\" target=_blank href=\".*?\">} $scandata "" scandataregsub -all {</a>|</table>} $scandata "" scandataputlog $scandataforeach line [split $scandata </tr>] {regexp -- {<td width=\".*?\">(.*?): </td><td><b>(.*?)</b> \((.*?)\)</td>} $line - port1 port2 port3set result "$port1 - $port2 ($port3)"putquick "PRIVMSG $chan :$result"}}[16:21:28] <a alt="rescan" href="" rel="nofollow" ><img src="/img/rescan.jpg"> Открытые порты:<br>
<table><tr><td width="40">80: </td><td><b>HTTP</b> (Title: This is a Tor Exit Router | Digital Society / Digitale Gesellschaft)</td></tr><tr><td width="40">443: </td><td><b>SSL</b></td></tr><tr><td width="40">8080: </td><td><b>Proxy</b> (Title: This is a Tor Exit Router | Digital Society / Digitale Gesellschaft)</td></tr><tr><td width="40">53: </
[16:21:28] Tcl error [scan]: can't read "port1": no such variable
[16:21:28] [egglib]: Catched BGError: can't read "port1": no such variable
Statistics: Posted by Guest — Fri Jan 13, 2017 9:21 am
Code:
<a alt="rescan" href="" rel="nofollow" ><img src="/img/rescan.jpg"></a> Открытые порты:<br><table><tr><td width="40">80: </td><td><b><a target=_blank href="http://176.10.104.243">HTTP</a></b> (Title: This is a Tor Exit Router | Digital Society / Digitale Gesellschaft)</td></tr><tr><td width="40">443: </td><td><b><a target=_blank href="https://176.10.104.243">SSL</a></b></td></tr><tr><td width="40">8080: </td><td><b><a target=_blank href="http://176.10.104.243:8080">Proxy</a></b> (Title: This is a Tor Exit Router | Digital Society / Digitale Gesellschaft)</td></tr><tr><td width="40">53: </td><td><b>DNS</b></td></tr></table>Statistics: Posted by CrazyCat — Fri Jan 13, 2017 8:50 am
Code:
bind pub - !s scanpackage require httpproc scan {nick host hand chan text} {set scanconnect [::http::geturl "http://1whois.ru/scanhost/?host=$text&rem=scan" -timeout 10000]set scandata [::http::data $scanconnect]::http::cleanup $scanconnectif {[string match -nocase "*Open port not found.*" $scandata]} { putquick "PRIVMSG $chan :Open port not found."; return}regsub -all -- {\n} $scandata "" scandataregsub -all {<a alt=.*?Открытые порты.*?<br><table><tr>} $scandata "" scandataregsub -all {<a onclick=\".*?\" target=_blank href=\".*?\">} $scandata "" scandataregsub -all {</a>|</table>} $scandata "" scandataputlog $scandataforeach line [split $scandata \n] {regexp -- {<td width=\".*?\">(.*?): </td><td><b>(.*?)</b> \((.*?)\)</td></tr>} $line - port1 port2 port3set result "$port1 - $port2 ($port3)"putquick "PRIVMSG $chan :$result"}}It should be:<User> !s 176.10.104.243
<Bot> 80 - HTTP (Title: This is a Tor Exit Router | Digital Society / Digitale Gesellschaft)
<Bot> 80 - HTTP (Title: This is a Tor Exit Router | Digital Society / Digitale Gesellschaft)
<Bot> 443 - SSL
<Bot> 8080 - Proxy (Title: This is a Tor Exit Router | Digital Society / Digitale Gesellschaft)
<Bot> 53 - DNS
Statistics: Posted by Guest — Thu Jan 12, 2017 8:16 am