codigo de seguridad digital

[Willo]

Hola, existe algun algoritmo, componente (free) o algo que me permita generar una cadena de caracteres aleatoria-irrepetible en delphi 7?

necesito algo similar a los nombres de las carpetas que genera windows para sus datos :

C:\Documents and Settings\Arturo\Local Settings\Application Data\Identities\{85B94AD4-5297-4D0E-BE2E-40086DFFF154}


Gracias de antemano.

Saludos!

[dec]

Hola,

Puedes generar, precisamente, GUIDs (Globally Unique Identifier) en tiempo de ejecución:

Código Delphi [-]
uses
  ComObj, ActiveX;

function CreateGuid: string;
var
  ID: TGUID;
begin
  Result := '';
  if CoCreateGuid(ID) = S_OK then
    Result := GUIDToString(ID);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := CreateGuid;
  // or: Edit1.Text := CreateClassID
end;

El código anterior lo he recogido de un "tip" de Torry's Delphi Pages.

Nota: en tiempo de diseño en el editor de Delphi puedes generar GUIDs usando las teclas: CTRL + SHIFT + G