Zufälligen Token erstellen
Verfasst: 06.06.2011 16:27
-
shadow's Avatar hat geschrieben:
Wär vielleicht einer von euch lieb und sucht einen anderen Avatar aus? Ich muss jedesmal zweimal raufschauen, welcher User das überhaupt ist. Danke.cxAlex's Avatar hat geschrieben:
Code: Alles auswählen
#random_buffer = 64
Procedure.s GenerateToken()
Protected *Buffer = AllocateMemory(#random_buffer*3)
Protected Result$, length
If *Buffer And OpenCryptRandom()
CryptRandomData(*Buffer, #random_buffer)
length = Base64Encoder(*Buffer, #random_buffer, *Buffer+#random_buffer, #random_buffer*2)
Result$ = PeekS(*Buffer+#random_buffer, length)
FreeMemory(*Buffer)
CloseCryptRandom()
EndIf
ProcedureReturn Result$
EndProcedure
Debug GenerateToken()
Debug GenerateToken()
Debug GenerateToken()
Debug GenerateToken()
Das habe ich mich auch gefragt.freak hat geschrieben:Wo liegt der Sinn des Hashings und des Aufsplittens?
Inflationäres Posten von sinnlosem Code solcher Art macht die Tipps-und-Tricks-Abteilung wohl kaum wertvoller. "Austoben" kann man sich bei Bedarf auf der privaten Festplatte.cxAlex hat geschrieben:Naja, wie gesagt ich hab mich ausgetobt
Interessante "Logik".cxAlex hat geschrieben:Ich wollte das Ergebnis halt noch "schön" formatieren, und die Hash-Funktionen machen es auch IMHO nicht unsicherer. Und vor allem auch nicht wirklich viel langsamer da die CryptRandom() Funktionen den Löwenanteil der Zeit brauchen.