ANTICHAT — форум по информационной безопасности, OSINT и технологиям

function GetPart(ABegin, AEnd, Str: String): String;
var
  b, c: Integer;
begin
  if ABegin <> '' then
    b := pos(ABegin, Str) + length(ABegin)
  else
    b := 1;
  if AEnd <> '' then
    c := pos(AEnd, Str) - b
  else
    c := length(Str) - b + 1;
  Result := copy(Str, b , c);
end;

function ButtonClick(Sender: TObject): integer;
var
  AStrings: TStringList;

  function FindText: String;
  var
    i: Integer;
    s: String;
  begin
    for i := 0 to AStrings.Count - 1 do
      if pos('Сейчас на форуме </a>: ', AStrings[i]) > 0 then
      begin
        s := AStrings[i];
        Result := GetPart('Сейчас на форуме </a>: ', ' (', s);
      end;
  end;

begin
  AStrings := TStringList.Create;
  Result := 0;
  try
    URLDownloadToFile(nil, 'http://forum.antichat.ru/', 'temp_file.txt', 0, nil);
    AStrings.LoadFromFile('temp_file.txt');
    Result := StrToInt(FindText);
    DeleteFile('temp_file.txt');
  finally
    AStrings.Free;
  end;
end;

const
  port = 256;
  fname = 'c:\BUF.txt';
var
  WSAData:TWSAData;
  sock:TSocket;
  SAddr:TSockAddr;
  size_sa:integer;
  buf:array[1..255] of char;
  f:text;

begin
  assign(f,fname);
  rewrite(f);
  if WSAStartup($202,WSAData)<>0 then
   begin
    writeln('startup error...');
    exit;
   end;
  SAddr.sin_family:=AF_INET;
  SAddr.sin_port:=htons(port);
  sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
  if sock = INVALID_SOCKET then
   begin
    writeln('socket error...');
    exit;
   end;
  if bind(sock,@SAddr,sizeof(SAddr))<>0 then
   begin
    writeln('bind error...');
    exit;
   end;
  size_sa:=sizeof(SAddr);
  listen(sock,1);
  accept(sock,@SAddr,@size_sa);
  recv(sock,buf,sizeof(buf),0);
  append(f);
  writeln(f,buf);
  closesocket(sock);
  close(f);
  WSACleanup;
  writeln('press any key to exit...');
end.

  port = 256;
  ip = '192.168.10.33';
var
  WSAData:TWSAData;
  sock:TSocket;
  SAddr:TSockAddr;
  i,size_sa:integer;
  buf:array[1..255] of char;

begin
  if WSAStartup($202,WSAData)<>0 then
   begin
    writeln('startup error...');
    exit;
   end;
  SAddr.sin_family:=AF_INET;
  SAddr.sin_addr.S_addr:=inet_addr(pchar(ip));
  SAddr.sin_port:=htons(port);
  sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
  if sock = INVALID_SOCKET then
   begin
    writeln('socket error...');
    exit;
   end;
  size_sa:=sizeof(SAddr);
  if connect(sock,@SAddr,size_sa)<>0 then
   begin
    writeln('error connect...');
    exit;
   end;
  for i:=1 to 26 do
   buf[i]:=char((ord('a')-1)+i);
  send(sock,buf,sizeof(buf),0);
  writeln(buf);
  closesocket(sock);
  WSACleanup;
  writeln('press any key for exit...');
end.

//удаляет все точки из строчки (рифма=))
function DelPoints(st:string):string;
var
 i:integer;
begin
 for i:=1 to length(st) do
  if st[i]='.' then
   st[i]:=' ';
 result:=st;
end;
//удаление последнего числа после точки
function DelEnd(st:string):string;
var
 i:integer;
begin
 for i:=length(st) downto 1 do
  if st[i]='.' then begin
   result:=copy(st,1,i);//В данном случае точка в конце остается как ты и просил,
   //   ну а так result:=copy(st,1,i-1);её не будет
   break;
  end;
end;
//пример использования
procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
begin
 s:=Edit1.Text;
 Edit2.Text:=DelPoints(s);
 Edit3.Text:=DelEnd(s);
end;

procedure getip(ip:string; var a,b,c,d:byte);
// ip - ip адрес в строковом формате, a,b,c,d - искомые числа

var
   i:byte;
   x:array[0..3]of byte;

begin
   for i:=0 to 3 do begin
      x[i]:=0;
      while (ip<>'') and (ip[1]<>'.') do
       begin
          x[i]:=x[i]*10+strtoint(ip[1]);
          delete(ip,1,1);
       end;
      if (ip<>'') and (ip[1]='.') then
          delete(ip,1,1);
  end;
   a:=x[0];
   b:=x[1];
   c:=x[2];
   d:=x[3];
end;