« 転送URLをするPerl CGI | トップページ | ApacheでHostnameLookups offでもログにホスト名が記録される場合 »

2007.12.25

TitanURLみたいなの

hbkr : ハバカリ | TitanURL.com | URLを糞長くするサービス
で見つけた

TitanURL [titanurl.com]

TitanURLみたいなのを作ってみる場合。すべての文字をsplitで切り出して、md5をかけるとどうだろう？

!/usr/bin/perl
use strict;
use warnings;
use CGI;
use Digest::MD5;
 
my $q   = CGI->new();
my $url = $q->param('url');
print $q->header();
print titanurl( $url )."\n";
exit;
 
sub titanurl {
  my $url   = shift;
  my $str   = q();
  my @chars = split//, $url;
  foreach my $char ( @chars ) {
    my $ctx = Digest::MD5->new;
    $ctx->add($char);
    print $ctx->hexdigest;
  }
  return $str;
}

$ perl make.cgi url=http://blog.dtpwiki.jp/dtp/
Content-Type: text/html; charset=ISO-8859-1
 
2510c39011c5be704182423e3a695e91e358efa489f58062f10dd7316b65649ee358efa489f58062f10dd7316b65649e83878c91171338902e0fe0fb97a8c47a853ae90f0351324bd73ea615e64875176666cd76f96956469e7be39d750cc7d96666cd76f96956469e7be39d750cc7d992eb5ffee6ae2fec3ad71c777531578f2db95e8e1a9267b7a1188556b2013b33d95679752134a2d9eb61dbd7b91c4bccb2f5ff47436671b6e533d8dc3614845d5058f1af8388633f609cadb75a75dc9d8277e0910d750195b448797616e091ade358efa489f58062f10dd7316b65649e83878c91171338902e0fe0fb97a8c47af1290186a5d0b1ceab27f4e77c0c5d68865c0c0b4ab0e063e5caa3387c1a87418ce4b16b22b58894aa86c421e8759df3865c0c0b4ab0e063e5caa3387c1a87415058f1af8388633f609cadb75a75dc9d363b122c528f54df4a0446b6bab0551583878c91171338902e0fe0fb97a8c47a6666cd76f96956469e7be39d750cc7d98277e0910d750195b448797616e091ade358efa489f58062f10dd7316b65649e83878c91171338902e0fe0fb97a8c47a6666cd76f96956469e7be39d750cc7d9
$

これと前回のエントリの転送URLするやつをつなげばTitanURLもどきはできるのか。

でも、TitanURLは、どんなURL入れても2008文字のURLになるんですよねー。IEの最大URL長もその付近。2008文字に合わせるように、もうちょっと複雑なことやっているのかな。

2007.12.25 午後 06:44 [Script] | 固定リンク |