Исходное сообщение
"Прблемы со SquidNT" Отправлено NekroMen, 31-Мрт-07 17:29
УУУУУРРРРРРАААААА!!!! Есть хорошая новость последние несколько дней, были чуть менее напряжёнными чем предыдушие и я, вспомнив про клиента авторизации решил яго по-разрабатывать ещё чуть-чуть( Ну бзик у меня такой -- если кто сделал Яааа тоже ххааааччууууу!! ). В общем тупил я долго( даже изучил Пайпы в 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, ещё раз спасибо и мой респект..