Problema Com Seguranca. Estamos No Sal...

[Guest - Felipee -]

Problema com seguranca

Amigos,

Vi hoje um problema com seguranca no sistema.

Tenho um sistema de locadora e o cliente instalou um outro terminal, ou seja, pagar mais uma licenca.

O sistema é bloquado pelo numero de serie do hd. Se ele copiasse o sistema para o outro computador, ele não funcionaria porque o numero serial deste outro seria diferente.

Porem, o kara que fez o servico fz uma "formatação espelhada" do hd onde o sistema está instalado.

Portanto, o sistema está funcionando perfeitamente no outro computador...

Como não permitir isso? Fiquei confuso...

Se for assim, estamos no sal. Nunca mais clientes vao precisar comprar uma nova licenca. É só espelhar...

abrs,

Felipee.

[hencker]

Æ galera, achei essa função:

Esta interessante função recupera a velocidade de processamento aproximada da CPU:

const

ID_BIT=$200000; // EFLAGS ID bit

function GetCPUSpeed: Double;

const

DelayTime = 500;

var

TimerHi, TimerLo: DWORD;

PriorityClass, Priority: Integer;

begin

try

PriorityClass := GetPriorityClass(GetCurrentProcess);

Priority := GetThreadPriority(GetCurrentThread);

SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);

SetThreadPriority(GetCurrentThread,THREAD_PRIORITY_TIME_CRITICAL);

Sleep(10);

asm

dw 310Fh // rdtsc

mov TimerLo, eax

mov TimerHi, edx

end;

Sleep(DelayTime);

asm

dw 310Fh // rdtsc

sub eax, TimerLo

sbb edx, TimerHi

mov TimerLo, eax

mov TimerHi, edx

end;

SetThreadPriority(GetCurrentThread, Priority);

SetPriorityClass(GetCurrentProcess, PriorityClass);

Result := TimerLo / (1000.0 * DelayTime);

except end;

end;

No evento OnClick, basta atribuir a saída da função a uma string:

procedure TForm1.Button1Click(Sender: TObject);

var cpuspeed:string;

begin

cpuspeed:=Format('%f MHz', [GetCPUSpeed]);

edit1.text := cpuspeed;

end;

To meio sem tempo, então quem quiser testar!!!

Assim q eu puder vou testar aki tb...

è importante q várias pessoas testem em versões do Windows e do Delphi diferentes para que não haja dúvidas...

[]'s

Tiago Baroni