Restringuir el Acceso

The_Pretorian · #1 (**permalink**) 27/01/2006, 12:10

Como puedo utilizar este medio de validacion.

Muchs Gracias de antemano.
Atte
Jorge Diaz

ElAprendiz · #2 (**permalink**) 27/01/2006, 12:31

tienes que configurar el iis, deschekear acceso anonimo y crear cuentas de usuario.
http://www.elguille.info/colabora/pu...racion_IIS.htm

tammander · #3 (**permalink**) 27/01/2006, 12:33

Cita:

This script forces a password dialog box to appear by sending a "401 Not Authorized" status code if the user has not already logged in. To access the page, you must have a valid user account on the server.
This script forces a user to authenticate by using Basic Authentication. If you want to force a user to login using NT Challenge/Response Authentication, then replace the Response.AddHeader statement in the script with the following one:

Response.AddHeader "WWW-Authenticate","NTLM"

<%
authUser = TRIM( Request.ServerVariables( "AUTH_USER" ) )
IF authUser = "" THEN
Response.Status = "401 Not Authorized"
Response.AddHeader "WWW-Authenticate", "Basic Realm=""SUPEREXPERT"""
Response.End
END IF
%>
<html>
<head><title>Password Please</title></head>
<body>


Welcome <%=authUser%>!
 Feel free to view this page.


</body>
</html>

Hay mas:

http://www.asp101.com/articles/flicks/authtutorial.asp

Un saludo

tammander · #4 (**permalink**) 27/01/2006, 12:40

Otra Forma: (Planet Source Code)

Cita:

'**************************************
' Name: Complete working Basic Authentic
' ation
' Description:This code shows your visit
' ors the Basic Authentication dialog (or
' NT Login Dialog)
It also returns the password and the username
if you like it, please vote For this 16 year old programmer :o)
' By: Almar Joling
'
' Inputs:In the dialog the username and
' password (/and domain)
'
' Returns:The password and username give
' n by the visitors of your site
'
' Assumes:Paste it and run it. It does n
' ot verify any usernames or so.
'
' Side Effects:Protects your site :o))
'
'This code is copyrighted and has ' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=6300&lngWId=4 'for details. '**************************************

<%
Response.Buffer = True
Response.Clear
Dim Myname, MyPass
GetUser Myname, MyPass
Response.Write MyName & "->" & MyPass
if len(Myname) = 0 Then
Response.Status = "401 Unauthorized"
Response.AddHeader "WWW-Authenticate","BASIC Realm=enter your realm here"
Response.End
End if
Sub GetUser(LOGON_USER, LOGON_PASSWORD)
Dim UP, Pos, Auth
Auth = Request.ServerVariables("HTTP_AUTHORIZATION")
LOGON_USER = ""
LOGON_PASSWORD = ""
if LCase(Left(Auth, 5)) = "basic" Then
UP = Base64Decode(Mid(Auth, 7))
Pos = InStr(UP, ":")
if Pos > 1 Then
LOGON_USER = Left(UP, Pos - 1)
LOGON_PASSWORD = Mid(UP, Pos + 1)
End if
End if
End Sub
' Decodes a base-64 encoded string.
function Base64Decode(base64String)
Const Base64CodeBase = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvw xyz0123456789+/"
Dim dataLength, Out, groupBegin
dataLength = Len(base64String)
Out = ""
if dataLength Mod 4 <> 0 Then
Err.Raise 1, "Base64Decode", "Bad Base64 string."
Exit function
End if
' Now decode each group:
For groupBegin = 1 To dataLength Step 4
Dim numDataBytes, CharCounter, thisChar, thisData, groupData
' Each data group encodes up To 3 actual
' bytes.
numDataBytes = 3
groupData = 0
For CharCounter = 0 To 3
' Convert each charac
' ter into 6 bits of data, And add it To
' an integer For temporary storage. If a
' character is a '=', there
' is one fewer data byte. (There can onl
' y be a maximum of 2 '=' In
' the whole string.)
thisChar = Mid(base64String, groupBegin + CharCounter, 1)
if thisChar = "=" Then
numDataBytes = numDataBytes - 1
thisData = 0
Else
thisData = InStr(Base64CodeBase, thisChar) - 1
End if
if thisData=-1 Then
Err.Raise 2, "Base64Decode", "Bad character In Base64 string."
Exit function
End if
groupData = 64 * groupData + thisData
Next
' Convert 3-byte integer into up To 3 ch
' aracters
Dim OneChar
For CharCounter = 1 To numDataBytes
Select Case CharCounter
Case 1: OneChar = groupData \ 65536
Case 2: OneChar = (groupData And 65535) \ 256
Case 3: OneChar = (groupData And 255)
End Select
Out = Out & Chr(OneChar)
Next
Next
Base64Decode = Out
End function
%>

Un saludo