sshが狙われている

今日の天気は

出張がちなので、最近サーバのsshの蓋を開けたんだけど、どこからともなくアタックがジャカジャカ飛び込んでくるようになった。こわいよう～と思いつつもしょうがない...

そこで、アタックしてくるIPをデータベースに全部控えとけ～と思ったんだけど、おいらmysqlやらpostgresqlが使えない。サーバに入ってるOracleを使いたいんだけど、ログ解析はやっぱりPerlが便利。そういうわけで、Perl-DBIをちょっとかじってみることにしました。

RHELのモジュールには、Oracle用のDBDがないので、しょうがなくCPANでインストール。

>perl -MCPAN -e shell
cpan> install DBD::Oracle

libclntsh.soがない！
って怒られるので、
/etc/ld.so.conf.d/にoracle-i386.confというファイルを作って
/opt/oracle/product/10.1.0/Db_1/lib
と１行だけ書く。

ldconfigで一回きれいにして、やりなおしたんだけど、
scott/tigerがロックされているという。
scottさん使ってテストするのね。

alter user scott account unlock;

ここまできてようやくまともにテストが走るようになる。

残り二つだけ、26exe_arrayと、31lob。

31lobの方はscott/tigerがDBA権限を持ってないといろいろな管理表が見れなくてエラーになるようだ。v$sessionが見れない～とか。めんどくさくなって一時的に

grant dba to scott;

で回避。
26exe_arrayのほうは10gではエラーになるらしい。9i用に作ったテストだかららしい。
http://www.nntp.perl.org/group/perl.dbi.users/2007/01/msg30849.html

なんで、このエラーは無視することに。

cpan> force install DBD::Oracle

で無事インストール完了

use DBI;
$dsn = "DBI:Oracle:host=localhost;sid=ORCL";
$dbh = DBI->connect($dns, "scott", "tiger");