Möchte einen USB Stick als Key benutzen.
Damit sollen definitiv nicht die Goldreserven der USA geschützt werden, ist eigentlich mehr ne Spielerei.
Bei rs-basic habe ich folgendes gefunden:
Code: Alles auswählen
EnableExplicit
Procedure.s GetHDSerial(Drive.s)
Protected Serial.l
Protected Fixed.s = Left(Drive.s, 1) + ":\"
GetVolumeInformation_(@Fixed, #Null, #Null, @Serial, 0,#Null , #Null, #Null)
ProcedureReturn Hex(Serial.l)
EndProcedure
MessageRequester("","Seriennummer der Festplatte: "+GetHDSerial("f"),0)
Auch lässt sich der Stick mit jedem Kopierprogramm im RAW-Modus vervielfältigen.
Gibt es eine Möglichkeit die nicht veränderbare Herstellerseriennummer auszulesen?
Grüße