УУУУУРРРРРРАААААА!!!!Есть хорошая новость последние несколько дней, были чуть менее напряжёнными чем предыдушие и я, вспомнив про клиента авторизации решил яго по-разрабатывать ещё чуть-чуть( Ну бзик у меня такой -- если кто сделал Яааа тоже ххааааччууууу!! ). В общем тупил я долго( даже изучил Пайпы в Delphi..:)). Но, в конце концов, до меня снизошло вдохновение и понял, что ощибка в способе принимания данных и типах отсылаемых данных.. Итого, смотрите сами:
program my_auth;
var
f:text;
stop:boolean;
auth,s,Passw:string;
begin
assign(f,ParamStr(ParamCount()));
while TRUE do begin
read(Passw);
auth:='ERR';
stop:=FALSE;
reset(f);
while not(EOF(f)) and (stop<>TRUE) do begin //будет продолжаться пока пароли
readln(f,s); //не совпадут(stop = TRUE), или файл
//с паролями не кончится
if not(s[1]='#') then
if (s=Passw) then //если пароль с логином совпал, то
begin // stop присваевается TRUE
auth:='OK';
stop:=TRUE;
end;
end;
close(f);
writeln(PAnsiChar(auth)); //Отправляемая строка должна быть PAnsiChar
end;
end.
Сижу сейчас под Squid'ом... Красоотааа...Поисковики после второго захода кажутся локально установленными php...Весчь короче, пора пересаживать пользователей на Squid..Хе-хе...
Только вот осталось научиться ограничивать пользователей в количестве скаченной порнографии( наивные, думают я не знаю ^>^)..Но да это другое дело...
Monster_C, ещё раз спасибо и мой респект..