荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: georgehill (人生不定式), 信区: Linux
标 题: Re: linux下面有telnet代理么(转寄)
发信站: BBS 荔园晨风站 (Thu Sep 14 22:56:18 2000), 站内信件
【 以下文字转载自 georgehill 的信箱 】
【 原文由 georgehill.bbs@smth.org 所发表 】
发信人: Nullgate (空门·Perl民工·VIV LA OSS·谢绝纨绔), 信区: Linux
标 题: Re: linux下面有telnet代理么(转寄)
发信站: BBS 水木清华站 (Thu Sep 14 15:39:28 2000)
如果你想用某个断口，比如8888，而不想输入bbs用户名
你需要写个daemon，很简单，呵呵
this is passwd:
bbs:x:503:505::/home/bbs:/home/bbs/bbs2.pl
old version
:/usr/bin/telnet smth.org
this is script:
#!/usr/local/bin/perl
use strict;
my $time=`date`;
$time=~m{(\d*)\s*(\d\d):(\d\d):\d\d\s*CST};
my $minutes=$2*60+$3;
#print $minutes,"\n";
my $result=`finger | grep bbs`;
my @users=split("\n",$result);
my $detail={};
my $online={};
my $thisip='';
my $flag=0;
foreach $result(@users)
{
next if $result!~m{\w*\s*(\d*)\s*(\d*):(\d*) \((.*)\)};
my $temp={'day'=>$1,'hour'=>$2,'minute'=>$3,'from'=>$4};
my $nows=$2*60+$3;
$temp->{'test'}=($minutes+60*240-$nows)%(60*240);
#print $temp->{'test'},"\t",$temp->{'from'},"\n";
if($temp->{'test'}>=0 && $temp->{'test'}<=1)
{
$thisip=$temp->{'from'};
if($thisip=~m{$166\.111|$162\.105|$202\.38|\.cn})
{
print " 本站并非为了隐蔽访问者IP，所以禁止教育网网
段者使用。\n请通过anti-japan.dhs.org:8888穿梭\n";
exit;
}
else
{
if($flag)
{
print "禁止短时间内重复登陆(可能有其他人在登
陆，请等一分钟登陆)！\n";
exit;
}
$flag=1;
}
next;
}
$online->{$temp->{'from'}}++;
}
if($online->{$thisip}==1 || scalar(keys %$online)>=12)
{
print " 这台机器还有其它的用途，资源有限。所以最多只允许12人在线。
一个IP只允许\n一个用户在线，如果你们通过一台机器，与水木清华的NULLGATE(空门)
联系。\n";
exit;
}
print "欢迎你，来自",$thisip,"的朋友\n";
for(1...5)
{
system('cat /home/bbs/welcome.msg');
my $choice=<STDIN>;
chomp($choice);
chomp($choice);
if($choice==1)
{
system('telnet smth.org');
exit;
}
elsif($choice==2)
{
system('finger | grep bbs');
}
elsif($choice==3)
{
print "\n谢谢使用，再见。";
exit;
}
else
{
print "\n无效输入\n";
}
}
print "\n谢谢使用，再见。";
【 在 foolchild (傻小孩·永失我爱) 的大作中提到: 】
: 我知道可以，但是我的要求是要跟wingate的那种telnet代理类似。
: 不是我自己要用，我自己用当然可以先登录进去再telnet啦。
: wingate的telnet代理大家知道吧，不需要登录的，进去直接敲IP就行，而且
: 还可以进行一些必要的限制，如连接数什么的。
: 你那个perl的可以蛮合适的，给我一份行么？谢了。
--
“请你驯服我吧！”他(狐狸)说。
“我是很愿意的。”小王子回答道，“可我的时间不多了。我还要去寻找朋
友，还有许多事物要了解。”
“只有被驯服了的事物，才会被了解。”狐狸说，“人不会再有时间去了解
任何东西的。他们总是到商人那里去购买现成的东西。因为世界上还没有购买朋
友的商店，所以人也就没有朋友。如果你想要一个朋友，那就驯服我吧！”
※ 来源:·BBS 水木清华站 smth.org·[FROM: 202.205.4.15]
--
※ 转载:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.115]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店