---
title: "Säker inloggning på intranet"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/54734-säker-inloggning-på-intranet"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bire"
published: "2002-10-01T05:50:13.000Z"
updated: "2002-10-21T22:23:02.000Z"
replies: 8
views: 566
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/54734-säker-inloggning-på-intranet"
---

# Säker inloggning på intranet

## #1 — Bire, 2002-10-01T05:50Z

Har inte den blekaste om detta går att ordna med asp på en win 2000 server...

Kolla: <http://www.driverguide.com/guide/intro.htm>
Den inloggningen är jag ute efter... Alltså en popup...

Går det & isf hur? :)

Permalänk: https://www.webforum.nu/p/54734

## #2 — Jesper T, 2002-10-01T05:57Z

```

<% 
'Av Gunnar Liljas, 2001 - [email]gunnar@leon.se[/email] 
'Ovanstående rad ska vara kvar, om du använder skriptet 
'Funktionen CheckUser byts ut mot godtycklig användarkoll, och självklart kan man kolla något annat än Session("UserID") 

DoAuth 

'Här fortsätter sidan, efter att man blivit godkänd 

Sub DoAuth 
if isempty(Session("UserID")) then 
strAuth=request.servervariables("HTTP_AUTHORIZATION") 
if len(strAuth)>7 then 
if lcase(left(strAuth,5))="basic" then 
strAuth=mid(strAuth,7) 
strAuth=Base64Decode(strAuth) 
arrLogin=split(strAuth,":") 
strUser=arrLogin(0) 
strPass=arrLogin(1) 
if CheckUser(strUser,strPass) then 
exit sub 
end if 
end if 
end if 

NoAuth 
end if 
End Sub 

Function CheckUser(username,password) 
if username="admin" and password="admin" then 
Session("UserID")=1 
CheckUser=true 
end if 
End Function 

Sub NoAuth 
Response.Status = "401 Unauthorized" 
Response.AddHeader "WWW-Authenticate","BASIC Realm=Min skyddade zon" 
Response.Write "<B>Fy skäms!</B>" 
Response.End 
End Sub 

Function Base64Decode(inString) 
dim strOutput,intPos,intCharPos,intBytes,intTmpPos,intTmp,strCha
r 
CONST Base64Chars = " ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567
89+/" 
if (Len(inString) mod 4)<>0 then exit function 
for intPos=1 to Len(inString) step 4 
intBytes=3 
intTmp=0 
for intCharPos=0 to 3 
if mid(inString, intPos + intCharPos, 1) = "=" then 
intBytes=intBytes-1 
intTmpPos=0 
else 
intTmpPos=InStr(Base64Chars, Mid(inString, intPos + intCharPos, 1)) - 1 
if intTmpPos=-1 then exit function 
end if 
intTmp=64*intTmp+intTmpPos 
next 
for intCharPos=1 to intBytes 
select case intCharPos 
case 1: 
strOutput=strOutput & chr(intTmp \ 65536) 
case 2: 
strOutput=strOutput & chr((intTmp and 65535) \ 256) 
case 3: 
strOutput=strOutput & chr(intTmp and 255) 
end select 
next 
next 
Base64Decode = strOutput 
End Function 

%>
```

Permalänk: https://www.webforum.nu/p/804245

## #3 — Jesper T, 2002-10-01T05:58Z

du behöver stänga av själva "authentication" i IIS:en för att den ska fungera, tyvärr.
annars hade det varit en utomordentlig kod!

Permalänk: https://www.webforum.nu/p/804247

## #4 — Bire, 2002-10-01T06:17Z

Hmm... hur stänger man det & vart?

Permalänk: https://www.webforum.nu/p/804250

## #5 — medialabs, 2002-10-01T07:52Z

<http://www.medialabs.nu/las.asp?id=8>

Permalänk: https://www.webforum.nu/p/804281

## #6 — Bire, 2002-10-01T07:54Z

Tnx! :)

Permalänk: https://www.webforum.nu/p/804282

## #7 — medialabs, 2002-10-01T13:35Z

np

Permalänk: https://www.webforum.nu/p/804524

## #8 — Jesper T, 2002-10-01T14:17Z

Är det så bra att slå av den igentligen, varför skall man då skydda sidan med citat "-Säker inloggning på intranet"???

Permalänk: https://www.webforum.nu/p/804558

## #9 — Poffe, 2002-10-21T22:23Z

har funderat på att använda det scriptet men är det verkligen så säkert?

nån som vet?

Permalänk: https://www.webforum.nu/p/829706

---

Tråden på webben: https://www.webforum.nu/amne/asp/54734-säker-inloggning-på-intranet