String-Variable in ASCII-Code konvertieren

[steflinde]

Moin moin,
für unser Intranet möchte ich gerne mittels ASP über
Request.ServerVariables("Logon_User") den angemeldeten User identifizieren
und via aufgerufenem Link an eine Datenbank übergeben. Soweit, so gut.

Nun würde ich den in der Variablen "user" gespeicherten Benutzernamen aber
gerne etwas manipulieren damit man im Link nicht mehr auf anhieb sehen kann
wie der Benutzernamen an die Datenbank übergeben wird (um Manipulationen zu
vermeiden).

Wie kann ich den Wert in der Variablen "user" als Hex-Code nach der
ASCII-Tabelle ausgeben?
Könntet Ihr mir helfen?

Vielen Dank & viele Grüße,
Stefan

 

[Luzie]

Hi

am einfachsten wäre es, Du speicherst die Variable in einen Cookie oder eine Session(). Dann hast Du doch überhaupt kein Problem mehr mit der Weiterleitung. Denn das Crypten und Decrypten ist ziemlich aufwendig.

<% 
dim myEmail 
myEmail = "info@domain.de" 

Function EncryptString(strString) 
dim key, i, str 
key = "VerschlüsselungscodebyHatsch" 
str = "" 
for i = 1 to len(strString) 
str = str & right("0" & hex(asc(mid(strString,i,1)) _ 
XOR asc(mid(key, (i mod len(key))+1,1))),2) 
next 
EncryptString = str 
End Function 

Function DecryptString(strString) 
dim key, i, str 
key = "VerschlüsselungscodebyHatsch" 
str = "" 
for i = 1 to len(strString)/2 
str = str & chr(eval("&H" & mid(strString,i*2-1,2)) _ 
XOR asc(mid(key, (i mod (len(key)))+1,1))) 
next 
DecryptString = str 
End Function 

' --- Ausgabe des verschlüsselten Email-Adresse bzw. der entschlüsselten 

dim deEmail 
deEmail = encryptString(myEmail) 
Response.write "Dies ist eine Email-Adresse, die verschlüsselt ist. <b>" & deEmail & "</b><br>" 
Response.write "Und hier die Entschlüsselung der Email-Adresse. <b>" & decryptString(deEmail) & "</b>" 
%>