主题：OICQ通讯协议的perl实现[推荐]

好东西 undefined ... undefined 关闭 undefined 关闭 undefined Perl OICQ Net::OICQ的主要目标是实现QQ即时通讯所用的协议,以便利自由软件使用者和QQ使 用者交流. Net::OICQ本身只是个Perl的面向对象的模块,提供一些和QQ服务器打交 道的基本方法. 软件包中含有一简单client程序已经实现一些基本的QQ功能. 点这里下载Net::OICQ 安装说明 Net::OICQ需要用Digest::MD5模块. 用下面命令查看系统是不是已经装了Digest: :MD5 perl -MDigest::MD5 如果出现错误信息,你需要 去CPAN下载Digest::MD5 确定有Digest::MD5后,把下载的Net-OICQ-x.y.tgz打开 $ tar zxvf Net-OICQ-x.y.tgz $ cd Net-OICQ-x.y $ perl Makefile.PL $ make $ make test $ su # make install # cp oicq /usr/local/bin # chmod a+x /usr/local/bin/oicq # exit $ 使用说明 先把密码存在环境变量OICQ_PW $ export OICQ_PW=OICQ密码 登陆腾迅服务器 $ oicq OICQ号码 登陆后,所有以斜杆/开始的键盘输入行都被当做是命令,其他键盘输入行都被当做 要送出的话存人信息缓冲,等到空行输入时才送往默认的号码.用/加号码来设定默 认号码.举个例子,用下列命令给我送话: /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 退出 2003年6月29日 Net::OICQ 0.7版 登录过程大量改写，自动接受新服务器地址。 终于搞定隐身。 采用彩色终端Term::ANSIColor模块。 进一步分离协议与Client代码，为图形界面做好准备。 2003年4月12日 Net::OICQ 0.6版 Bug fixes 2003年2月8日 Net::OICQ 0.5版 OICQ加密算法完全破解.Net::OICQ不再包含Intel汇编语言代码. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~说明了什么？ 过瘾！！！！！！！！ 下个0.7版的再说 要研究一段日子啦 Perl OICQ is a project for developing Net::OICQ perl module. Net::OICQ is a perl module that implements OICQ protocol. It includes a console-only OICQ client. Net::OICQ requires Digest::MD5 module. You can download Digest::MD5 from CPAN if it is not included in your Perl distribution. Download Net::OICQ Installation Procedure $ tar zxvf Net-OICQ-x.y.tgz $ cd Net-OICQ-x.y $ perl Makefile.PL $ make $ make test $ su # make install # cp oicq /usr/local/bin # chmod a+x /usr/local/bin/oicq # exit How to use $ export OICQ_PW= $ oicq /help 【 在 Arp (arp的故事) 的大作中提到: 】 : package Net::OICQ; : # $Id: OICQ.pm,v 1.26 2003/06/30 03:19:40 tans Exp $ : # Copyright (c) 2002 Shufeng Tan. All rights reserved. : # : # This package is free software and is provided "as is" without : express : # or implied warranty. It may be used, redistributed and/or modified : # under the terms of the Perl Artistic License : (see# http://www.perl.com/perl/misc/Artistic.html : use 5.006; : .................（以下省略） //星晴

文字