XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
INI-Datei: Einträge verschlüsseln
Declare A$,B$,C$
Let A$= ABCDEFGHIJKLMNOP_QRSTUVWXYZ0123456789
Let B$= 5XOD4JBWHR3MEY8KVA2GSQZ6NCU9_I07FLP1T

Proc Coder

    Parameters Passw$,Richtung%
    Passw$ enthält das Passwort
    Richtung% 0 = entschlüsseln, 1 = verschlüsseln
    Declare Von$,Nach$,Code$,I%,J%

    If Richtung%

        Let Von$ = A$
        Let Nach$ = B$

    Else

        Let Von$ = B$
        Let Nach$ = A$

    EndIf

    Let Code$ =
    Let I% = 1

    WhileNot @Gt(I%,@Len(Passw$))

        Let J% = @Instr(@Mid$(Passw$,I%,1),Von$)
        Let Code$ = @Add$(Code$,@Mid$(Nach$,J%,1))
        Inc I%

    Wend

    Return Code$

EndProc

Let C$ = MEIN_0815_PASSWORT
Print *;C$;*
Print
Coder C$,1
Let C$ = @$(0)
Print *;C$;*
Print
Coder C$,0
Let C$ = @$(0)
Print *;C$;*
Print
WaitKey
End