| POP3認證<?php $PHP_SELF=$_SERVER["PHP_SELF"]; $command=$_POST["command"]; if ($command==null) { echo "<center><form method=post action='$PHP_SELF'> username <input type=text name=username size=30><br> password <input type=password name=password size=30><br> <input type=submit name=command value='登入'> </center></form> "; } if ($command=="登入") { $username=$_POST['username']; $password=$_POST['password']; if($username==null || $password==null) { echo "帳號密碼輸入不完全"; die(); } // 開啟主機連線,傳回錯誤代碼 訊息 Timeout為 10 秒 $fp = fsockopen ("cc.cust.edu.tw", 110, &$errno, &$errstr, 10); if (!$fp) echo "$errstr ($errno)<br>\n"; // 連線失敗 else { if (!feof($fp)) fgets ($fp,128); // 取得結果 fputs ($fp , "USER $username\n"); // 傳送帳號 if (!feof($fp)) fgets ($fp,128); // 取得結果 fputs ($fp, "PASS $password\n"); // 傳送密碼 if (!feof($fp)) $str=fgets ($fp,128); // 取得結果 $ok=strtolower(substr($str,0,3)); // 改小寫 $ok=strcmp($ok,"+ok"); // 是否 ok } fclose ($fp); if ($ok<>0) { echo "無法登入"; die(); } echo "登入成功 ok=$ok <p>"; } ?> // 作業 請結合 POP3認證與第一個程式,也就是利用ccs pop3任鄭成功後才允許執行第一個程式
| |