So hab mal wieder ne kleine UDF geschrieben.vll kann einer die brauchen.Sie ist nützlich für Setups mit Seriennummerüberprüfung usw.
Ja hoffe sie gefällt euch bin offen für Verbesserungsvorschläge und hoffe auf feedback.Wer Ideen zur Verbesserung hat her damit
Spoiler anzeigen
#include <Array.au3>
#include <File.au3>
;===========================================================================================================================================
;Name:_KeyTest
;Beschreibung: Überprüft ob ein Code in einer Datei vorhanden ist.
;Parameter: $key: Der Code der überprüft werden soll.
; $f_name: Datei in der Die Codeliste abgespeichert ist.
;Return Values: Falls vorhanden : 1
; Ansonsten : 0
;Author:nof@ker
;===========================================================================================================================================
Func _KeyTest($key,$f_name)
$s_keys=StringSplit(FileRead($f_name),";")
_ArrayDelete($s_keys,0)
$Same=False
For $i=0 to Ubound($s_keys,1)-1
If $s_keys[$i]=$key Then
$Same=True
EndIf
Next
If $Same=True Then
Return 1
Else
Return 0
EndIf
EndFunc
;===========================================================================================================================================
;Name:_SetupKeysGen
;Beschreibung: Generiert eine bestimmte Anzahl 20-stelliger zufälliger Codes die in einer Datei abgespeichert werden.
;Parameter: $s_count: Anzahl der Codes.
; $f_name: Datei in der die Codes abgespeichert werden sollen.
;Return Values: Bei Erfolg : 1
; Ansonsten : 0
;Author:nof@ker
;===========================================================================================================================================
Func _SetupKeysGen($s_count,$f_name)
_FileCreate($f_name)
For $j=1 to $s_count
For $i=0 to 20
$G=_Gen()
FileWrite($f_name,$G)
Next
If $j <> $s_count Then
FileWrite($f_name,";")
EndIf
Next
If FileRead($f_name) <> "" Then
Return 1
Else
Return 0
EndIf
EndFunc
;===========================================================================================================================================
;Name:_KeyGen
;Beschreibung: Generiert einen zufälligen 20-stelligen Code.
;Parameter: -
;Return Values: 20-stelliger Code
;Author:nof@ker
;===========================================================================================================================================
Func _KeyGen()
Dim $G
For $i=0 to 20
$G &= _Gen()
Next
Return $G
EndFunc
;===========================================================================================================================================
;Name:_Gen
;Beschreibung: Genieriert eine Nummer oder einen Buchstaben (Zufall)
;Parameter: -
;Return Values: Nummer oder Buchstabe
;Author:nof@ker
;===========================================================================================================================================
Func _Gen()
If Random(1,2,1)=1 Then
Return Random(1,9,1)
Else
Return Chr(Random(Asc("A"),Asc("Z"),1))
EndIf
EndFunc