From owner-FreeBSD-users-jp@jp.FreeBSD.org Tue Apr  1 12:00:00 2003
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id h31300c66991;
	Tue, 1 Apr 2003 12:00:00 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from t-mta2.odn.ne.jp (mfep2.odn.ne.jp [143.90.131.180])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet id h31300766975
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Tue, 1 Apr 2003 12:00:00 +0900 (JST)
	(envelope-from delmonta@ht.sakura.ne.jp)
Received: from ht.sakura.ne.jp ([210.231.12.239]) by t-mta2.odn.ne.jp
          with ESMTP
          id <20030401025841066.VNL.1543.t-mta2.odn.ne.jp@mta2.odn.ne.jp>
          for <FreeBSD-users-jp@jp.FreeBSD.org>;
          Tue, 1 Apr 2003 11:58:41 +0900
Message-ID: <3E89005C.4AC16660@ht.sakura.ne.jp>
From: IIJIMA Hiromitsu <delmonta@ht.sakura.ne.jp>
Organization: DENNOU GEDOU GAKKAI, N.D.D. http://www.dennougedougakkai-ndd.org/
X-Mailer: Mozilla 4.78 [ja] (Win98; U)
X-Accept-Language: ja,en,zh-TW,zh,zh-CN,de,es,ko
MIME-Version: 1.0
To: FreeBSD-users-jp@jp.FreeBSD.org
References: <20030401105450.6e5e91f9.mnyu@lime.ocn.ne.jp> <20030401113202.FF4F.1YEN@sh.rim.or.jp>
Content-Type: text/plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Tue, 01 Apr 2003 11:58:36 +0900
X-Sequence: FreeBSD-users-jp 73933
Subject: [FreeBSD-users-jp 73933] Re: =?ISO-2022-JP?B?GyRCJTMlXhsoQg==?=
 =?ISO-2022-JP?B?GyRCJXMlSSVpJSQlcyQrJGklJCVzJT8hPCVNJUMbKEI=?=
 =?ISO-2022-JP?B?GyRCJUgkWCVhITwlayRyGyhC?=
	=?ISO-2022-JP?B?GyRCPVAkOUp9SyEbKEI=?= 
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: delmonta@ht.sakura.ne.jp
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+030327

$B$$$$$8$^$G$9!#(B

> > pop befor smtp$B$NLdBj$,$"$k$h$&$G(B yahoo $B%a!<%k$d(Bjustnet$B$K$O(B
> > $BAw?.=PMh$^$9$,(B $B%a%$%s$G;H$C$F$$$k(B ocn $B$G$OAw?.=PMh$^$;$s(B
> ( echo "user $B%f!<%6L>(B" ; echo "pass $B%Q%9%o!<%I(B" ; echo "STAT" ; sleep 10 ) | telnet pop$B%5!<%P!<(B 110
> $B$9$k!#(B

$B%Q%9%o!<%I$rJ?J8$G%7%'%k%9%/%j%W%H$NCf$KKd$a9~$s$G$*$/$N$,7y$@$H$$$&(B
$B%1!<%9$N$?$a$K!"B(@J$G%/%i%$%"%s%H=q$-$^$7$?!#(B

--------$B$3$3$+$i(B
#!/usr/bin/perl -I/home/delmonta/lib/perl

use Term::ReadPassword;
use IO::Socket;

$POPHOST = 'ht.sakura.ne.jp:110';
$USERNAME = 'delmonta';

$sock = IO::Socket::INET->new(PeerAddr=>$POPHOST) || die;
binmode $sock;

print {$sock} "USER $USERNAME\r\n";
$password = read_password("Password:");
if (!defined($password))
        {die "Aborted.\n";}

print {$sock} "PASS $password\r\nQUIT\r\n";
while (<$sock>)
        {print;}

exit 0;
--------$B$3$3$^$G(B

Term::ReadPassword $B$O(B perl -MCPAN -e shell $B$G(B install Term::ReadPassword
$B$9$k$+!"$b$7(B root $B8"8B$,$J$1$l$P!J:#2s$O(B root $B$,$"$k$h$&$G$9$,!K(B
http://search.cpan.org/author/PHOENIX/Term-ReadPassword-0.01/ReadPassword.pm
$B$+$i(B Source $B$r%@%&%s%m!<%I$7$FE,Ev$J>l=j!J>e5-$N%9%/%j%W%H$G$O(B ~/lib/perl$B!K(B
$B$KCV$/$+$7$F$/$@$5$$!#(B

> APOP $B$8$c$J$$$N$,<eE@!#(B
> # MH($B$N(Binc)$B$d(B im($B$N(Bimget)$B$J$i(B apop $B$G$-$^$9$N$G!"Aw$kA0$K(B
> # inc $B$d!"(B imget $B$9$k$HNI$$$+$b!#(B(im144 $B$J$i(B pop Before SMTP $B$b$G$-$?$h$&$J(B...)

$B$&$A$N%9%/%j%W%H$@$H!"(BMail::POP3Client $B$r;H$($P(B APOP $BBP1~$K$J$j$^$9!#(B
mail/p5-Mail-POP3Client $B$G$9!#(B

========================================================================
$BHSEh(B $B9@8w(B / $B$G$k$b$s$?!&$$$$$8$^(B   http://www.ht.sakura.ne.jp/~delmonta/
IIJIMA Hiromitsu, aka Delmonta           mailto:delmonta@ht.sakura.ne.jp
