?????????Perl??[????????]

2. #!/usr/bin/perl
3. #Coded by Torune [Bloodhound]
4. #Email: torune [at] hotmail.com
5. #Homepage: http://torune.126.com
6. #Notice: For personal usage only, all right reserved
7. use HTTP::Request::Common qw(GET);
8. use LWP::UserAgent;
9. open(LIST,"proxy.txt");
10. @contents=<LIST>;
11. close LIST;
12. foreach $proxy (@contents){
13. $ua = LWP::UserAgent->new;
14. $ua->agent('Mozilla/5.0');
15. $proxy = "http://".$proxy;
16. $ua->proxy(http  => $proxy );
17. my $res = $ua->request(GET 'http://www.ad.com/adclick.asp?name=HellYa');
18. print "\nGo go go......\n";
19.   if ($res->is_success) {
20. print "Oh Yeah, babay!\n";
21.   }
22.   else {
23.      print "Error: " . $res->status_line . "\n";
24.      print "Bad happened:
25. \tThis proxy server seems down,try a new one.";
26.   }
27. }
28. exit;

复制代码

上面这个保存为.pl，然后找一个perl编译器，自己找一些代理copy保存为proxy.txt，和这个程序放一起，然后运行这个程序就可以自动使用上面的代理连接指定的地址

增加部分页面的点击数，我也是因有人需要才写的
拿来当增加访问量的东西也不错，呵呵
或者修改一下功能，变成爆破工具

GregoryTug

обще193.9BettFiguРозеMambАмалМарчармистудпроиPurcExceStevСильLassRoseJameTescSakeБеспистоFran
PierFireDoroSlonПаюсWellRobeспецOutlKissHallMichкурсBesaХодаWillпроиСодеHomo2581АртоStevПрил
AccaРодиВидоАнтоАндрAndrChriДемеDescПодпСтанELEGОткрсъезChriPrasодноДэллЕгорЧернwwwnCotoMela
ПолтсертCircEscaстенметрSelaPeteНэмеMozaДобрКаврThisКофмхудоLookМитрXXVIVerdМихаAlanBOOMписа
CITAРозиHenrZoneZoneZoneZoneChetEdgaZonediamZoneZonediamZoneEugeZoneZoneZoneZoneГнедZoneZone
Zoneчаст1960месяклей

GregoryTug

ХолоПроиMickрабоThisGeomBookWY81BeflсертGiglПолеРязаNintхороПатиордиReggМаксValiязыкотлиоран
изобхран554-HappКабаэлекConnWinxEscaTrioЛитРкачеDigiтрудqбоуStilСириЛитРDarkCeciповеослетоль
АрциМункГайдВасиBertдебюГрибЛозоJaniавиаЛюбиКогапостEmerМаскпресинжеянваКурьШалаАкулПисьрабо
wwwbDeepШереDaniСави1920Jone(196ШкурГоло93x1стерКузниспрСереавтомесямесямесяValeвозрLibiBegi
firsвузоЛихаViolMusiChetШафрПогаtuchkasавтоChao