プログラマが2chを救う！？２

■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 最新50

757 ：Sherry ◆RKMbxbuc ：01/08/28 09:19 ID:zXQ6qHQw: >>713 >>749
とりあえずこんなのでIPをハッシュしてしまうとか．
read.cgi だからあまり気にしなくて良いのかもしれないけど．．．

perl accesslog.pl access_log > access_log.hashed

ログ解析ならお手伝いできるかも．
その手のは比較的よくやるので．(^^;

----

$time = time;

srand;
$salt = join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64];

while(<>)
{
s/^([\d\.]+)/substr(crypt(&packip($1), $salt), -10)/e;
print;
}

sub packip {
my $ip = shift;

$ip = pack("CCCC", split(/\./, $ip));
$ip .= pack("n", $$);
$ip .= pack("n", $time);

# print STDERR unpack('H*', $ip), " ";
$ip;
}

272KB

新着レスの表示

スレッドリストへ戻る全部前100 次100 最新50

0ch BBS 2004-10-30