port sender

Начал я изучать Sockets в паскале и от нечего делать написал программу которая передает ваш текст на определеный ip адрес и порт в бесконечном колличестве.
Написал я ее на паскале и только от нечего делать.
Пользуйтесь прогой и изучайте в месте с ней паскаль

Код программы:

Code:

uses Sockets;
var
  sock: integer;
  b: boolean;
  paket,s: string;
  ip: string;
  port: integer;
  a: real;
begin
writeln('Введите адрес цели');
readln(ip);
writeln('Введите порт цели');
readln(port);
writeln('Введите текст сообщения');
readln(paket);
  sock:=CreateClientSocket;
  b:=Connect(sock,ip,port);
  if not b then
  begin
    writeln('Соеденение не удачно');
    Exit;
  end;
  repeat
    s:=paket;
    SendString(sock,s);
  until s='power off';
  CloseSocket(sock);
end.

Эта версия проги работает тагже но посылает сообщения не в бесконечном цикле:

Code:

uses Sockets;
var
  sock: integer;
  b: boolean;
  s: string;
  ip: string;
  port: integer;
begin
  writeln('Введите адрес цели');
  readln(ip);
  writeln('Введите порт цели');
  readln(port);
  writeln('Введите ваше сообщение');
  readln(s);
  sock:=CreateClientSocket;
  b:=Connect(sock,ip,port);
  if not b then
  begin
    writeln('Неудачное соеденение');
    Exit;
  end;
  repeat
    SendString(sock,s);
  until s='power off';
  CloseSocket(sock);
end.

Ну и напоследок накидал прогу которая может принемать любые сообщения на любом порту

Code:

uses Sockets;
var
  s: string;
  sock,clsock: integer;
  port: integer;
begin
  writeln('Введите порт на котором висеть');
  readln(port);
  sock:=CreateServerSocket(port);
  clsock:=Accept(sock);
  writeln(clsock);
  repeat
    ReceiveString(clsock,s);
    if s<>'' then
      writeln(s);
  until s='power off';
  CloseSocket(sock);
  CloseSocket(clsock);
end.

 

Да это DdoS бот!

 

Неа это я случайно в цикле ошибся и получилось оно.

 

^^ а через фаер ана тоже будет работать? =0)))

 

Херня какая-то. И для чего енто нужно?
Тоже самое:

 

Я написал что прога написана просто так и от нечего делать но p2p хабы загрузить ей можно.