■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 最新50
プログラマが2chを救う!?2
- 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