---
title: "Lösenordslumpare"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5999-lösenordslumpare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "skarbratt"
published: "2000-07-04T09:50:00.000Z"
updated: "2000-07-06T13:44:00.000Z"
replies: 10
views: 185
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/5999-lösenordslumpare"
---

# Lösenordslumpare

## #1 — skarbratt, 2000-07-04T09:50Z

Någon som sitter på ett skript som sluppar fram lösenord (och vill dela med sig)?

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

## #2 — Ricki, 2000-07-04T10:49Z

Ska lösenordet innehålla både siffror och bokstäver eller bara siffror eller bara bokstäver?

Jag kan nog pula ihop ett script

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

## #3 — rymdknark, 2000-07-04T11:01Z

typ ngt såhär:

```
<%
Randomize Timer
For i = 1 to 10
s = s & Chr(Int(Rnd * 25) + 65)
Next
Response.Write s
%>
```

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

## #4 — skarbratt, 2000-07-04T11:04Z

Det får gärna innehålla sifror också...

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

## #5 — skarbratt, 2000-07-04T11:14Z

Tack för hjälpen löste det på följande sätt:

\<%
'Börjar slumpfunktionen
Randomize Timer

'liten bokstav
s = s & LCASE(Chr(Int(Rnd \* 25) + 65))
'stor bokstav
s = s & Chr(Int(Rnd \* 25) + 65)
s = s & Chr(Int(Rnd \* 25) + 65)
'liten bokstav
s = s & LCASE(Chr(Int(Rnd \* 25) + 65))
'siffra
s = s & LEFT(Int(Rnd \* 25),1)
s = s & LEFT(Int(Rnd \* 25),1)
'liten bokstav
s = s & LCASE(Chr(Int(Rnd \* 25) + 65))
s = s & LCASE(Chr(Int(Rnd \* 25) + 65))

'Skriver ut resultatet
Response.Write s
%\>

(Och det funkar), men finns det något smartare sätt?

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

## #6 — hawkman, 2000-07-04T11:31Z

För att bygga på koden lite :)

```
<%
Randomize Timer

For i = 1 to 6
if t < 5 then 
  'Stor bokstav
  s = s & Chr(Int(Rnd * 25) + 65)
elseif 5<t and t < 10 then
  'Siffra
  s = s & (Int(Rnd * 25) Mod 10)
else
  'liten bokstav
  s = s & LCASE(Chr(Int(Rnd * 25) + 65))
end if
t = (Int(Rnd * 50) Mod 15)
Next
Response.Write s
%>
```

Då får man ett slumpartat utseende på lösenordet med stora och små bokstäver om vartannat...

/Håkan

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

## #7 — toha, 2000-07-04T15:15Z

Vad sägs om den här. Den borde fungera:

```

Function getRandomPassword(ByVal iNoChars)

	Dim sChars, sPassword
	Dim i
	
	Randomize(Timer())
	sChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
	
	For i = 1 to iNoChars
		sPassword = sPassword & Mid(sChars, Rnd * Len(sChars) + 1, 1)
	Next

	getRandomPassword = sPassword

End Function

Response.Write getRandomPassword(10)
```

Då kan man ange antal tecken som den slumpade strängen skall innehålla och ange vilka tecken som den skall innehålla i funktionsvariabeln "sChars".

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

## #8 — skarbratt, 2000-07-06T07:37Z

Många nyttiga tips... Tack!

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

## #9 — Vide, 2000-07-06T07:42Z

En fråga:

Varför använder ni Timer överallt?

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

## #10 — hawkman, 2000-07-06T11:59Z

Timer används för att generera ett "frö" för slumptalsgenereringen. Om inte man gör det så blir det inte slumpmässigt eftersom slumptalsgeneratorn startar på samma tal...

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

## #11 — Vide, 2000-07-06T13:44Z

Hur kan det starta på samma tal om man bara använder Randomize? den tar ju sina nummer ifrån systemklockan... och det är inte ofta ett tal blir lika där...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/5999-lösenordslumpare