Hent denne fil:
http://asp-faq.dk/kildekode/md5.zipPak den ud, og snup md5.asp filen (det er den eneste der skal bruges)
Lav så en secure.asp fil med følgende kode:
<!--#include file="md5.asp"-->
Function secureID(fID)
dim fTmp, fSecurityTekstString
fSecurityTekstString = "HemligText"
fSecurityTekstString = fSecurityTekstString & date()
fTmp = md5(fSecurityTekstString & fID)
fTmp = left(fTmp, 10) & fID & mid(fTmp,11)
secureID = fTmp
end Function
Function tjeckSecureID(fKode)
dim fTmp, fRetur, fHash, fID, fSecurityTekstString
fSecurityTekstString = "HemligText"
fSecurityTekstString = fSecurityTekstString & date()
fTmp = fKode
if len(fTmp) <= 32 then
fRetur = false
else
fHash = left(fKode,10) & mid(fKode,11+len(fKode)-32)
fID = mid(fKode,11, len(fKode)-32)
if md5(fSecurityTekstString & fID) = fHash then
fRetur = true
else
fRetur = false
end if
end if
tjeckSecureID = fRetur
end Function
Function getSecureID(fKode)
if tjeckSecureID(fKode) then
getSecureID = mid(fKode,11, len(fKode)-32)
else
Response.write "Forkert ID."
response.end
end if
end function
md5.asp filen skal ligge i samme mappe. På den/de sider du skal bruge funktionerne inkludere du secure.asp filen:
<!--#include file="secure.asp"-->
De er så klar til brug:
[test1.asp]
<!--#include file="secure.asp"-->
<html>
<body>
SecureID = <%= secureID(7) %>
</body>
</html>
Og decode:
[test2.asp]
<!--#include file="secure.asp"-->
<html>
<body>
DecodeID = <%= getsecureID("SmidKodenFraTest1IndHer") %>
</body>
</html>
Den kode vil du selvfølgelig skrive/hente fra en url i stedet:
<a href="confirm.asp?ID=<%= secureID(7) %>">klik</a>
<%
getID = getsecureID(request.querystring("ID"))
%>