AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

USB Stick als HardwareKey

Ein Thema von hm988 · begonnen am 18. Okt 2003 · letzter Beitrag vom 20. Okt 2003
Antwort Antwort
Benutzerbild von hm988
hm988

Registriert seit: 20. Dez 2002
132 Beiträge
 
Delphi 7 Personal
 
#1

USB Stick als HardwareKey

  Alt 18. Okt 2003, 17:41
Delphi-Quellcode:
function KeyDrivesExists : DWORD;
var Z : Integer;
    pdwSerNum, dwMaxFNLen, dwFSysFlags : DWORD;
    pszVolumeLabel : array[0..11] of char;
    pszFSysName : array[0..64] of char;
begin
 for Z := 0 to 25 do begin
   if GetLogicalDrives and (1 shl Z) <> 0 then
   begin
     if GetDriveType(PChar(Chr(Z + Ord('A')) + ':\'))
       =DRIVE_REMOVABLE then
         if GetVolumeInformation(
           (PChar(Chr(Z + Ord('A')) + ':\')), @pszVolumeLabel[0], SizeOf(pszVolumeLabel),
           @pdwSerNum, dwMaxFNLen, dwFSysFlags,
           @pszFSysName, SizeOf(pszFSysName) )

         then Result := pdwSerNum;
   end;
 end;
end;
hallo,
mit dieser Funktion will ich meinen USB Stick, oder sicher auch andere als Hardwarekey benutzen indem ich die Seriennummer auslese.
klar also die Abfrage welche SN ok ist wird später abgefragt, meine Frage hat noch jemand einen Verbesserungsvorschlag und wieso bringt
mir der Compiler immer Die Warnung "Rückgabewert der Funktion 'KeyDrivesExists' könnte undefiniert sein" ??
Grüsse, Steven
  Mit Zitat antworten Zitat
Tom

Registriert seit: 8. Jan 2003
318 Beiträge
 
RAD-Studio 2009 Pro
 
#2

Re: USB Stick als HardwareKey

  Alt 18. Okt 2003, 18:01
Result wird nur innerhalb einer IF-Abfrage zugewiesen.
  Mit Zitat antworten Zitat
Benutzerbild von phlux
phlux

Registriert seit: 4. Nov 2002
Ort: Witten
1.335 Beiträge
 
Delphi 6 Personal
 
#3

Re: USB Stick als HardwareKey

  Alt 18. Okt 2003, 18:37
Man sollte bei Funktionen am Anfang des Aufrufs erst einmal Result "initialisieren" heißt einen Wert zuweisen, dann kommt sowas auch nicht mehr vor
Christian "phlux" Arndt
  Mit Zitat antworten Zitat
Fridolin4711
(Gast)

n/a Beiträge
 
#4

Re: USB Stick als HardwareKey

  Alt 20. Okt 2003, 19:08
Wie soll der code dan aussehen, erklärm mal.
  Mit Zitat antworten Zitat
Benutzerbild von hm988
hm988

Registriert seit: 20. Dez 2002
132 Beiträge
 
Delphi 7 Personal
 
#5

Re: USB Stick als HardwareKey

  Alt 20. Okt 2003, 19:14
hallo,

einfach nach begin, aber ncoh vor der schleifenbegin (For ...)

Result := 0; einfügen dann gehts
Grüsse, Steven
  Mit Zitat antworten Zitat
Benutzerbild von negaH
negaH

Registriert seit: 25. Jun 2003
Ort: Thüringen
2.950 Beiträge
 
#6

Re: USB Stick als HardwareKey

  Alt 20. Okt 2003, 20:19
GetVolumeInformation() ist die Serial Nummer eine logischen Partition. Sie kann jederzeit gelesen und auch geändert werden. D.h. weiß ich das dein Schutz darauf basiert so reicht es wenn ich diese Serialnummer in Erfahrung bringe. Nun kann ich mein eigenes Medium, wie USB memorystic aber auch Compact Flash, Secure Digital uvm., benutzen. Ich ändere einfach deren logische Serialnummer auf Deine und habe dann sofort Zugriff. Also, ziemlich schlechte Idee, besonders weil diese Serial gerade mal 4 Bytes groß ist.
Dann wäre es schon besser einfach eine Datei in der Root abzulegen, die aus z.B. 256 Bytes Zufall besteht. Diese Datei, bzw. deren Inhalt, kann dann als Passwort zur Entschlüsslung externe Daten dienen. Dies beseitigt aber nicht das eigentliche Problem, das wenn ich an deinen Stick komme, dann auch Vollzugriff bekomme.

Gruß hagen
  Mit Zitat antworten Zitat
Benutzerbild von hm988
hm988

Registriert seit: 20. Dez 2002
132 Beiträge
 
Delphi 7 Personal
 
#7

Re: USB Stick als HardwareKey

  Alt 20. Okt 2003, 20:35
mhh

das wusste ich nicht dass man die ändern kann dass ist ein guter einwand
der mir wohl viele sorgen bereitet, naja muss ich mir wohl was neues ausdenken
oder dein vorschlag hört sich ja auch nicht schlecht an mal sehn
Grüsse, Steven
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:38 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz