Fórum Proteção do Programa... #140869
25/02/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
25/02/2003
Okama
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:
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:
Responder
Gostei + 0
25/02/2003
Anonymous
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
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)