Obtener serial físico de disco duro
 

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

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

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

encriptar unos archivos
 

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

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.

tendran algun codigo a la mano.
 

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.

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.

Hola compañero!

Existe una función en la API de Windows que encripta un stream, la encriptación es única para la PC o la cuenta de usuario actual. Lamentablemente no recuerdo el nombre de la API. Solo sé que no está implementada por [EDITO] mi respuesta no se envió completa [/EDITO]

He encontrado el nombre de la función de la API. Esta se llama CryptProtectData. En mi anterior respuesta había dicho que el encabezado de esta función no está implementado en Delphi. Tendrás que hacer su traducción si te interesa trabajar con ella.

También puedes leer sobre las APIs de encriptación ofrecidas por el SDK de Windows en este enlace.

Saludos,
Chris

¿Qué pasa si el usuario pierde el disco duro? Me refiero a si se estropea físicamente.
No podrás obtener el nro. de serie con lo que no podrás volver a leer los archivos que tengas guardados en algún backup.

lo resolvi muchas gracias.
 

no entiendo como se puede estropear el numero físico de la etiqueta del disco duro, la otra forma q encontre el el numero serial de instalación de windows, el cual se guarda en la api, y gracias efisa por el codigo, pero ese debuelve el numero serie logico de la unidad, no el físico, pero si funciona bien, para proteccion de algun software, y gracias chris, por la libreria, ya la habia oido habla, pero tampoco me acordaba, la voy a implementar la dll, en delphi.

acabo de subir el ejemplo de la serial a la ftp de clubdelphi, pero cometi un error y lo puse en el directorio raíz, le pido de la manera mas atenta lo muevan a la carpeta de varios.

se llama
 

el archivo se llama serial windows y office1.rar ahi obtenemos el numero serial de windows y de office, espero le sirva a otros

Está en delphi/ejemplos, exactamente aquí.