| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 13:20:24 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=da393286672fa7e924d30f69994801f0fb5c838d6a020f6431918e399f29ecf3a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22dCPTxoDfPdCSWuLP_V0z3_vzSXJtSPeN%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d6e4f40fb975e9-BLR
traceroat - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- use IO::Socket;
- my $trace=$ARGV[0];
- my ($fh, $pid);
- my @res = ();
- eval {
- local $SIG{ALRM} = sub{ kill 9, $pid; close $fh; die "Time is out" };
- alarm 5;
- eval {
- $pid = open $fh, '-|', "tracert $trace" or die "Can't open file $!";
- while ( my $str = <$fh> ) {
- push @res, $str;
- }
- };
- alarm 0;
- };
- alarm 0;
- die $@ if $@ && $@ !~ /Time is out/;
- my $re=join(/ /,@res);
- my @resu = ();
- @resu=split(//,$re);
- #my @re=grep /\([0-9]\{1,3\}\.\)\{3\}\[0-9]\{1,3\}\/,@resu;
- my @list = ($re) =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/g;
- #foreach(@list){print};
- #print @re;
- shift @list;
- foreach my $ip (@list){
- for my $host ('whois.lacnic.net','whois.ripe.net','whois.arin.net','whois.apnic.net','whois.afrinic.net'){
- my $port="43";
- my $socket = IO::Socket::INET->new(PeerAddr => "$host", PeerPort => '43', Proto=>'tcp');
- $socket->send("-a $ip\r\n");
- my $last = 0;
- while (<$socket>) {
- if ($last = /(AS\d+)/) {
- print "$ip\t-> $1\n";
- last;
- }
- }
- last if $last;
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
-
💡 Instant BTC Profit Method ✅ Working
JavaScript | 2 sec ago | 0.24 KB
-
📌 Swapzone +37% glitch ⭐ J
JavaScript | 5 sec ago | 0.25 KB
-
✅ Marketplace Glitch ✅ Working NEVER SEEN BE...
JavaScript | 7 sec ago | 0.25 KB
-
✅⭐ Make huge profits on trading ⭐⭐ 6
JavaScript | 14 sec ago | 0.25 KB
-
📝 MAKE $2500 IN 15 MIN ✅ Working
JavaScript | 14 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 5
JavaScript | 16 sec ago | 0.25 KB
-
✅ Marketplace Glitch ✅ Working NEVER SEEN BE...
JavaScript | 23 sec ago | 0.25 KB
-
🚀 Swapzone +37% glitch
JavaScript | 24 sec ago | 0.24 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
