Q:Perl Extracting & Printing Security Token Post: 302542514

Sponsored Content

Top Forums Shell Programming and Scripting Q:Perl Extracting & Printing Security Token Post 302542514 by AndrewTwain on Thursday 28th of July 2011 12:47:56 AM

07-28-2011

Registered User

Thank you for the response. Seems to work for a few more forums, however still not for every vB forum. I'll send you another example, read the comments in your banking.

---------- Post updated at 11:47 PM ---------- Previous update was at 11:10 PM ----------

After checking your post update the last example seems to have fixed things. But it seems I've ran in to another problem. I need the usage of gzip, deflate but with the script looking like it does below, it puts the security token extraction back where it was before.

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 = <>);

$ua->default_header('Accept' =>  "text/xml,application/xml,applicati+on/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5",  
    'Accept-Language' => "en-us,en;q=0.5",
    'Accept-Charset' => "ISO-8859-1,utf-8;q=0.7,*;q=0.7",
    'Accept-Encoding' => 'gzip,deflate',
    'Keep-Alive' => "300",
    'Connection' => "keep-alive", 
    'Referer' => "$url/index.php");

push @{ $ua->requests_redirectable }, 'POST';

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 $input = $1 if $content =~ /(<input.*?securitytoken.*?>)/m;
my $securityToken = $1 if $input =~ /value="(.*?)"/;
print "Security token: $securityToken\n";

AndrewTwain

View Public Profile for AndrewTwain

Find all posts by AndrewTwain

7 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

Network Shell Script & Blade Logic & Network Security

I am going to take up a position in Data & Network Security. I would need to write network shell scripts doing the following task: Going to around 2000 servers and findout which groups has access to each servers and which ids are there in each group that has access. I need to implement...

2. Shell Programming and Scripting

Find & Replace string in multiple files & folders using perl

find . -type f -name "*.sql" -print|xargs perl -i -pe 's/pattern/replaced/g' this is simple logic to find and replace in multiple files & folders Hope this helps. Thanks Zaheer

3. Shell Programming and Scripting

Extracting and printing data

Hi I have the following data : <Cell id="34A" ref="ds:/BTS:34/Cells/Cell:34A"/> <Cell id="34B" ref="ds:/BTS:34/Cells/Cell:34B"/> <Cell id="34C" ref="ds:/BTS:34/Cells/Cell:34C"/> I would like to print this data in the following format : BTS:34 Cell:34A.I'm...

4. Emergency UNIX and Linux Support

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: ...

5. Shell Programming and Scripting

Extracting character between 2 token - using only first match

Hello. ps -ae return I would like that the following command return 3214 echo " 3214 ? 00:00:01 acroread" | grep -o "]]]*"

6. 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?

7. Shell Programming and Scripting

Extracting substring within string between 2 token within the string

Hello. First best wishes for everybody. here is the input file ("$INPUT1") contents : BASH_FUNC_message_begin_script%%=() { local -a L_ARRAY; BASH_FUNC_message_debug%%=() { local -a L_ARRAY; BASH_FUNC_message_end_script%%=() { local -a L_ARRAY; BASH_FUNC_message_error%%=() { local...

LEARN ABOUT DEBIAN

lwp::authen::wsse

LWP::Authen::Wsse(3pm)					User Contributed Perl Documentation				    LWP::Authen::Wsse(3pm)

NAME

       LWP::Authen::Wsse - Library for enabling X-WSSE authentication in LWP

VERSION

       This document describes version 0.05 of LWP::Authen::Wsse, released December 27, 2005.

SYNOPSIS

	   use LWP::UserAgent;
	   use HTTP::Request::Common;
	   my $url = 'http://www.example.org/protected_page.html';

	   # Set up the WSSE client
	   my $ua = LWP::UserAgent->new;
	   $ua->credentials('example.org', '', 'username', 'password');

	   $request = GET $url;
	   print "--Performing request now...-----------
";
	   $response = $ua->request($request);
	   print "--Done with request-------------------
";

	   if ($response->is_success) {
	       print "It worked!->", $response->code, "
";
	   }
	   else {
	       print "It didn't work!->", $response->code, "
";
	   }

DESCRIPTION

       "LWP::Authen::Wsse" allows LWP to authenticate against servers that are using the "X-WSSE" authentication scheme, as required by the Atom
       Authentication API.

       The module is used indirectly through LWP, rather than including it directly in your code.  The LWP system will invoke the WSSE
       authentication when it encounters the authentication scheme while attempting to retrieve a URL from a server.

       You also need to set the credentials on the UserAgent object like this:

	  $ua->credentials('www.company.com:80', '', "username", "password");

       Alternatively, you may also subclass LWP::UserAgent and override the "get_basic_credentials()" method.  See LWP::UserAgent for more
       details.

SEE ALSO

       LWP, LWP::UserAgent, lwpcook.

AUTHORS

       Audrey Tang <audrey@audrey.org>

COPYRIGHT

       Copyright 2004, 2005 by Audrey Tang <audrey@audrey.org>.

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

       See <http://www.perl.com/perl/misc/Artistic.html>

perl v5.14.2							    2012-11-27						    LWP::Authen::Wsse(3pm)