> ein ganz einfacher algorithmus ist folgender:
> [...]
Habe dazu ein altes Script von mir ausgegraben:
--- schnipp.vbs ---
const PLAIN =
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
const CRYPT =
"lmefqrsbacdkyuvwxghtnopijzJKNFYZWEGHPLMABCIODUVQRSTX3784901256"
function caesar(byval p_str, byval p_strPlain, byval p_strCrypt)
dim l_iLen
dim i
dim l_iPos
l_iLen = len(p_str)
for i = 1 to l_iLen
l_iPos = InStr(1, p_strPlain, Mid(p_str, i, 1))
if l_iPos > 0 then
caesar = caesar & Mid(p_strCrypt, InStr(1,
p_strPlain, Mid(p_str, i, 1)), 1)
else
caesar = caesar & Mid(p_str, i, 1)
end if
next
end function
---schnapp.vbs
Mit
l_strC = caesar(l_strP, PLAIN, CRYPT)
kann man verschl�sseln, mit
l_strP = caesar(l_strC, CRYPT, PLAIN)
wieder entschl�sseln.
So wie CRYPT gew�hlt ist, werden Klein- auf Kleinbuchstaben, Gro�- auf
Gro�buchstaben und Ziffern auf Ziffern abgebildet. Das kann man aber leicht
�ndern, indem man CRYPT st�rker durchmischt. Weitere Zeichen sind auch kein
Problem.
"rudiment�r" trifft die Sache ganz gut.
--
Gru�,
Alex
_______________________________________________
Coffeehouse Mailingliste, Postings senden an:
[EMAIL PROTECTED]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/coffeehouse
