Perl - Retrieving and Printing Security Token Post: 302542483

Sponsored Content

Homework and Emergencies Emergency UNIX and Linux Support Perl - Retrieving and Printing Security Token Post 302542483 by AndrewTwain on Wednesday 27th of July 2011 05:57:12 PM

07-27-2011

Registered User

[Solved] Perl - Retrieving and Printing Security Token

My script below is supposed to log in to my vB account on any vB forum I'm registered on and retrieve + print my security token. However it seems to be hit and miss. The logging in works perfectly just will not retrieve and print the security token for every forum I log in to. Code Below:

Code:

#!/usr/bin/perl
use LWP::UserAgent;

my $ua = LWP::UserAgent->new(agent => q{Mozilla/5.0 (Windows; U;  Windows NT 6.0; en-US; rv:1.9.1.7) Gecko/20091221 Firefox/3.5.7 (.NET  CLR 3.5.30729)});
$ua->cookie_jar({});

print("Specify site URL(e.g http://site.com/): ");
chomp(my $url = <>);
print("Username: ");
chomp(my $username = <>);
print("Password: ");
chomp(my $password = <>);

my $req = HTTP::Request->new(POST => $url . '/login.php?do=login');
$req->content_type('application/x-www-form-urlencoded');
$req->content("vb_login_username=$username&vb_login_password=$password&do=login&securitytoken=guest&vb_login_md5password=&vb_login_md5password_utf=&s=");
$ua->request($req);
my $content = $ua->get("$url/index.php")->content;
my ($securityToken) = $content =~ /value="\w{10}-\w{40}" /g;
print "Security token: $securityToken\n";

AndrewTwain

View Public Profile for AndrewTwain

Find all posts by AndrewTwain

8 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl printing error

Hi Scripting Gurus, I am new bee in perl, and trying to write a script which must print the free disk space availability of C and E drives. Please advice. Here is the script snippet and expected output: #!/usr/bin/perl use CGI qw/:html3 :standard/; $spaceuselog =...

2. Shell Programming and Scripting

Need help in printing a sql query in perl

Hi All, I have the following sql query select abcd from udbadm.log where xyz='1'. I have 16k queries similar to this with different values for xyz. I want to print the values of 'abcd' for each row. I have the following perl code, but not sure how i can print that particular...

3. Shell Programming and Scripting

[Perl] Printing - Scalars

Hey Guys, I have some weird problem with printing scalars ... When I'm executing script both are printing in terminal ... But only one is printed to the file ? I don't know whats going on .. :) Btw .. I'm noobie :) took me lots of time to put this simple script together :) Thank you...

4. Shell Programming and Scripting

Printing between 2 matches with Perl

Can we please modify this perl one-liner to print lines between pattern1 and pattern2 in a file? Currently it prints lines till pattern2.

5. Shell Programming and Scripting

Q:Perl Extracting & Printing Security Token

I have a script which is supposed to log in to my vB account and print my security token, however doesn't seem to work globally. The logging in works perfectly just will not retrieve and print the security token for every forum I log in to. Code Below: #!/usr/bin/perl use LWP::UserAgent; ...

6. Shell Programming and Scripting

Perl: selective printing of lines

Hi, I have a file with lines like this. 2 7 18 ggcgt anna 2 7 18 hhchc sam 3 7 18 hhdjcc ross 4 7 18 hhcjd jenny 0 8 21 jjdhs sam 3 8 21 kkok bush 2 9 24 kosss BrenhamIf the values of the second column are equal, print only those lines with the least first column value. So in...

7. Shell Programming and Scripting

help with perl database printing

Hey guys i am using perl and trying to pull a list of books from a database and then populate the list in a separate TT2 file. When the list is generated there should be 39 book names. When I do the foreach statement in my tt2 below, the first statement gives me 39 Array(random number) and the...

8. Forum Support Area for Unregistered Users & Account Problems

Security Token

I got this message while submitting a reply to a thread. I could submitt the replies till yesterday but today it shows me the following message "Your submission could not be processed because a security token was missing." What should I do to resolve this?

LEARN ABOUT DEBIAN

ppi::token::magic

PPI::Token::Magic(3pm)					User Contributed Perl Documentation				    PPI::Token::Magic(3pm)

NAME

       PPI::Token::Magic - Tokens representing magic variables

INHERITANCE

	 PPI::Token::Magic
	 isa PPI::Token::Symbol
	     isa PPI::Token
		 isa PPI::Element

SYNOPSIS

	 # When we say magic variables, we mean these...
	 $1   $2   $3	$4   $5   $6   $7   $8	 $9
	 $_   $&   $`	$'   $+   @+   %+   $*	 $.    $/    $|
	 $\  $"   $;	$%   $=   $-   @-   %-	 $)    $#
	 $~   $^   $:	$?   $!   %!   $@   $$	 $<    $>
	 $(   $0   $[	$]   @_   @*   $}   $,	 $#+   $#-
	 $^L  $^A  $^E	$^C  $^D  $^F  $^H
	 $^I  $^M  $^N	$^O  $^P  $^R  $^S
	 $^T  $^V  $^W	$^X

DESCRIPTION

       "PPI::Token::Magic" is a sub-class of PPI::Token::Symbol which identifies the token as "magic variable", one of the strange and unusual
       variables that are connected to "things" behind the scenes.

       Some are extremely common, like $_, and others you will quite probably never encounter in your Perl career.

METHODS

       The class provides no additional methods, beyond those provided by it's PPI::Token::Symbol, PPI::Token and PPI::Element.

SUPPORT

       See the support section in the main module.

AUTHOR

       Adam Kennedy <adamk@cpan.org>

COPYRIGHT

       Copyright 2001 - 2011 Adam Kennedy.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

       The full text of the license can be found in the LICENSE file included with this module.

perl v5.10.1							    2011-02-26						    PPI::Token::Magic(3pm)