(PHP like) UniqueID

[Hroudtwolf]

Code updated For 5.20+

Hello,


This is the PureBasic variant of UniqueID. (But a little bit better )
It produce unique, unambiguous IDs for some uses.
In example... working with databases, spritelists, etc...


The function:

Code: Select all

Procedure.s CreateUniqueID(MaxLetters.l)
    If MaxLetters.l<=32 and MaxLetters.l>0
      PreID.s=Str(GetTickCount_())+Str(Random(99999))
      MD5String.s=MD5Fingerprint(@PreID.s, Len(PreID.s))
      UniqueID.s=Mid(MD5String.s,Random(32)-MaxLetters.l,MaxLetters.l)
      ProcedureReturn UniqueID.s
      Else
      ProcedureReturn "0"
   EndIf 
EndProcedure

Example:

Code: Select all

Debug CreateUniqueID(8)
Debug CreateUniqueID(10)
Debug CreateUniqueID(12)

[Trond]

You don't ensure it's unique, you simply output a random ID.

[Hroudtwolf]

The original php command is also based on random values.
Through the variety of possibilities, you can maintain its a unique output.

[Fred]

why not simply using an incrementing counter ?

[Hroudtwolf]

[edit]
There was an database error in forum
[/edit]

[Hroudtwolf]

'Cause my method makes UniqueID useful for more things.
You can use it as key for encrytion, as ID-Name for files etc....
The PHP command "UniqueID" does output similar strings.
That isn't my invention.

[Rings]

why not simply using an incrementing counter ?

the incremental counter is for posting only

[Hroudtwolf]

the incremental counter is for posting only

Best example