fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Passwortsicherheit bewerten (sehr sicher)

Uploader:	AndT
Datum/Zeit:	18.10.2007 21:01:27

Function PasswortDiagnose(Passwort as string ) as integer

    dim as integer chars(256)

    dim as string char

    dim as integer wertung

    for i as integer =1 to len(Passwort)

        char=mid(passwort,i,1)

        chars(asc(char))+=1

        if chars(asc(char))> 1 then wertung-=2 else wertung+=1

    next

    wertung+=len(passwort)/5

    if wertung < 0 then wertung = 0

    if wertung > 10 then wertung = 10

    function = wertung



end function



dim as string eng_passwort

Print "Passwort eingeben: ";

input eng_passwort

Print PasswortDiagnose(eng_passwort)

sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.