Fórum Criptografia (Proteção do Sistema) #132055

02/02/2003

0

Delphi

Olá Amigos,

Gostaria de Saber como Criptografar um Edit.

1º Capturar o Nº do HD.
2º Mostrar ao Usuário o Número do HD
3º Ai o Cliente liga para a Empresa que lhe forneceu o Software
4º Passa o Nº do HD para o Atendente
5º O Atendente Calcula um Código de Registro e Repassa ao Cliente a ´Número Serial´ do Sistema...

Complicado mas é de Estrema necessidade

Agradeço se Alguém Poder me Ajudar


Djonatas

Djonatas

Responder

Posts

02/02/2003

Anonymous

Olá Amigos, Gostaria de Saber como Criptografar um Edit. 1º Capturar o Nº do HD. 2º Mostrar ao Usuário o Número do HD 3º Ai o Cliente liga para a Empresa que lhe forneceu o Software 4º Passa o Nº do HD para o Atendente 5º O Atendente Calcula um Código de Registro e Repassa ao Cliente a ´Número Serial´ do Sistema... Complicado mas é de Estrema necessidade Agradeço se Alguém Poder me Ajudar


Para saber o serial do HD, utilize esta função


Function SerialNum(FDrive:String) :String;
Var
Serial:DWord;
DirLen,Flags: DWord;
DLabel : Array[0..11] of Char;
begin
Try GetVolumeInformation(PChar(FDrive+´:\´),dLabel,12,@Serial,DirLen,Flags,nil,0);
Result := IntToHex(Serial,8); 
Except Result :=´´;
end;
end;



Responder

Gostei + 0

02/02/2003

Skaarj

Cara eu tenho algo parecido..
Ele pega o serial do hd+o nome da empresa, criptografa e gera uma chave, vlta pro programador ess´s dados e são concatenados com o numero d série definido na caixa do software..
Acho q dvo tr os fontes aqi, se qzer..


Responder

Gostei + 0

16/07/2014

Mateus Silva

manda os fontes Skaarj
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar