验证邮箱的真实有效性.doc

验证邮箱的真实有效性001 host = $host; 025 $this-port = $port; 026 $this-user = base64_encode($user); 027 $this-pass = base64_encode($pass); 028 $this-debug = $debug; 029 $this-socket = socket_create (AF_INET, SOCK_STREAM, SOL_TCP); /具体用法请参考手册 030 if($this-socket) 031 032 $this-result_str = 创建SOCKET:.socket_strerror(socket_last_error(); 033 $this-debug_show($this-result_str); 034 035 else 036 037 exit(初始化失败，请检查您的网络连接和参数); 038 039 $this-conn = socket_connect($this-socket,$this-host,$this-port); 040 if($this-conn) 041 042 $this-result_str = 创建SOCKET连接:.socket_strerror(socket_last_error(); 043 $this-debug_show($this-result_str); 044 045 else 046 047 exit(初始化失败，请检查您的网络连接和参数); 048 049 $this-result_str = 服务器应答：.socket_read ($this-socket, 1024).; 050 $this-debug_show($this-result_str); 051 052 053 054 function debug_show($str) 055 056 if($this-debug) 057 058 echo $str.rn; 059 060 061 function send($from,$to,$subject,$body) 062 063 if($from = | $to = ) 064 065 exit(请输入信箱地址); 066 067 if($subject = ) $sebject = 无标题; 068 if($body = ) $body = 无内容; 069 $this-from = $from; 070 $this-to = $to; 071 $this-subject = $subject; 072 $this-body = $body; 073 074 /扬帆修改部分代码 075 $All = From:from.rn; 076 $All .= To:to.rn; 077 $All .= Subject:.$this-subject.rnrn; 078 $All .= $this-body; 079 /* 080 如过把$All的内容再加处理，就可以实现发送MIME邮件了 081 不过还需要加很多程序 082 */ 083 084 085 /以下是和服务器会话 086 $this-in = EHLO HELOrn; 087 $this-docommand(); 088 089 $this-in = AUTH LOGINrn; 090 $this-docommand(); 091 092 $this-in = $this-user.rn; 093 $this-docommand(); 094 095 $this-in = $this-pass.rn; 096 $this-docommand(); 097 098 / $this-in = MAIL FROM:.$this-from.rn; 099 $this-in = MAIL FROM:from.rn; /扬帆修改 100 $this-docommand(); 101 102 / $this-in = RCPT TO:.$this-to.rn; 103 $this-in = RCPT TO:to.rn; /扬帆修改 104 $this-docommand(); 105 106 $this-in = DATArn; 107 $this-docommand(); 108 109 $this-in = $All.rn.rn; 110 $this-docommand(); 111 112 $this-in = QUITrn; 113 $this-docommand(); 114 115 /结束，关闭连接 116 117 118 119 120 function docommand() 121 122 socket_write ($this-socket, $this-in, strlen ($this-in); 123 $this-debug_show(客户机命令：.$this-in); 124 $this-result_str = 服务器应答：.socket_read ($this-socket, 1024).; 125 $this-debug_