cat << "EOF"
             ____   ____ ___  ____  _____   _   _ _____ _____
            | __ ) / ___/ _ \|  _ \| ____| | \ | | ____|_   _|
            |  _ \| |  | | | | | | |  _|   |  \| |  _|   | |  
            | |_) | |__| |_| | |_| | |___ _| |\  | |___  | |  
            |____/ \____\___/|____/|_____(_)_| \_|_____| |_|  
 
                Reverseip
                CODE By CCOCOT
                Thank For Zombie-root
EOF

if [ -z $1 ]; then
    printf "\n To Use $0 <file.txt>"
    exit 1
fi

get_target(){

	gocurl=$(curl -s "http://www.ipfingerprints.com/scripts/getReverseIP.php" -d "remoteHost=${1}" | grep -Po "(?<=\">)[^<]*")
	IFS=' ' read -r -a target <<< $gocurl
	for i in "${!target[@]}"; do
		printf "[+] ${target[$i]}\n"
		echo ${target[$i]} >> web.txt
	done
}

persend=20
setleep=5

itung=0

IFS=$'\r\n' GLOBIGNORE='*' command eval 'web=($(cat $1))'
for (( i = 0; i < ${#web[@]}; i++ )); do

	set_kirik=$(expr $itung % $persend)
    if [[ $set_kirik == 0 && $itung > 0 ]]; then
        sleep $setleep
    fi

	printf "\nTry ${web[$i]} ... \n"
	get_target ${web[$i]} &
	itung=$[itung+1]

done
wait