自动刷乐乎邀请码脚本

六维帐号被人修改密码，不能用了，申请帐号又需要PT经验，只好换个地方申请，这就来到乐乎，申请时也需要邀请码，不过一小时发放一个，不错，想着手动点刷新太累了，写个脚本后台刷去吧，我就不信有人凌晨还有人刷。

分析网页，获取邀请码，用perl实现，保存为get_key.pl：

#!/usr/bin/perl -w
use strict;
use HTML::TreeBuilder 3;

my $root = HTML::TreeBuilder->new;

open(my $fh, "<:utf8", "invitecode.php") || die;#网页有中文字符，直接parse_file有warning
$root->parse_file($fh);

#网页内容很简单，邀请码就在一个invitecode1里面
my $target = $root->find_by_attribute("id", "invitecode1");

print $target->attr("value");

$root->eof( );
$root->delete;

下面是一个循环脚本，每半小时获取一次：

#!/bin/sh

########
# init
#########
rm -f invitecode.php
rm -f key_file.txt

for i in `seq 24`
do
        wget http://bt.shu6.edu.cn/invitecode.php
        ./get_key.pl >> key_file.txt
        mv key_file.txt key_file.txt.tmp
        cat key_file.txt.tmp | sort | uniq > key_file.txt
        rm -f key_file.txt.tmp
        rm -f invitecode.php
        sleep 30m
done

事实上没等我写完脚本，我就刷了一个邀请码，脚本没用上，又需要的人可以试试，扔到服务器上跑一晚上，就有不少邀请码了，下面是我截获的（昨天晚上的，应该还能用):

0476f601cf22861abfcfdb6b9adf467f105494
2687ee6c696ce6bd297908f210642d4c105502
2a2275b89de70b5db33016fdcfd3deeb105501
2f768d9d990506bd582b94cf34aa8679105500
3b9aa32c707637611fb6aa57055ced3c105497
ee127de41fe2a445fdb4fa58906a42b2105499