Mots de passe illissible

    <%
    ' Crypte et décrypte un mot de passe selon la méthode Xor
    function crypter(s)
    dim i
    dim temp
    for i=1 to len(s)
    temp=temp+chr(asc(mid(s,i,1)) xor 33)
    next
    crypter=temp
    end function
    %>

LABEL Codeco
DIM s$,i,c$
s$ = "XyZ124AbCd": ' mot de passe (par exemple)
GOSUB Codeco: ' codage
PRINT c$
s$ = c$
GOSUB Codeco: ' décodage
PRINT c$
END

Codeco:
c$ = ""
FOR i = 1 TO LEN(s$)
  c$ = c$ + CHR$(BIN_XOR(ASC(MID$(s$,i,1)),33))
NEXT i
RETURN

' Cryptage/décryptage d'un fichier texte ou binaire
DIM mp$, i%, j%, v%, vc%, f$, fc$, fd$, f1$, f2$, cc%(50)
LABEL Codbin

mp$ = "MotDePasse": ' Code de cryptage, plus c'est long, mieux c'est
f$ = "C:\Textes\Paroles1.txt": ' fichier à crypter
f$ = "C:\Doc\ramdrive.abw"
fc$ = "C:\Temp\Fcod"
fd$ = "C:\Temp\Fdec.abw"

PRINT TIME$ + " Codage..."
f1$ = f$: f2$ = fc$: GOSUB Codbin
PRINT TIME$ + " Décodage..."
f1$ = fc$: f2$ = fd$: GOSUB Codbin
PRINT TIME$ + " Terminé !"
END

Codbin:
' cryptage/décryptage (symétrique)
FOR i% = 1 TO LEN(mp$): cc%(i%) = ASC(MID$(mp$, i%, 1)): NEXT i%
FILEBIN_OPEN_READ 1, f1$: FILEBIN_OPEN_WRITE 2, f2$
j% = 1
FOR i% = 1 TO FILEBIN_SIZE(1)
    FILEBIN_READ 1, v%
    vc% = BIN_XOR(v%,  cc%(j%))
    FILEBIN_WRITE 2, vc%
    j% = j% + 1: IF j% > LEN(mp$) THEN j% = 1
NEXT i%
FILEBIN_CLOSE 1: FILEBIN_CLOSE 2
RETURN