| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 09:30:44 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=f4c6d42400ad2eaae5aeb6502ddf227e86c65258fa4ed591ef79625b037586dca%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22YwPlwULZ6Bo0bFHA42Yl12S3Qhr50Y8-%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cd5729b9e89ac4-BLR
bind pub - !test asn_reportproc asn_report {nick host handle chan text} { - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- bind pub - !test asn_report
- proc asn_report {nick host handle chan text} {
- set ipv6 0
- set ipv4 0
- set asn [lindex $text 0]
- set subnet [lindex $text 1]
- # nel caso in cui scrivano cazzate
- set ipv6 [string match -nocase "*:*" $subnet]
- set ipv4 [string match -nocase "*.*" $subnet]
- putlog "ipv4: $ipv4"
- putlog "ipv6: $ipv6"
- if {[expr {$ipv4 == 0 && $ipv6 == 0} ] } {
- putserv "NOTICE $nick :- \037CIDR6-REPORT\037 - \002$nick\002, esempio per la sintassi !aspath 6939 2001:"
- return 0
- }
- putlog "sono dopo il notice di errore"
- if { [expr {$ipv6 > 0 }] } {
- putserv "PRIVMSG $chan : \002 "
- putserv "PRIVMSG $chan : \002##\002 Request \037AS-PATH\037 of \002AS$asn\002 on prefix \002$subnet\002 via \037CI"
- putserv "PRIVMSG $chan : \002 "
- set data_var [exec w3m https://www.cidr-report.org/cgi-bin/as-report?as=$asn&view=2.0&v=6 2>&1 | grep "$subnet"]
- set l [split $data_var "\r\n"]
- foreach i $l { puthelp "PRIVMSG $chan : $i " }
- putlog "<<$chan>> !$handle! !aspath"
- } else {
- if { [expr {$ipv4 > 0} ] } {
- putserv "PRIVMSG $chan : \002 "
- putserv "PRIVMSG $chan : \002##\002 Request \037AS-PATH\037 of \002AS$asn\002 on prefix \002$subnet\002 via \037CI"
- putserv "PRIVMSG $chan : \002 "
- set data_var [exec w3m https://www.cidr-report.org/cgi-bin/as-report?as=$subnet&view=2.0 2>&1 | grep "$subnet"]
- set l [split $data_var "\r\n"]
- foreach i $l { puthelp "PRIVMSG $chan : $i " }
- putlog "<<$chan>> !$handle! !aspath"
- }
- }
- }
Tags:
TCL
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 2 sec ago | 0.10 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ T
JavaScript | 5 sec ago | 0.24 KB
-
⭐✅ Trading Profit Method ✅ NEVER SEEN BEFORE...
JavaScript | 8 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ D
JavaScript | 14 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ V
JavaScript | 17 sec ago | 0.24 KB
-
⭐ Instant BTC Profit Method ✅ NEVER SEEN BEFO...
JavaScript | 20 sec ago | 0.24 KB
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ L
JavaScript | 25 sec ago | 0.24 KB
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 25 sec ago | 0.10 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
