最近因為 Yahoo 999 的問題卡了幾天, 沒想到透過 Mozilla Firefox + proxy website list 就可以解決了, 但是 proxy website 後端的 https 加密機制跟轉向過後的網址我們並不知道,只能透過 Mozilla 來處理 cookie 跟轉址的 methods. 底下用 perl 寫個簡單的 download 程式,並透過 proxy website....當然你也可以用這個方式來隱藏你的 ip, 不過最好不用連到需要登入的網站. 畢竟我們是透過 proxy 的方式. 說不定你的帳號密碼會被紀錄下來...XD
mech.pl
#!/usr/bin/perl
#using proxy server to download your file...
# author : sean chen
# mail : funningboy@gmail.com
# 2010/11/26
use strict;
use warnings;
use Data::Dumper;
use File::Basename;
my $path = $ARGV[0]
or die "Must specify your download path \
ex: http://xxx/xxx/xxx/jpg";
# create a new browser
use WWW::Mechanize;
my $browser = WWW::Mechanize->new( env_proxy => 1,
keep_alive => 1,
timeout => 60 );
$browser->cookie_jar(HTTP::Cookies->new());
# proxy website
$browser->get("http://hidemy.biz/");
# post form
$browser->form_number(1);
$browser->field("u", $path);
$browser->click();
#get new url
my $url = $browser->uri;
my @arr = split("\/",$path);
open (oPtr,">$arr[$#arr]") || die "$!";
if($browser->success()){
binmode(oPtr);
print oPtr $browser->content();
} else {
print $browser->status(); die;
}
how to use it
perl mech.pl http://www.ccc.ccc/ddd/ddd.jpg
沒有留言:
張貼留言