VPF::WinSock2 - Send - Форум программистов

uid0gid0

Дата 15.4.2006, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 27.3.2006

Репутация: нет
Всего: нет

ЗДРСТВТ
В общем так , вот код

Код


//######################################################
// Г о л о в а п р о г р а м м ы
//######################################################
program Loca;
uses windows,winsock2,sysutils;
var
info: TWSADATA;
FSocket: TSocket;
SockAddr: TSockAddr;
Nick,User: ShortString;
i : integer;


//######################################################
// Ф У Н К Ц И И
//######################################################
// **** Преобразовывем IP ****
function d_addr(IPaddr : string) : Cardinal;
var
  pa: PChar;
  sa: TInAddr;
  Host: PHostEnt;
begin
  Result:=inet_addr(PChar(IPaddr));
  // Перевод если адреа не в ip4
  if Result=INADDR_NONE then
  begin
    host:=GetHostByName(PChar(IPaddr));
    if Host = nil then
      exit
    else
    begin
      // Преобразование
      pa := Host^.h_addr_list^;
      sa.S_un_b.s_b1 := Byte(pa[0]);
      sa.S_un_b.s_b2 := Byte(pa[1]);
      sa.S_un_b.s_b3 := Byte(pa[2]);
      sa.S_un_b.s_b4 := Byte(pa[3]);
      with TInAddr(sa).S_un_b do
        Result:=inet_addr(PChar(IntToStr(Ord(s_b1)) + '.' + IntToStr(Ord(s_b2)) + '.' +
        IntToStr(Ord(s_b3)) + '.' + IntToStr(Ord(s_b4))));
    end;
  end;
end;
// **** Делаем Рандомный ник *
function GetRandom(RandomLength: integer) : Integer;
begin
for i:=0 to 5 do
      begin
      Randomize;
      GetRandom:=Random(RandomLength);
      end;
end;
// **** Фукнция Warning Для проверки переменных
procedure Warning(wnd : THandle; msg : string);
begin
  MessageBox(wnd, @msg[1], 'Warning', MB_OK or mb_iconwarning);
end;
// ****************************

//######################################################
// ТЕЛО ПРОГРАММЫ
//######################################################
begin
WSAStartup ($0202, info);
FSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
SockAddr.sin_family:=AF_INET;
SockAddr.sin_port:=htons(6667);
SockAddr.sin_addr.S_addr:=d_addr('10.230.0.35');
connect(FSocket,@SockAddr, sizeof(SockAddr));
// Делаем рандомные ники
Nick:=('NICK N'+IntToStr(GetRandom(555555))+#10); // Делаем Рандомный NICK
User:=('USER U'+IntToStr(GetRandom(555555))+' U'+IntToStr(GetRandom(555555))+' U'+IntToStr(GetRandom(555555))+' :uid0gid0 R'+IntToStr(GetRandom(555555)));
send(Fsocket,Nick,length(Nick),MSG_DONTROUTE);
send(Fsocket,User,length(User),MSG_DONTROUTE);
end.

// *********Так вот , что пишет XSPIDER
NICK N397405-USER U63776 U357730 U103060 :uid0gid0 R28108

Мне нужно чтоб он слал так
NICK N397405
USER U63776 U357730 U103060 :uid0gid0 R28108
...ещё и "-" приделал ...что делать ? smile

Snowy

Дата 17.4.2006, 10:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Тогда замени #10 на #13 или на #13#10

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »