Numericke kodovani domainovych jmen

[Honza Pazdziora]

> > 	address from www.yours_or_any_domain.com to
> > 	http://81235%5876@25%36%3087%32%3973/ this will virtually

[...]

> Princip je, perlem receno, tento:
>
> 	#!/usr/bin/perl
>
> 	$ip = shift or die "usage: $0 ip";
> 	@kousky = split /\./, $ip;
> 	$crypto = 256*256*256*$kousky[0] +
>         	  256*256*$kousky[1] +
> 	          256*$kousky[2] +
> 		  $kousky[3];

Aaaaha, jinak receno

	$crypto = unpack 'N', pack 'C4', @kousky;

To jsem myslel, ze 129 dolaru to bude vetsi magie ;-)

> Pro zvyseni efektu muzete za "http://" pridat "cokoli@"
> (zapis uzivatele pripadne hesla pro basic autentifikaci).
>
> Pro zpestreni je mozne sem tam neco zahalit havem URL
> kodovani (jaky ty %hexa), ale pak uz to Netscape nesezere.

Cili tu vyse uvedenou vec rozkoduji

	$ perl - http://81235%5876@25%36%3087%32%3973/
	use URI::Escape;
	my ($url) = uri_unescape (shift =~ m!^http://(.+)/$!);
	my $ip = join '.', unpack 'C4', pack 'N',
				($url =~ /@/ ? $url =~ /@(.+)$/ : $url);
	print "$ip\n";
	__END__
	152.163.210.13

	$ nslookup 152.163.210.13
	Name:    www07a.web.aol.com
	Address:  152.163.210.13

Dekuji mnohokrat.

--
------------------------------------------------------------------------
 Honza Pazdziora | adelton at fi.muni.cz | http://www.fi.muni.cz/~adelton/
 make vmlinux.exe			-- SGI Visual Workstation Howto
Any spam sent to my email will be rewarded by complaint to your ISP abuse
  team and abuse teams of servers that relayed that message. It works.