VPF::Вопрос по протоколу FTP (530 Authentication)

bublik

Дата 10.9.2006, 21:20 (ссылка)

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

Загрузка ...

Новичок

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

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

Привет Всем!!

Делаю FTP клиент, на некоторых IP адресах сервер послего моего ввода пользователя :

USER anyuser
пишет:
530 Authentication required
ну я понимаю что надо зарегить пользователя или что-то в этом роде , но я не знаю что и как
писать, какую команду дать. Причем на этот адрес можно легко зайти с браузера.

Код


var
buff:array [0..200] of char;
s:string;
r:integer;
begin
//Очистить буфер
ZeroMemory(@Buff,SizeOf(Buff));
//Принять приветствие сервера FTP
r:=recv(Sckt,Buff,SizeOF(Buff),0);
//Отправить на проверку ошибки
if ErrorCode(string(Buff),'220',r)=False then
 begin
  Result:=False;
  exit;
 end;

//Очистить буфер
ZeroMemory(@Buff,SizeOf(Buff));
//Послать имя пользователя серверу
s:='USER '+FTPUser+#13+#10;
//Скопировать команду в буфер
CopyMemory(@Buff,PChar(s),Length(s));
//Послать имя пользователя серверу FTP
Send(Sckt,Buff,Length(Buff),0);
//Очистить буфер
ZeroMemory(@Buff,SizeOf(Buff));
//Принять ответ сервера
r:=recv(Sckt,Buff,SizeOF(Buff),0);
//Отправить на проверку ошибки
if ErrorCode(string(Buff),'331',r)=False then
 begin
  Result:=False;
  exit;
 end;
//Очистить буфер
ZeroMemory(@Buff,SizeOf(Buff));
//Послать адрес почты в качестве пароля
s:='PASS '+FTPPass+#13+#10;
//Скопировать команду в буфер
CopyMemory(@Buff,PChar(s),Length(s));
//Послать имя пользователя серверу
Send(Sckt,Buff,Length(Buff),0);
//Очистить буфер
ZeroMemory(@Buff,SizeOf(Buff));
//Принять ответ сервера
r:=recv(Sckt,Buff,SizeOF(Buff),0);
//Отправить на проверку ошибки
if ErrorCode(string(Buff),'230',r)=False then
 begin
  Result:=False;
  exit;
 end;
//Очистить буфер
ZeroMemory(@Buff,SizeOf(Buff));
//Послать команду сервера о завершении сеанса
s:='QUIT'+#13+#10;
//Скопировать команду в буфер
CopyMemory(@Buff,PChar(s),Length(s));
//Послать имя пользователя серверу
Send(Sckt,Buff,Length(Buff),0);
//Очистить буфер
ZeroMemory(@Buff,SizeOf(Buff));
//Принять ответ сервера
r:=recv(Sckt,Buff,SizeOF(Buff),0);
//Отправить на проверку ошибки
if ErrorCode(string(Buff),'221',r)=False then
 begin
  Result:=False;
  exit;
 end;

Result:=true;
end;

Matematik

Дата 10.9.2006, 22:41 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

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

ftp клиент ничего не должен знать о регистрации, в протоколе такая функция не предусмотрена.

Romikgy

Дата 10.9.2006, 22:56 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Цитата(bublik @ 10.9.2006, 20:20

)

Причем на этот адрес можно легко зайти с браузера.

покажи как в броузере ты это делаешь

Цитата(bublik @ 10.9.2006, 20:20

)

какую команду дать

команду дает админ сервера, а не ты

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 11.9.2006, 09:26 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(bublik @ 10.9.2006, 21:20

)

USER anyuser

anonymous

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