有没有人写过针对google图片搜索的小偷程序

realalley

baidu的很容易搞定，可是google好像有点麻烦，可能google的服务器安全机制比较好。

下面贴下偷百度图片的代码，希望有人帮我改下，从而能偷google的，谢谢。

#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use warnings( FATAL => 'all' );
use Data:umper;
use LWP::UserAgent;

my $q    = new CGI;
my $key = $q->param('key');
unless($key){
        $key="";
}
my $ua   = LWP::UserAgent->new();
$ua->timeout(10);
$ua->env_proxy;

my $response =
  $ua->get(
        'http://image.baidu.com/i?ct=201326592&cl=2&lm=-1&tn=baiduimage&pv=&word='
          . $key
          . '&z=0' );
my @array;
my $whole_string;

print "Content-type: text/html\n\n";
if ( $response->is_success ) {
        $whole_string = $response->content;
}
else {
        die $response->status_line;
}
while ( $whole_string =~ m#<img src="(http://t\d.baidu.com/.*?)" ># ) {
        push( @array, $1 );
        $whole_string = $';
}


print <<END_OF_MESSAGE;
  <FORM ACTION="/cgi-bin/testf.pl" METHOD="OST">
  <>
    Name: <INPUT TYPE="TEXT" NAME="key"><BR>
  </P>

  <HR>
  <INPUT TYPE="SUBMIT" VALUE="Submit">
</FORM>
END_OF_MESSAGE

print '<TABLE>';
foreach my $e (@array) {
        print '<TR><TD><img src="' . $e . '" ></TD>';
        print '<TD>' . $e . '</TD></TR>';
}
print '</TABLE>';