17. november 2003 - 16:36
Der er
2 kommentarer og
1 løsning
Kryptering af adresse streng
Hej jeg har et problem hvor jeg sender en email fra en asp siden, hvor så kunden får en streng f.eks.
www.domæne.dk/test.asp?id=123&ordre=456&password=789
dvs at der bliver sendt 3 strenge med så når kunden ønsker at se sin ordrebekræftigelse går de direkte ind på siden og åbner ordrebekræftigelse uden at de skal taste noget, men problemet er at jeg gerne vil have de 3 strenge krypteret, så kunden ikke kan se hvad det han rent faktisk sender, og så skal jeg jo selvfølgelig have det dekrypteret igen når strengen rammer min ordrebekræftigelse.
Er der nogen der kan hjælpe??, så det evt kommer til at se sådan ud:
www.domæne.dk/LKJSDFJPDGJ98756897394567
17. november 2003 - 17:42
#2
Du henviser til følgende script, men hvor skal jeg taste strengen som jeg skal have kodet??, og skal jeg have tilføjet nogen css filer ell. på mit webhotel?
krypt = "?*¤3%&£^9~@#|7$"
Function Krypter(Streng)
for tal1 = 0 to len(Streng)
for tal2 = 1 to len(krypt)
kontrol = tal1*len(krypt) + tal2
if kontrol <= len(Streng) then
original = asc(mid(Streng,kontrol,1))
ny = asc(mid(krypt,tal2,1))
nytekst = nytekst + chrw(original + ny)
end if
next
next
Krypter = nytekst
End Function
Function Dekrypter(Streng)
for tal1 = 0 to len(Streng)
for tal2 = 1 to len(krypt)
kontrol = tal1*len(krypt) + tal2
if kontrol <= len(Streng) then
original = ascw(mid(Streng,kontrol,1))
ny = asc(mid(krypt,tal2,1))
nytekst = nytekst + chrw(original - ny)
end if
next
next
Dekrypter = nytekst
End Function
Lav så adressen således:
Response.Write "filnavn.asp?sti=" & Server.URLencode(Krypter("billedenavn.jpg"))
Og aflæs igen sådan:
Filnavn = Dekrypter(Request.Querystring("sti"))
