1: 
2: 
3: 
4: 
5: 
6: 
7: 
8: 
9: 
10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 
18: 
19: 
20: 
21: 
22: 
23: 
24: 
25: 
26: 
27:

<?


 if(ereg("^[_a-zA-Z0-9-]+(.[-a-zA-Z0-9-]+)*@([a-zA-Z0-9-]+.)+([a-zA-Z]{2,6})$", $mail, $regs)){


     $fp = @fsockopen("www.$regs[2]$regs[3]", 80);
          if($fp){
 $check = 1;
 }


if($check){
    print "1";
} else {
    print "0";
}



} else {
       echo "0";
}

?>