---
title: "Usernamegenerator"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/42903-usernamegenerator"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "saw"
published: "2002-05-02T07:05:28.000Z"
updated: "2002-05-02T09:03:07.000Z"
replies: 5
views: 273
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/42903-usernamegenerator"
---

# Usernamegenerator

## #1 — saw, 2002-05-02T07:05Z

Jag står i begrepp att lämmna ut ett antal användarnamn och lösenord till ett antall personer.
När det gäller lösenord, så har jag en generator, men när det gäller användarnamn så tänkte jag så här:

Personen kommer ifrån en förening(annars har han inte tillträde).
Då har vi två variabler, dels föreningen och dels namnet.

sForening=förening
sNamn=namn
sAnvandarnamn=sForening +sNamn

I detta har jag då fåt en ganska så unik kombination av bokstäver.

Nu ville jag plocka ut dessa bokstäver, en efter en, och nu blir jag mera osäker.

Dim i,arr
For i =1 TO LEN(sAnvandarnamn)
arr=mid(sAnvandarnamn,i,1)
Next

Här borde jag ju fått en array som består av en massa bokstäver.
Nu skulle jag vilja slumpa ut ifrån denna array, och ha bara sex tecken.
Hur gör jag då?(Jag känner till randomize, men inte hur jag kopplar ihop den med arrayen).
Känns denna uppbyggnad vetig?

 :q

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

## #2 — cyprys, 2002-05-02T07:19Z

Det är ju ganska enkelt egentligen.
Få se opm du får lite tips från en liknande funktion jag gjorde.
\*Egentligen ska man lägga till Versaler och siffror också ur säkerhetssynpunkt. \*

```
arr = array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
for i = 1 to 8
		randomize
		tal1 = int(rnd * 26)
		user = user & arr(tal1)
	next
```

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

## #3 — saw, 2002-05-02T07:58Z

Ok, det är ju inte ointressant, men hur får jag fram usernamnet??
En fråga till i detta sammanhanget. Jag hade tänkt att "stå kvar" på samma sida hela tiden och bara ha en knapp att trycka på för att få fram usernamnet.

Jag funderar på ren VB-script.
\<script language=vbscript\>
Eftersom jag inte får anfända mig av action(det blir ju fel för jag står ju redan på en sida. Hur gör jag med submitten?

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

## #4 — cyprys, 2002-05-02T08:12Z

Ok. Om vi forsätter på din del där uppe då.

Dim i,arr 
For i =1 TO LEN(sAnvandarnamn) 
arr=mid(sAnvandarnamn,i,1) 
Next 

for y= 1 to 7
	randomize
	tal1 = int(rnd \* ubound(arr))
	user = user & arr(tal1)
next

Jag vet inte riktigt om det är såhär du menar men...

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

## #5 — Eclipse, 2002-05-02T08:28Z

Man kan använda ASCII koden av varje bokstav. I min Password generator används enbart versaler:

		' ## PASSWORD GENERATOR
		Randomize ' Initialize random-number generator.
		DO UNTIL i = 8
			x_PW = x_PW & chr((25 \* Rnd) + 65)
			i = i + 1
		LOOP
\---
Ett annat alternativ som kanske passar ditt projekt bättre:

sAnvandarnamn= left(sForening, 4) & "-" & left(sNamn,2) & left(sEfternamn, 2)

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

## #6 — saw, 2002-05-02T09:03Z

Helt underbart, tack för all hjälp
 :e

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/42903-usernamegenerator