Entschlüsselungsalgorithmus

Druckerfreundlich

Function Encode$(DecString$)
For I% = 1 To Len(DecString$)
        A% = B%
        B% = C%
        C% = D%
        X% =
Asc(Mid(DecString$, I%, 1)) ; ASCII-Wert des I. zu verschlüsselden Zeichens
       
D% = A% - 3*B% + 3*C% + X% - PeekByte(Passwort%, I% Mod FileBuffer%) And $000000FF
       
EnString$ = EnString$ + Chr$(D%)
       
Next
Return
EnString$
End Function

; "PeekByte(Passwort%, I% Mod FileBuffer%)" nimmt den Wert mit dem das Zeichen verschlüsselt wird aus der Datenbank
; "And $000000FF" stellt sicher, dass nur Werte zwischen 0 und 255 zurückgegeben werden, Ansonsten gibt es fehler.