01/04/13 Remote Massal File PHP

Aku pengen postiiiiiiiiiiiiiiiiing, tapi posting apaan yak. Hmm yaudah posting tentang ini aja, ini pun sebenernya cuma buat catatan pribadi doang kok. Postingan ini pun bingung mau dikasih judul apaan, cz isi dari postingan ini adalah : source code dari sebuah perl yang berfunsi untuk meng - eksekusi beberapa file php. Cocok digunakan untuk bot like dll..

Source Code :

#!/usr/bin/perl
use IO::Socket;
use IO::Select;
use Socket;


my $url1 = ("http://URL_DOMAIN_KAMU/php1.php");
my $status1 = query($url1);

my $url2 = ("http://URL_DOMAIN_KAMU/php2.php");
my $status2 = query($url2);

my $url3 = ("http://URL_DOMAIN_KAMU/php3.php");
my $status3 = query($url3);

my $url4 = ("http://URL_DOMAIN_KAMU/php4.php");
my $status4 = query($url4);

sub query($) {
my $url = $_[0];
$url =~ s/http:////;
my $host = $url;
my $query = $url;
my $page = "";
$host =~ s/href="?http:////;
$host =~ s/([-a-zA-Z0-9.]+)/.*/$1/;
$query =~ s/$host//;
if ( $query eq "" ) { $query = "/"; }
eval {
my $sock = IO::Socket::INET->new(PeerAddr => "$host", PeerPort => "80", Proto => "tcp") or return;
print $sock "GET $query HTTP/1.0rnHost: $hostrnAccept: */*rnUser-Agent: Mozilla/5.0rnrn";
my @r = <$sock>;
$page = "@r";
close($sock);
};
return $page;
}

Ganti yang aku tebelin itu dengan URL PHP kamu ( sesuaikan dengan kebutuhan, mau sampai berapa URL ). Jangan tanya berapa jumlah maximal URL PHP dalam 1 file perl itu, gunakan sewajarnya aja. ( buat aku sendiri nyoba sampai 20 URL PHP itupun work semua ).

Sekian dan terima kasih.

Atau dapat dilihat Source Codenya DISINI

Salam Olah Raga #ngok

Anda sedang membaca Artikel tentang :
Remote Massal File PHP
Anda boleh menyebar Luaskan jika Artikel ini sangat bermanfaat bagi teman-teman anda,
Namun jangan lupa untuk meletakkan Link
http://bhieneka.blogspot.com/2013/04/Perl-PHP.html
sebagai Sumbernya.
Jangan lupa di like Fans Page nya BhieNEka

Posted by: BhieNEka Notes Of BhieNEka, Updated at: 10.16

Related Post