[troche OT] szalony pomysł a propos mbanku

[Piotr Pawłow]

On Friday 11 of July 2003 10:58, Rafal Cygnarowski wrote:
> W praktyce nie sprawdza sie to najlepiej. Znacznie lepsze efekty
> uzyskasz korzystajac z perl-a.

Mogę nawet rzucić kawałkiem przykładu, bo kiedyś się tym bawiłem :)
Nie wiem tylko na ile jest aktualny.


#!/usr/bin/perl -w

use strict;
use Data::Dumper;
use LWP::UserAgent;
require HTTP::Cookies;
my ($num, $pass)=@ARGV;
my $ua = LWP::UserAgent->new(keep_alive => 1, timeout => 30 );
$ua->cookie_jar(HTTP::Cookies->new(file => "cookies.txt"));
my $response=$ua->get("https://www.mbank.com.pl");
if (($response->content)=~/<input TYPE=\"HIDDEN\" NAME=\"sSID\" VALUE=\"(\d+)\">/i)
{
    $response=$ua->post("https://www.mbank.com.pl/ib_Login_Verification.asp", {'txtCustNbr'=>$num, 'txtPa
    if ($response->is_success) {
# W tym miejscu jesteśmy już zalogowani i możemy działać

    }
}


Pozdrawiam
-- 
 Piotr Pawłow
 mailto:pp w siedziba.pl