super. danke jungs. sowas hab ich gesucht. sch�nes wochenende!
----- Original Message ----- From: "Alexander Veit" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Saturday, September 11, 2004 2:31 PM Subject: [Coffeehouse] RE: [Coffeehouse] AW: [Coffeehouse] rudiment�re sicherheit > 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 _______________________________________________ Coffeehouse Mailingliste, Postings senden an: [EMAIL PROTECTED] An-/Abmeldung und Suchfunktion unter: http://www.glengamoi.com/mailman/listinfo/coffeehouse
