Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Tips & tricks

#2327 - Lösenordsgenerator

Postat 2008-02-20 07:23:43 av Christoffer Liljekvist i Kategori Programmering, C#, Kommandon med 0 Kommentarer

<%
Function printPassword()

'Declare some variables

Dim password, chars, i, arr, rand, startchars, u, arrstart, randst, endchars, endarr, d, randend, pwdstart, pwdend

'Setup an charlibrary to use when password is beeing generarted

startchars = "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"
endchars = "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"
chars = "A a B b C c D d E e f G g H h I i J j k L l m N n O o P p q r S s T t U u V v w Y y Z z 0 1 2 3 4 5 6 7 8 9 ! @ £ # % / * - + ?"

'Creates an array with all letters from the library
arrstart = Split(startchars," ")
arr = Split(chars," ")
endarr = Split(endchars," ")

'Start to generate a randomized password
For u = 1 To 2
Randomize

randst = int(rnd*25)+1

pwdstart = pwdstart & arrstart(randst)

Next

For i = 1 To 10

Randomize

rand = int(rnd*63)+1

password = password & arr(rand)

Next

For d = 1 To 2
Randomize

randend = int(rnd*25)+1

pwdend = pwdend & endarr(randend)
Next

'Merge all generated parts of the password, printPassword = (pwdstart)(password)(pwdend)

printPassword = pwdstart + password + pwdend

End Function

'Prints out the new generated password

Response.Write printPassword()
%>

Sample:
Size:

Nyligen

  • 22:00 Reinigungshilfe 2022
  • 22:03 Poland marketplace
  • 12:31 ARE ETHICAL HACKERS IN DEMAND?
  • 13:51 Is it worth to learn Linux?
  • 19:53 Funktioner
  • 14:07 Why to Pick SevenMentror To Learn
  • 10:46 Why to Pick SevenMentror To Learn
  • 16:11 Utvinning av kryptovaluta

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 533 403
27 851
260 097
254
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies