http://perl-oicq.sourceforge.net/

Net::OICQ的主要目标是实现QQ即时通讯所用的协议,以便利自由软件使用者和QQ使用者交流. Net::OICQ本身只是个Perl的面向对象的模块,提供一些和QQ服务器打交道的基本方法. 软件包中含有一简单client程序已经实现一些基本的QQ功能.

QQ协议所用的加密算法多年来一直没有变化，所以从Net::OICQ中分出来成为一个独立的模块, Crypt::OICQ。安装Net::OICQ前，请先安装Crypt::OICQ。如有问题，欢迎到我的论坛来讨论。

点这里下载Crypt::OICQ和Net::OICQ

安装说明

1. Net::OICQ需要用Digest::MD5模块. 用下面命令查看系统是不是已经装了Digest::MD5

perl -MDigest::MD5

如果出现错误信息,你需要 去CPAN下载Digest::MD5
2. 确定有Digest::MD5后,把下载的Net-OICQ-x.y.tgz和Crypt-OICQ.1.1.tgz打开

$ tar zxvf Crypt-OICQ-1.1.tgz
$ cd Crypt-OICQ-1.1
$ perl Makefile.PL
$ make test
$ su
# make install

$ tar zxvf Net-OICQ-x.y.tgz
$ cd Net-OICQ-x.y
$ perl Makefile.PL
$ make test
$ su
# make install
# cp q /usr/local/bin/oicq
# chmod a+x /usr/local/bin/oicq
# exit
$

使用说明

1. 先把密码存在环境变量OICQ_PW

$ export OICQ_PW=OICQ密码

2. 登陆腾迅服务器

$ oicq OICQ号码

3. 登陆后,所有以斜杆/开始的键盘输入行都被当做是命令,其他键盘输入行都被当做要送出的话存人信息缓冲,等到空行输入时才送往默认的号码.用/加号码来设定默认号码.举个例子,用下列命令给我送话:

/52482796
试一下
第二行
连打两次ENTER送出

其他命令

/help
/who 在线朋友
/f 列出所有朋友
/54321 和54321聊
/mode [i|n|a] 设隐身，正常，离开
/get 看自己的info
/get <别人的号码>
/away 启动/关闭自动回复
/update 更新资料
/passwd xxxxxx 改密码
/s id 搜索id
/s 列出25个在线用户
/s 10 列出10x25个在线用户
/add id 加id
/del id 除id
/ban id 禁id
/accept id 接受加好友请求
/reject id 拒绝加好友请求
/buf 看信息缓冲区
/rmbuf 清除信息缓冲区
/ls 列出用/get获取的资料
/rm id 删除用/get获取的资料
/exit 退出