phpBB论坛自动登录脚本

[paktc]

[原帖]phpBB论坛自动登录脚本
我用来刷在线ID的。Perl脚本
请保存为UTF8编码格式，还有一段自动发帖的脚本，不过考虑到之前把自己的旧论坛刷挂了，还是不要发的好。

代码： 全选

use LWP::UserAgent;
use Encode;
use utf8;
 
our $main="https://www.phpbbchinese.com";
 
our $ua = LWP::UserAgent->new;
$ua->cookie_jar( {} );
 
my $res = $ua->post(
    "$main/ucp.php?mode=login",
    [
        username => '账号',
        password => '密码',
        autologin => 'on',
        redirect => 'index.php',
        login => '%E7%99%BB%E5%BD%95',
    ],
);

#判断是否登陆成功
my $word = encode('utf8', "注册");
if ($res->content =~ /$word/)
{
    print "Failed\n";
}
else
{
    print "Success\n";
}

[davidyin]

工具不错，只要不是用来发Spam就好。