phpBB论坛自动登录脚本

[paktc]

phpBB论坛自动登录脚本(Perl)

Code: [show] | [select all]

use LWP::UserAgent;

use Encode;

use utf8;



our $main="http://www.code-by.org";



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";

}

保存为UTF8编码格式。

[paktc]

Code: [show] | [select all]

=info

    phpBB马甲批量循环登陆脚本

    paktc at Code-By.Org

    2016-10-18

=cut



use IO::Handle;

use LWP::UserAgent;

use utf8;

use Encode;



STDOUT->autoflush(1);

our $main="http://www.code-by.org";



my %users = (

    '马甲1' => '密码',

    '马甲2'    => '密码',

    '马甲3'   => '密码',

    '马甲4'   => '密码',

    '马甲5'     => '密码',

);



my @user_sign;

my $delay = 300;



while ( 1 )

{

    @user_sign = ();

    for my $k (keys %users)

    {

        push @user_sign, sign($k, $users{$k} );

    }

    grep { sleep 1; print "."; } (1..$delay);

    print "\n";

}



sub sign 

{

    my ($id, $password) = @_;



    my $ua = LWP::UserAgent->new;

    $ua->cookie_jar( {} );



    $res = $ua->post(

        "$main/ucp.php?mode=login",

        [

            username => $id,

            password => $password,

            autologin => 'on',

            redirect => 'index.php',

            login => '%E7%99%BB%E5%BD%95',

        ],

    );



    #判断是否登陆成功

    my $word = encode('utf8', "注册");

    if ( $res->content =~ /$word/ )

    {

        printf("%10s -> Failed\n", encode('gbk', $id));

    }

    else

    {

        printf("%10s -> Succeed\n", encode('gbk', $id));

    }



    return $ua;

}