Proteção do Programa...

Delphi

25/02/2003

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


Anonymous

Anonymous

Curtidas 0

Respostas

Okama

Okama

25/02/2003

Function TFormMain.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;


Essa função pega o número Serial do Drive passado como parâmetro. O restante é usar a criatividade... :lol:


GOSTEI 0
Anonymous

Anonymous

25/02/2003

Caro Fábio....
Visite o site www.contrapirataria.hpg.com.br/index.htm
Lá vc tem um sistema para teste de proteção.
Não quero puxar a sardinha para o meu lado, mas o que vc quer fazer é muito fácil de hackear.
Baixe o programa que é mais ou menos o que vc quer...
Se tiver interesse entre em contato comigo.
periclesnetto@bol.com.br


GOSTEI 0
POSTAR