以下内容来自 维基百科 。
===
Character Generator Protocol (CHARGEN) 是在 RFC 864 中由 Jon Postel 定义的 Internet Protocol Suite 中的一个服务。主要用于测试、调试,以及测量的目的。该协议很少被使用,因为其固有的设计缺陷容易导致误用和攻击。
任意 host 都可以通过 TCP 或 UDP 方式连接到支持 Character Generator Protocol 并启用了该服务的服务器上,默认端口号为 19。当采用 TCP 方式成功连接时,服务器端将开始连续不断的发送任意字符到该连接上的 host,直到 host 主动关闭该连接为止。当采用 UDP 方式时,服务器端会在每一次收到来自 host 的数据报时,回复包含随机数(0~512)的字符形式 UDP 数据报。服务器接收到的任何数据均会被丢弃。
在大多数类 UNIX 操作系统上,CHARGEN 服务被放置在 inetd 或 xinetd 守护进程中。CHARGEN 服务器通常默认情况下不被使能。
CHARGEN 服务可以作为产生字节流的源用于调试 TCP 网络程序代码,比如,边界检查和缓存管理。该服务同样可以作为带宽测量或 Qos 调优的通用负载产生的源。
典型的 CHARGEN 服务会话看起来如下:用于通过 telnet 客户端连接到(提供该服务的)服务器上,用户连续不断的接收来自服务端的字节流。尽管在 RFC 864 里没有指定字节流的数据格式,但推荐的格式为(事实上的标准)循环左移含有 72 个 ASCII 字符的行。
$ telnet localhost chargen
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh
"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghi
#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghij
$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijk
%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkl
&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklm
'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmn
()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmno
)*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnop
*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopq
+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqr
,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrs
-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrst
./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu
/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuv
^]
telnet> quit
Connection closed.
这个数据将一直持续到当前 TCP 连接被关闭为止(比如上面通过 ^] 来停止 telnet 会话)。
===
附:网上找的一个用 erlang 实现的 chargen 服务的程序。
-module(chargen).
-author('Jesse E.I. Farmer <jesse@20bits.com>').
-export([listen/1]).
-define(START_CHAR, 33).
-define(END_CHAR, 127).
-define(LINE_LENGTH, 72).
-define(TCP_OPTIONS, [binary, {packet, 0}, {active, false}, {reuseaddr, true}]).
% Call chargen:listen(Port) to start the service.
listen(Port) ->
{ok, LSocket} = gen_tcp:listen(Port, ?TCP_OPTIONS),
accept(LSocket).
% Wait for incoming connections and spawn the chargen loop when we get one.
accept(LSocket) ->
{ok, Socket} = gen_tcp:accept(LSocket),
spawn(fun() -> loop(Socket) end),
accept(LSocket).
loop(Socket) ->
loop(Socket, ?START_CHAR).
loop(Socket, ?END_CHAR) ->
loop(Socket, ?START_CHAR);
loop(Socket, StartChar) ->
Line = make_line(StartChar),
case gen_tcp:send(Socket, Line) of
{error, _Reason} ->
exit(normal);
ok ->
loop(Socket, StartChar+1)
end.
make_line(StartChar) ->
make_line(StartChar, 0).
% Generate a new chargen line -- [13, 10] is CRLF.
make_line(_, ?LINE_LENGTH) ->
[13, 10];
make_line(?END_CHAR, Pos) ->
make_line(?START_CHAR, Pos);
make_line(StartChar, Pos) ->
[StartChar | make_line(StartChar + 1, Pos + 1)].