Очистка ЧС

Скриптец для очитки чёрного списка. Накатал чтобы наконец избавится от 300к людей в чс. Мб кому пригодится, Цензура знает. В секунду минус 10-15 человек.

Код:
<?
$mail = '';
$pass = '';
 
curl("http://login.vk.com/?act=login&email=$mail&pass=$pass");
echo "Working...".PHP_EOL;
while (true) {
	$getBlackList = curl("http://vk.com/settings?act=blacklist");
	preg_match_all('/delFromBl\((.*?), \'(.*?)\',/', $getBlackList, $users);
	if (empty($users[1])) {
    break;
	}
	for ($i = 0; $i != 500; $i++) { 
    curl("http://vk.com/al_settings.php", "act=a_del_from_bl&al=1&from=settings&hash=".$users[2][$i]."&id=".$users[1][$i]);
    echo "Del user: ".$users[1][$i].PHP_EOL;
	}
}
echo "blacklist clear!";
function curl($url, $post = false) {
	$ch = curl_init($url);
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
	curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);
	if ($post) {
    curl_setopt($ch, CURLOPT_POST, 1);
    curl_setopt($ch, CURLOPT_POSTFIELDS, $post);
	}
	curl_setopt($ch, CURLOPT_COOKIEJAR, './cookie');
	curl_setopt($ch, CURLOPT_COOKIEFILE, './cookie');
	$response = curl_exec ($ch);
	curl_close($ch);
	return $response;
}
?>