Cryptage/décryptage

Rem Codage/décodage d'une chaîne Ascii (par extension, d'un fichier)
LABEL Codeco, Xor
DIM Txi$, Txo$, Key$
DIM i, j, k, v1, v2, bi, s1, s2

Txi$ = "Voyez Le Brick Géant Que J'Examine Près Du Wharf 0123456789"
Key$ = "QaZdSuPk"

PRINT Txi$
GOSUB Codeco: Rem codage
PRINT Txo$: Rem chaîne cryptée
Txi$ = Txo$
GOSUB Codeco: Rem décodage
PRINT Txo$: Rem chaîne décryptée (respecte la "casse", pour Jean Claude)
PRINT: PRINT "    Une touche svp..."
WHILE INKEY$ = "": END_WHILE
TERMINATE

Codeco:
Rem Cryptage/décryptage de Txi$ -> Txo$, clé Key$
Txo$ = ""
FOR i = 1 TO LEN(Txi$) STEP LEN(Key$)
    FOR j = 1 TO LEN(Key$)
        k = i + j - 1: IF k > LEN(Txi$) THEN EXIT_FOR
        v1 = ASC(MID$(Txi$, k, 1)): v2 = ASC(MID$(Key$, j, 1))
        GOSUB Xor
        Txo$ = Txo$ + CHR$(bi)
    NEXT j
NEXT i
RETURN

Xor:
Rem émulation de la fonction XOR entre les octets v1 et v2, résultat bi
bi = 0
FOR k = 0 TO 7
    IF v1/2 = INT(v1/2)
        s1 = 0
    ELSE
        s1 = 1
    END_IF
    IF v2/2 = INT(v2/2)
        s2 = 0
    ELSE
        s2 = 1
    END_IF
    IF s1 <> s2 THEN bi = bi + POWER(2, k)
    v1 = INT(v1/2): v2 = INT(v2/2)
NEXT k
RETURN

Rem Codage/décodage d'un fichier quelconque
LABEL Codeco, Xor
DIM fi$, fc$, fd$
DIM Txi$, Txo$, Key$, a$
DIM t, i, j, k, v1, v2, bi, s1, s2


Key$ = "QaZdSuPk": REM n'importe quoi, par exemple

REM fi$ = "C:\Textes\Lorem.txt"
fi$ = "C:\UTIL\ZIP.EXE"
fc$ = "Z:\Fichcod": Rem ... on met les fichiers résultat où on veut
fd$ = "Z:\Fichdec": Rem ... et avec n'importe quel nom

PRINT " - Test de CRYPTAGE/DÉCRYPTAGE de fichier -"
PRINT
FILEBIN_OPEN_READ 1, fi$
t = FILEBIN_SIZE(1)
Txi$ = ""
FOR i = 1 TO t
    FILEBIN_READ 1, v1: Txi$ = Txi$ + CHR$(v1)
NEXT i
FILEBIN_CLOSE 1
PRINT "Codage de " + fi$ + " dans " + fc$ + ", " + STR$(t) + " octets ..."
GOSUB Codeco
FILEBIN_OPEN_WRITE 1, fo$
FOR i = 1 TO LEN(Txo$)
    FILEBIN_WRITE 1, ASC(MID$(Txo$, i, 1))
NEXT i
FILEBIN_CLOSE 1
PRINT "Codage terminé."
PRINT "Prêt pour le décodage de vérification ?"
PRINT: PRINT "    Une touche svp..."
WHILE INKEY$ = "": END_WHILE

FILEBIN_OPEN_READ 1, fo$
Txi$ = ""
FOR i = 1 TO t
    FILEBIN_READ 1, v1: Txi$ = Txi$ + CHR$(v1)
NEXT i
FILEBIN_CLOSE 1
PRINT "Décodage de " + fc$ + " dans " + fd$ + " ..."
GOSUB Codeco
FILEBIN_OPEN_WRITE 1, fd$
FOR i = 1 TO LEN(Txo$)
    FILEBIN_WRITE 1, ASC(MID$(Txo$, i, 1))
NEXT i
FILEBIN_CLOSE 1
PRINT
PRINT "Terminé."
WAIT 2000
TERMINATE

Rem Codage/décodage d'un fichier quelconque, Texte ou Binaire
LABEL Debut, Fin, Decod, Codfich, Codeco, Secondes
DIM fi$, fc$, fd$, f1$, f2$
DIM Txi$, Txo$, Key$, a$
DIM t, i, j, k, v1, v2, bi, s, s1, s2, n, v, nb, t1, duree
CAPTION 0, " - Test de CRYPTAGE/DÉCRYPTAGE de fichier -"

BUTTON 1: TOP 1, 10: LEFT 1, 10: WIDTH 1, 430: HEIGHT 1, 25
CAPTION 1, "Lancer le codage"
ON_CLICK 1, Debut
BUTTON 2: TOP 2, 10: LEFT 2, 450: WIDTH 2, 80: HEIGHT 2, 25
CAPTION 2, "Quitter"
ON_CLICK 2, Fin
BUTTON 3: TOP 3, 72: LEFT 3, 10: WIDTH 3, 1
BUTTON 4: TOP 4, 130: LEFT 4, 10: WIDTH 4, 1
ON_CLICK 4, Decod

Key$ = "QaZdSuPk": Rem clé de codage/décodage, longueur quelconque
fi$ = "C:\Textes\Lorem.txt": Rem fichier à coder, Ascii (Texte) ou binaire
fi$ = "C:\UTIL\ZIP.EXE"
fc$ = "Z:\Fichcod": Rem fichier résultat: fichier codé
fd$ = "Z:\Fichdec": Rem fichier résultat: fichier décodé
END

Debut:
f1$ = fi$
f2$ = fc$
PRINT_Y_LOCATE 56
PRINT "Codage de " + f1$ + " dans " + f2$ + ", " + STR$(t) + " octets"
GOSUB Codfich
PRINT_Y_LOCATE 102: PRINT "Codage terminé, durée: " + Str$(s-t1) + " secondes."
WIDTH 4, 430: CAPTION 4, "Décodage de vérification": Rem pour tests
END

Decod:
CAPTION 3, "": WIDTH 3, 1: TOP 3, 176
f1$ = fc$
f2$ = fd$
PRINT_Y_LOCATE 160: PRINT "Décodage de " + f1$ + " dans " + f2$
GOSUB Codfich
PRINT_Y_LOCATE 206: PRINT "Décodage terminé."
END

Fin:
TERMINATE

Codfich:
FILEBIN_OPEN_READ 1, f1$
t = FILEBIN_SIZE(1): Rem taille du fichier en octets
Txi$ = "" : Rem chaîne, image du fichier entier
FOR i = 1 TO t
    FILEBIN_READ 1, v: Txi$ = Txi$ + CHR$(v)
NEXT i
FILEBIN_CLOSE 1
GOSUB Secondes: t1 = s
GOSUB Codeco
FILEBIN_OPEN_WRITE 1, f2$
FOR i = 1 TO LEN(Txo$)
    FILEBIN_WRITE 1, ASC(MID$(Txo$, i, 1))
NEXT i
FILEBIN_CLOSE 1
GOSUB Secondes: duree = s - t1: Rem en secondes
RETURN

Codeco:
Rem Cryptage/décryptage de Txi$ -> Txo$, clé Key$
nb = INT(LEN(Txi$)/LEN(Key$)): n = 0: Rem pour la barre de progression
Txo$ = ""
FOR i = 1 TO LEN(Txi$) STEP LEN(Key$)
    FOR j = 1 TO LEN(Key$)
        k = i + j - 1: IF k > LEN(Txi$) THEN EXIT_FOR
        v1 = ASC(MID$(Txi$, k, 1))
        IF v1 = 0
            bi = 0: Rem octets à 0 non codés (fichiers binaires)
        ELSE
            v2 = ASC(MID$(Key$, j, 1))
            bi = BIN_XOR(v1, v2): Rem = v1 XOR v2
        END_IF
        Txo$ = Txo$ + CHR$(bi)
    NEXT j
    Rem barre de progression, d'après une idée de Georges (merci !):
    n = n + 1: v = INT(100*n/nb): IF v < 1 THEN v = 1
    WIDTH 3, v*5: CAPTION 3, STR$(v) + " %"
NEXT i
RETURN

Secondes:
s = 3600*VAL(LEFT$(TIME$,2)) + 60*VAL(MID$(TIME$,4,2)) + VAL(RIGHT$(TIME$,2))
RETURN