arkadaşlar asp lisanslama işlemi yok biliyorum ama aşağıdaki şekilde bir kod buldum amatör olanlar belki çözemez bunu. Ama bu nasıl çalışır mantığı nedir acaba.

<%

on error resume next

strAdres = code("site") & "?ipadresi=" & IP & "&" & "kod=" & code("code")

Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
With objVeriAl
  .Open "GET" , strGelen, FALSE
  .sEnd
VeriAl =  .Responsetext
End With
SET objVeriAl = Nothing
End Function

strVeri = VeriAL(strAdres)

if strVeri <> "acik" then
response.write "Bu scripti kullanmaya hakkınız yok"
response.end
end if

%>