<?php 
$url = "http://packetstormsecurity.com";

function curl($url, $httpinfo=false){
	$ch = curl_init();
	curl_setopt($ch, CURLOPT_URL, $url);
	curl_setopt($ch, CURLOPT_USERAGENT, "Mozilla/5.0 (X11; Linux i686) AppleWebKit/536.5 (KHTML, like Gecko) Chrome/19.0.1084.52 Safari/536.5");
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
	curl_setopt($ch, CURLOPT_FOLLOWLOCATION, true);
	curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
	$exec = curl_exec($ch);
	if($httpinfo){
		$info = curl_getinfo($ch);
		curl_close($ch);
		return $info;
	}
	curl_close($ch);
	return $exec;
	
}
$gay = curl($url);
$cok = preg_match_all("#\bhttps?://[^\s()<>]+(?:\([\w\d]+\)|([^[:punct:]\s]|/))#", $gay, $m) ? $m[0] : null;
if(empty($cok))echo "url tidak ada";
else{
	echo "[+]Menemukan ".count($cok)." url\n\n";
	for($i=1; $i<=count($cok); $i++){
		$info = curl($cok[$i-1], true);
		echo $cok[$i-1]." -> ".$info['http_code']."\n";
	}
}
/*
output:
[+]Menemukan 69 url

http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd -> 200
http://www.w3.org/1999/xhtml -> 200
http://packetstatic.com/css1389117369/pss.css -> 200
http://packetstatic.com/css1389117369/ie.css -> 200
http://packetstatic.com/js1389117369/pt.js -> 200
http://packetstatic.com/js1389117369/pss.js -> 200
http://packetstormsecurity.com/opensearch.xml -> 200
http://rss.packetstormsecurity.com/news/ -> 200
http://rss.packetstormsecurity.com/files/ -> 200
http://rss.packetstormsecurity.com/files/tags/exploit/ -> 200
http://rss.packetstormsecurity.com/files/tags/advisory/ -> 200
http://packetstatic.com/img1398360120/ps_logo.png -> 200
https://packetstormsecurity.com/account/register/ -> 200
https://packetstormsecurity.com/account/login/ -> 200
http://packetstatic.com/art/c/congress-420.jpg -> 200
http://packetstatic.com/art/a/adobehq-100.jpg -> 200
http://packetstatic.com/art/t/twitterfollow-100.jpg -> 200
http://packetstatic.com/art/i/israelbombs-100.jpg -> 200
http://rss.packetstormsecurity.com/files/ -> 200
http://packetstatic.com/img1398360120/bt_rss.gif -> 200
https://access.redhat.com/security/team/contact/ -> 200
https://access.redhat.com/security/team/contact/ -> 200
https://access.redhat.com/security/team/contact/ -> 200
https://access.redhat.com/security/team/contact/ -> 200
https://access.redhat.com/security/team/contact/ -> 200
http://www.cisco.com -> 200
http://security.freebsd.org/ -> 200
http://www.nipc.org.cn/ -> 200
*/