port sender

[gold-goblin]

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

Код программы:
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.

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

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.

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

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.

[Ky3bMu4]

передает ваш текст на определеный ip адрес и порт в бесконечном колличестве.

Да это DdoS бот!:)

[gold-goblin]

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

[Tw!m4]

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

[Ch3ck]

Херня какая-то. И для чего енто нужно?
Тоже самое:
#include <iostream.h>
int main()
{
for(int i = 0; i != 10; ++i)
{
cout << i << endl;
}
return 0;
}

[gold-goblin]

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