Sistema de autenticação por PHP e HDSerial

Postado Dezembro 7, 2012 12 anos

Bom antes de tudo vou explica como funciona, postarei scripts porem postarei tambem a source no fim do tutorial.

Seguinte antes de tudo coloque as variaveis globais ficando:

var

Form1: TForm1;

Link,Guid: string;

ListaGuid:TStringList;[/php]

[color=#141414][font=Tahoma, 'Times New Roman', Times, serif][size=3][background=rgb(251, 251, 251)]Depois declare essa função:[/background][/size][/font][/color]

[php]
function SerialNum() :String;
var
Serial: DWord;
DirLen, Flags: DWord;
DLabel: Array[0..11]of Char;
begin
try
GetVolumeInformation(PChar('C:\'),dlabel,12,@Serial,DirLen,Flags,nil,0);
Result :=IntToHex(Serial,8);
Except
Result :='';
end;
end;

Bom a função de Pegar serial não é de minha autoria apenas a ajustei.

Adicione um button e adicione




GuidText.SetFocus;

GuidText.CopyToClipboard;

ShowMessage('Copiado para Ctrl+C');


[/php]

[color=#141414][font=Tahoma, 'Times New Roman', Times, serif][size=3][background=rgb(251, 251, 251)]Adicione um Edit e troque o nome para GuidText[/background][/size][/font][/color]

[color=#141414][font=Tahoma, 'Times New Roman', Times, serif][size=3][background=rgb(251, 251, 251)]No Oncreate do form coloque:[/background][/size][/font][/color]

[php]link:='http://seusite.com/'; // aqui colocara o link do seu site
Guid:=SerialNum;
Guid:=GetDados.Get(link+'Encryptar.php?valor='+Guid);
GuidText.Text:=Guid;
ListaGuid := TStringList.Create;
ListaGuid.Text:=GetDados.Get(link+'listarguid.php');
AnalisarGuid.Enabled:=true;

Adicione um timer e coloque:



var

i:integer;

begin

for i := 0 to ListaGuid.Count-1 do begin

if ListaGuid.Strings[i] = Guid then begin

AnalisarGuid.Enabled:=false;

ShowMessage('Programa liberado');

exit;

end;

if i = ListaGuid.Count-1 then begin

AnalisarGuid.Enabled:=false;

ShowMessage('Você não está registrado!');

end;

end;[/php]

[color=#141414][font=Tahoma, 'Times New Roman', Times, serif][size=3][background=rgb(251, 251, 251)]OBS: Não necessariamente será preciso ficar em um timer eu coloquei porque eu estava com preguiça.[/background][/size][/font][/color]

[color=#141414][font=Tahoma, 'Times New Roman', Times, serif][size=3][background=rgb(251, 251, 251)]se colocar em um timer mude o nome dele para AnalisarGuid e troque o Interval para 1[/background][/size][/font][/color]

[color=#141414][font=Tahoma, 'Times New Roman', Times, serif][size=3][u][background=rgb(251, 251, 251)]Scan[/background][/u][/size][/font][/color][color=#141414][font=Tahoma, 'Times New Roman', Times, serif][size=3][background=rgb(251, 251, 251)]: [/background][/size][/font][/color][color=#FF0000][font=Tahoma, 'Times New Roman', Times, serif][size=3][background=rgb(251, 251, 251)]não necessario não contem arquivo .exe apenas PHP, Source Delphi[/background][/size][/font][/color]

[color=#141414][font=Tahoma, 'Times New Roman', Times, serif][size=3][background=rgb(251, 251, 251)]Creditos:[/background][/size][/font][/color]

[color=#141414][font=Tahoma, 'Times New Roman', Times, serif][size=3][u][background=rgb(251, 251, 251)][b]Bruninhobk ~ [/b][/background][/u][/size][/font][/color]

[font=Tahoma, Times New Roman, Times, serif][color=#141414][size=3][b][u]JamersRodrigues[/u][/b][/size][/color][/font]

[color=#141414][font=Tahoma, 'Times New Roman', Times, serif][size=3][background=rgb(251, 251, 251)]Autor do Codigo de pegar Serial é desconhecido.[/background][/size][/font][/color]

Editado Dezembro 7, 2012 12 anos por Jamers Rodrigues (veja o histórico de edições)

~Charlie Brown Jr

Citar

Mention