Antwort: [ASP] ASP Encode und Decode

[Claudius Ceteras]

> sowas in der Art hat Claudius mal geschrieben.
> Zumindest habe ich das in meinem Archiv gespeichert.
> 
> 
> 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

Ok... Cool... Ich hätte mich jetzt dran gemacht das so ähnlich =
nochmal zu
schreiben. :-)

Das verschlüsselt per XOR mit einem Schlüssel....
Wenn man einen guten Schlüssel hat(lang und ggf. mit sonderzeichen), =
ist
auch der Inhalt nicht entschlüsselbar.

Zusätzlich wandeln die Funktionen in HEX um, d.h. es bleibt lesbar und
Base64 o.ä. Ist nicht zusätzlich nötig.

Wenn man das Ding jetzt noch gegen Veränderungen schützen will, =
berechnet
man den MD5 davon und hängt ihn an.

Beim Empfangen trennt man MD5 vom chiffrat, berechnet vom Chiffrat =
nochmal
den MD5 und wenn er gleich dem mitgeschickten MD5-Schlüssel ist, gabs =
keine
Veränderungen. In diesem Fall kann man das Chiffrat mit dem =
Schlüssel wieder
entschlüsseln.

Gruss,


Claudius