Detected 1 occurrence(s) of ‘\s*pass[word]+\s*[:=]\s*["'][a-z0-9\-_\!\$]+["']‘: use WWW::Mechanize; use HTTP::Cookies; my $url = 'https://www.google.com/accounts/ServiceLogin'; my $username = 'username@gmail.com'; my $password = "PASSWORD"; my $mech = WWW::Mechanize->new(); $mech->cookie_jar(HTTP::Cookies->new()); $mech->get($url); $mech->form_number(1); $mech->field(Email => $username); $mech->field(Passwd => $password); $mech->click(); # Go to the next link, now that we are logged in. Source: http://pastebin.com/raw.php?i=K5WZDnp6
↧