client.dpr

来自「远程控制源程序(DELPHI版)」· DPR 代码 · 共 52 行

program client;

uses
  sysutils,winsock,windows;

  {$R *.RES}

const
  MaxLen=1024*2;
var
  ret,port,size,k:integer;
  WSADATA:TWSADATA;
  sin:TSockAddr;
  ss:TSocket;
  host:string;
  databuf:array[0..MaxLen] of char;
begin
  writeln('Hack Client.............');
  //
  sleep(random(500));
  ret:=WSAStartup(MakeWord(1,1),WSADATA);
  writeln(format('WSAStartup=%d',[ret]));
  //
  ss:=socket(PF_INET,SOCK_STREAM,IPPROTO_TCP);
  writeln(format('socket=%d',[ss]));
  //
  host:='192.168.0.1';
  port:=80;
  sin.sin_family:=PF_INET;
  sin.sin_addr.s_addr:=inet_addr(PChar(host));//INADDR_ANY;//
  sin.sin_port:=htons(port);
  //
  size:=0;
  ret:=connect(ss,sin,Sizeof(sin));
  writeln(format('connect=%d',[ret]));
  //
  strcopy(databuf,pchar('Client Connect...'));
  ret:=send(ss,databuf,strlen(databuf),MSG_DONTROUTE);
  writeln(format('send=%d',[ret]));
  size:=0;
  repeat
    ret:=recv(ss,databuf,MaxLen,0);
    if ret<=0 then break;
    writeln(format('recv=%d,databuf=%s',[ret,databuf]));
    inc(size);
    if  size>=3 then break;
  until false;
  //
  ret:=WSACleanup;
  writeln(format('WSACleanup=%d',[ret]));
end.