Obtener serial físico de disco duro

[thecidmx]

saludos a todos espero q me puedan ayudar:
ya me crebe la cabesa y no se me ocurre nada , mi problema, es el siguiente, en mi empresa me pidieron que codifique ciertos datos del cliente, pero que se haga con una pass que el cliente no sepa cual es y que se genere en cada computadora., es decir que no se puedan leer en otra pc solo en la pc principal, como lo podria hacer

[Casimiro Notevi]

Recuerda poner títulos descriptivos a tus preguntas, gracias.

En cuanto a tu pregunta, no he entendido exactamente qué quieres hacer.

[thecidmx]

el cliente quiere un programa, que solo le permita ver unos ficheros en su pc, y q si alguien se lleva la aplicacion y los archivos no pueda verlos, es necesario encriptarlos, pero el cliente quiere q la clave la genere dinamicamente por computadora, haci no hay forma q el que obtenga el ejecutable obtenga la clave. pero no se el codigo de generacion de hardawareid o algo q nunca cambie en la pc aunque se formatee

[[duilioisola]]

Algoritmos para cifrar hay muchos... supongo que una pequeña búsqueda en Google / Wikipedia, etc. te podrá ayudar.

El problema está en obtener una clave y que esta no cambie en el mismo ordenador...
Puedes probar con el número de serie del disco duro, pero puede que cambie el disco duro
Puedes probar con el número MAC de la tarjeta de red, pero que pasa si cambia la tarjeta e red

Puedes guardar la clave en el registro, pero si formatea deberás primero hacer una copia de esta clave.

Si instalas un servidor web en tus instalaciones, podrías crear un servicio que pida Nro. de serie del Disco Duro + MAC de la tarjeta de red y devuelva la clave para que tu aplicación funcione.
Si el cliente modifica uno de estos dos elementos, deberás actualizar estos datos en tu servidor.
El problema es si tiene que funcionar sin estar conectado a internet.

[thecidmx]

la encriptacion ya la tengo, lo que no tengo es como obtener el numero serial fisico del disco, x q si el usuario cambiara el disco duro lo puedo obtener de el mismo disco duro.

[ecfisa]

Hola thecidmx.

Código Delphi [-]
function GetSerialDisk(Drive: Char): String;
var
  MaxFileNameLen, VFlags, SNum: DWORD;
begin
  if GetVolumeInformation(PChar(Drive + ':\'), nil, 0, @SNum, MaxFileNameLen, VFlags, nil, 0) then
    Result := IntToHex(SNum,8)
  else
    Result := '';
end;

Llamada de ejemplo:

Código Delphi [-]
  ShowMessage(GetSerialDisk('C'));

Saludos.