[转帖]QQ在线 QQ.cgi

wuyou

qq.cgi
#!/usr/bin/perl
use CGI qw(:standard);
$query = new CGI;
$oicq = $query -> param('oicq');
$geturl = "http://search.tencent.com/cgi-bin/friend/user_show_info?ln=$oicq";
eval("use HTTP::Request;");
eval("use LWP::UserAgent;");
$ua = new LWP::UserAgent();
$request = new HTTP::Request('GET',$geturl);
$response = $ua->request($request);
$out = $response->content;
($temp,$out) = split(/height=32/,$out);
($out,$temp) = split(/\" width=32/,$out);
($temp,$out) = split(/\"/,$out);
$request = new HTTP::Request('GET',$out);
$response = $ua->request($request);
$out = $response->content;
print "content-type: image\n\n";
print $out;
exit;

调用方法：
<img>http://XXX/cgi-bin/qq.cgi?oicq=16161444</img>
在論壇中只要把<>改成[]就行了!!!
PS:XXX為你上傳的地址!!

king

good

真水ying

我怎么看不懂！老大讲一讲！……^&^