Tutorial: Como criar um sistema de segurança.

[Magnus97 2]

Olá galera hoje encinarei vocês criar um sistema de segurança para seus trainer evitando que os leechers copie ou altere alguma coisa e coloque os creditos deles, e também encinarei a chamar o **** de uma DLL.

 

Trainers em DLL

 

1º você precisara do delphi 7 "recomendado"

 

2º vai em: File>New>Other>DLL Wizard.

 

3º apague tudo e encira o seguite codigo:

 

library Project1;

 

 

uses

SysUtils,

windows,

Classes,

Unit1 in 'Unit1.pas' {Form1};

 

{$R *.res}

 

var

HProcess:THandle;

hId:Cardinal;

b:Boolean=False;

 

procedure mgns;

begin

Form1:=TForm1.Create(nil);

Form1.ShowModal;

end;

 

begin

HProcess:=OpenProcess(PROCESS_ALL_ACCESS,false,Get CurrentProcessID);

CreateRemoteThread(HProcess,nil,0,@mgns,@mgns,0,hI D);

end.

4º clique em New **** e adicione o seu conteúdo "ao seu gosto" depois salve e compile.

 

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

 

Sistema de Segurança por numero de HD

 

 

1º adicione as seguintes uses: IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,

IdHTTP, ExtCtrls, StdCtrls;

 

2º em baixo de:

var

Form1: TForm1;

 

e adicione : serial:string;

 

3º declare a seguinte function:

 

function SerialNum(FDrive:String) :String;

var

Serial: DWord;

DirLen, Flags: DWord;

D*****: Array[0..11]of Char;

begin

try

GetVolumeInformation(PChar(FDrive+':\'),d*****,12, @Serial,DirLen,Flags,nil,0);

Result :=IntToHex(Serial,8);

Except

Result :='';

end;

end;

 

4º no **** create adicione o seguinte codigo:

 

procedure TForm1.FormCreate(Sender: TObject);

begin

begin

serial:=SerialNum('C:');

memo1.lines.text:=IdHTTP1.Get('http://exemplo.com.br.seutxt.txt');

sleep(3000);

analise.enabled:=true;

end;

end;

5º adicione um timer e no ontimer renomeie para "Analise" e adicione o codigo:

 

procedure TForm1.AnaliseTimer(Sender: TObject);

var I:Integer;

Pid: dword;

begin

for I := 0 to Pred(Memo1.Lines.Count)do

if Memo1.Lines.Strings=Serial then begin

analise.Enabled:=false;

showmessage('Você está Registrado!');

close;

end;

if I = Memo1.Lines.Count then begin

analise.Enabled:=false;

showmessage('Você não é VIP!'+#13+'Seu Serial:'+serial);

edit1.text:=serial;

end;

end;

Esse sistema de segurança so libera quem esta registrado ou seja vc pega o serial da pessoa e coloca no txt e upa ele se ele estiver correto aparecera a mensagem Voce é VIP!

 

obs: em baixo de showmessage('Você está Registrado!'); coloquer form2.show; e mude o close; para break;

 

é necessario adicionar os seguintes componentes:

 

1 Memo

1 IdHTTP

1 Timer

 

 

 

Pronto galerá é isso ai! não deu para mostrar como criptografar mais eu uso o themida basta da uma olhada no google

 

 

Todos os créditos são meus: magnus97

['Lenneth 487]

puro control C i V

[Magnus97 2]

fala merda nao cara eu criei tudo e postei em outros foruns "CB" e "DP" presta mais atenção no nome em todos o nome é magnus isso pode le custar uma advertencia!

[gaabscps 7]

Magnus97, ele simplesmente não tinha como adivinhar que era o mesmo autor nos outros post's.

Ninguém daqui, inclusive você, não tem bola de cristal.

[Magnus97 2]

Magnus97, ele simplesmente não tinha como adivinhar que era o mesmo autor nos outros post's.

Ninguém daqui, inclusive você, não tem bola de cristal.

 

entao q antes de criticar procure se informar melhor fica a dica.

[NoSlake 56]

Dúvida simples -q

Só pra ajudar os membros, você esqueceu de constar:

"Como Eu acho o número do HD pra por no .txt" ?

[Magnus97 2]

Dúvida simples -q

Só pra ajudar os membros, você esqueceu de constar:

"Como Eu acho o número do HD pra por no .txt" ?

 

 

simples quando seu projeto for executado ele mostrara seu serial no edit basta adiciona-lo ao .txt lembrando q cada serial deve esta em uma linha diferente