PureBoard

Code: Alles auswählen

EnableExplicit

Procedure CountDifferentCharacters(String$)
  Protected NewMap Characters()
  Protected a
  
  For a=1 To Len(String$)
    Characters(Mid(String$, a, 1)) = 1
  Next
  
  ProcedureReturn MapSize(Characters())
EndProcedure

Debug CountDifferentCharacters("Hallo")

Code: Alles auswählen

/**
 * Calculate a strength value from given password.
 * If Strength is > 30, the password is somehow safe!
 *
 * @param string Password
 * @returns int Strength
 */
function PassStrength(Password) {
    // length check
    var W = 0;
    var numCount = 0;
    W = (Password.length * Password.length) / 6;
    var numeric = !isNaN(parseFloat(Password[0])) && isFinite(Password[0]);
    if (numeric) { numCount = numCount + 1; }
    for (var i=1; i<Password.length; i++) {
        // if previous char was another one this is good, otherwise bad
        if (Password[i] != Password[i-1]) {
            W = W + 2;
        } else {
            W = W - 1;
        }
        // check, if previous char was other case the current (good)
        var upper =  (Password[i]   == Password[i].toUpperCase());
        var lower =  (Password[i]   == Password[i].toLowerCase());
        var pupper = (Password[i-1] == Password[i-1].toUpperCase());
        var plower = (Password[i-1] == Password[i-1].toLowerCase());

        // good if previous case is different than current
        if (upper != pupper || lower != plower) {
            W = W + 2;
        }

        // check if value is used multiple times
        var occurences = Password.split(Password[i]);
        if (occurences.length > 3) {
            W = W - 2;
        }

        // count number of numeric characters
        var numeric = !isNaN(parseFloat(Password[i])) && isFinite(Password[i]);
        if (numeric) { numCount = numCount + 1; }

    }
    // extra points if number of numeric characters is between 20 and 70 percent
    if (numCount > Password.length * 0.2 && numCount < Password.length * 0.7) {
        W = W + 5;
    }
    // not good if password is more than 70% numbers
    if (numCount > Password.length * 0.7) {
        W = W - 5;
    }

    // no negative results
    if (W < 0) { W = 0; }

    // return rounded result
    return Math.round(W);
}

Code: Alles auswählen

EnableExplicit

Define.s sPasswort = "OttosDoppeldeckerstürztab1988)"
Define.s sStore, sChar
Define.i i

For i = 1 To Len(sPasswort)
	sChar = Mid(sPasswort, i, 1)
	If FindString(sStore, sChar) = 0
		sStore + sChar
	EndIf
Next i

Debug "Anzahl verschiedener Zeichen: " + Str(Len(sStore))
Debug "Die Zeichen selbst: " + sStore

Code: Alles auswählen

[11:09:10] [Debug] Anzahl verschiedener Zeichen: 20
[11:09:10] [Debug] Die Zeichen selbst: OtosDpeldckrüzab198)
[11:09:10] Die Programmausführung ist abgeschlossen.