Licença em asp

[Renato Tavaress 0]

Bom dia Galera, preciso se uma ajudinha... rsrs

Existe alguma forma de criar uma chave de licença para sites para verificar se aquela chave está ativa em algum servidor ou não?

[Vinicius Ianni 189]

Pode-se até criar, vai depender as imaginação e de como vai fazer a verificação.

 

Imagino que cada cliente teria uma chave criada de alguma forma, e a verificação seja comparando a chave a um banco de dados situado noutro servidor.

 

Cria-se a verificação logo no inicio do código e estando ok, continua o processamento, e em caso negativo, exibe alguma mensagem.

[xanburzum 169]

você pode dar um Random em uma chave, gravar no servidor e verifficar se ela existe e esta correta com a qula foi gerada, mas me diga para qual finalidade você precisa ?

podendo ainda, Gerar uma chave secreta para o produto,Pegue o nome do usuário,Concatenar o nome de usuário e a chave secreta e com hash (por exemplo) SHA1,Descompacte o hash SHA1 como uma seqüência alfanumérica. Este é o usuário individual "Product Key",Dentro do code, faça o mesmo hash, e comparar com a chave do produto. Se for igual, OK.

[Renato Tavaress 0]

Preciso para monitorar se esta presente ou ativa em algum servidor, basicamente monitorar se o codigo esta sendo utilizado sem nossa autorização

[xanburzum 169]

você pode obter o URL da página atual

 

<%
function curPageURL()
dim s, protocol, port

if Request.ServerVariables("HTTPS") = "on" then
  s = "s"
else
  s = ""
end if  

protocol = strleft(LCase(Request.ServerVariables("SERVER_PROTOCOL")), "/") & s 

if Request.ServerVariables("SERVER_PORT") = "80" then
  port = ""
else
  port = ":" & Request.ServerVariables("SERVER_PORT")
end if  

curPageURL = protocol & "://" & Request.ServerVariables("SERVER_NAME") &_
             port & Request.ServerVariables("SCRIPT_NAME")
end function

function strLeft(str1,str2)
strLeft = Left(str1,InStr(str1,str2)-1)
end function
%>

 

Agora você pode obter a URL da página atual usando a linha:

 

<%
 response.write(curPageURL())
%>