>>
>>Спасибо за ответ:)
>>
>>Это c:/squid/libexec/ncsa_auth.exe c:/squid/etc/htpasswd точно есть htpasswd взял от "индейца" под win. К
>>стати не подскажиш где можно почитать каким макаром работает ncsa_auth.exe возможно
>>и мне будет проще написть скрипт, а то уже две недели
>>долбаюсь с этим.
>
>
>ncsa_auth.exe - все это мутно.. забей на него.
>В конфиг ляпаешь такую строку:
>auth_param basic program c:/winnt/system32/cscript.exe //B //h:cscript //nologo C:/Squid/libexec/auth.vbs C:/Squid/etc/auth.conf
>
>auth.vbs:
>
>Set Arg=WScript.Arguments
>Set FSO=CreateObject("Scripting.FileSystemObject")
>FileName=Arg(0)
>I=0
>While I=0
> StringPass=WScript.StdIn.ReadLine
> Reply="ERR"
> Set File=FSO.OpenTextFile(FileName,1)
> Stoped=0
> While File.AtEndOfStream=False And Stoped=0
>  StringFile=File.ReadLine
>  If MID(StringFile,1,1)<>"#" Then
>   If StringFile=StringPass Then
>    Reply="OK"
>    Stoped=1
>   End If
>  End If
> Wend
> WScript.StdOut.WriteLine Reply
> File.Close
>Wend
>
>--
>auth.conf:
>
># test
>admin govno
>#e-lina
>e-lina dura
>
>--
>и все в шоколаде...

Здравствуйте, недавно поставил SquidNT26 на windows server 2003 sp1. Долго промучился и Вот наконец-то заставил его включаться\выключаться когда я захочу... Проблема в авторизации...Посидев на форуме увидел сообщение выше и захотел сделать аналогично в Delphi (потому как Basic скрипты не знаю) получилось вот что:

program my_auth;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
f,g:text;
stop:integer;
s,Passw,auth:string;

begin
  { TODO -oUser -cConsole Main : Insert code here }

//ParamCount() - ÷èñëî ïàðàìåòðîâ.
//ParamStr(0) - ïîëíîå èìÿ çàïóùåíîé ïðîãðàììû ñ ïóòåì.
//ParamStr(1 - ParamCount()) - ðàñïàðñåíûå ïàðàìåòðû.
while 1=1 do begin
assign(f,ParamStr(ParamCount()));
readln(Passw);
stop:=0;
auth:='ERR';
reset(f);
while not(EOF(f)) and (stop<>1) do begin
readln(f,s);
if not(s[1]='#') then
begin
  if s=Passw then
  begin
   auth:='OK';
   stop:=1;
  end;
end;
end;
close(f);
write(auth);
end;
end.

Но, зараза, не как не хочет работать (браузер клиента долго что-то открывает(больше 15 мин больше я не ждал)) может, быть вы сможете мне помочь чем-нибудь?
Вот squid.conf:

http_port 8081
icp_port 0
htcp_port 0
hierarchy_stoplist cgi-bin ?
acl QUERY urlpath_regex cgi-bin \?
cache deny QUERY
acl apache rep_header Server ^Apache
broken_vary_encoding allow apache
cache_mem 80 MB
cache_dir ufs C:/squid/var/cache 128 16 256
maximum_object_size 1024 KB
access_log c:/squid/var/logs/access.log squid
unlinkd_program C:\squid\libexec\unlinkd.exe
authenticate_ttl 0 hour
auth_param basic program C:\\squid\\etc\\conf\\my_auth.exe C:\\squid\\etc\\conf\\psd.conf
auth_param basic children 2
refresh_pattern ^ftp:        1440    20%    10080
refresh_pattern ^gopher:    1440    0%    1440
refresh_pattern .        0    20%    4320
acl allowed_hosts src 192.168.3.0/255.255.255.0
acl all src 0.0.0.0/0.0.0.0

# Users
acl allowed_users proxy_auth iliya
acl allowed_users proxy_auth admin
acl allowed_users proxy_auth lena
# zakon4ili delaTb
acl pass proxy_auth REQUIRED
#Pa3peIILaem
http_access allow allowed_users pass

acl PorNo url_regex -i c:/squid/etc/conf/porn.txt
acl manager proto cache_object
acl localhost src 127.0.0.1/255.255.255.255
acl to_localhost dst 127.0.0.0/8
acl SSL_ports  port 443 563     # SSL -- https??
acl Safe_ports port 443        # https
acl Safe_ports port 80        # http
acl Safe_ports port 21        # ftp
acl Safe_ports port 70        # gopher
acl Safe_ports port 210        # wais
acl Safe_ports port 1025-65535    # unregistered ports
acl Safe_ports port 280        # http-mgmt
acl Safe_ports port 488        # gss-http
acl Safe_ports port 591        # filemaker
acl Safe_ports port 777        # multiling http
acl CONNECT method CONNECT
http_access allow manager localhost
http_access deny manager
http_access deny !Safe_ports
http_access deny CONNECT !SSL_ports
http_access deny all
http_reply_access allow all
icp_access allow all
cache_effective_user Servak
visible_hostname serverint
unique_hostname serverint

NEED HHHEELLPP!!!