■スレッドリストへ戻る■ 全部 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