Menü

Mail Listen Archiv | Code Startseite | Anzeige aller Code Fragmente 

4D Code Library

4D Support Center - 4D Code Beispiel zum Thema:

SimpleCrypt

 

Erfaßt von: Manfred Brandstäter (eMail: man.bran@t-online.de ) am 28.05.2003 ; -
Letzte Änderung: 28.05.2003

 

Kurzbeschriebung: Einfache Ver- / Entschlüsselungsmethode;

---

Beschreibung ` Gegeben: Ein Feld [Constants]Bemerkungen   ` Eine Verschlüsselung, die zwar den BND lächeln lässt,   ` aber den Ansprüchen des täglichen Lebens voll genügt.   ` Die Ver- / Entschlüsselung des Textfeldes basiert auf einer   ` Bitmanipulation der Zeichen mit Exklusiv-Oder. Eine Mehrfach-   ` verschlüsselung erhöht die Sicherheit. Sie erfordert dann natürlich   ` die Entschlüsselung in umgekehrter Reihenfolge der Schutzworte. ` Legen Sie den Code in einen Button "crypt / decrypt" im Formular Beschreibung ändern (nur für Autor - Kennwort geschützt) Keine Beschreibung für SimpleCrypt

---

4D Code Beispiel C_LONGINT($vL_Quelle;$vL_KeyPos;$vL_KeyNum;$vL_Dest;$vL_KeyLength) C_STRING(31;$vS_Key) If ([Constants]Bemerkungen#"") $vS_Key:=Request("Ihr Schutzwort bitte? (mind. 6 Zeichen)";"wüsste ich auch gern";"OK";"Abbrechen") If ((OK=1) & (Length($vS_Key)>5)) $vL_KeyLength:=Length($vS_Key) For (count;1;Length([Constants]Bemerkungen))  ` Schleife über den gesamten Text des Feldes $vL_Quelle:=Ascii([Constants]Bemerkungen[[count]])  ` Zeichenweise wird das Doppelbyte des Quelltextes gelesen   ` Das Schutzwort wird wiederkehrend in seinen Einzelzeichen benutzt... $vL_KeyPos:=Mod(count;$vL_KeyLength)  ` Auslesen des anzuwendenden Zeichens aus dem Schutzwort $vL_KeyNum:=Ascii($vS_Key[[$vL_KeyPos]])  ` das Doppelbyte des Schlüsselzeichens für XOR $vL_Dest:=$vL_Quelle ^| $vL_KeyNum  `XOR auf beide Doppelbytes anwenden. [Constants]Bemerkungen[[count]]:=Char($vL_Dest)  ` Das aus dem Quelltext gelesene Zeichen zurück schreiben End for End if Else Alert ("Kein Text zu bearbeiten.") End if Code ändern (nur für Autor - Kennwort geschützt)

---

Zurück

 

 

International | Firmenprofil | Kontakt | Site Map | © 4D 1995 - 2007 | Schriftgröße ändern: [A] [A] [A] | - * Externer Link