Codage ROT13

rem ============================================================================
rem          Rot13
rem ============================================================================
dim a$,b$,t$
a$ = "ABCDEFGHIJKLMabcdefghijklmNOPQRSTUVWXYZnopqrstuvwxyz"
b$ = "NOPQRSTUVWXYZnopqrstuvwxyzABCDEFGHIJKLMabcdefghijklm"
' Décoder le texte t$; t$ est lui-même le résultat du codage avec la même SUB
t$ = "Ebg13 rfg ha nytbevguzr fvzcyvfgr qr puvsserzrag qr grkgr." + chr$(13)
t$ = t$ + "Vy snvg ha qépnyntr qr 13 pnenpgèerf qr pundhr yrgger." + chr$(13)
t$ = t$ +"Pr zêzr nytbevguzr crezrg yr pbqntr rg yr qépbqntr qr yn zêzr znavèer."
Rot13(t$)
Rot13("Au revoir!")
terminate
rem ============================================================================
SUB Rot13(t$)
    dim_local i,p,c$
    for i = 1 to len(t$)
        p = instr(a$,mid$(t$,i,1))
        if p > 0
           c$ = c$ + mid$(b$,p,1)
        else
           c$ = c$ + mid$(t$,i,1)
        end_if
    next i
    message c$
END_SUB
rem ============================================================================

rem ============================================================================
rem       Rot47
rem ============================================================================
rem Rot47 est une variante de ROT13 permettant de chiffrer les lettres,
rem les chiffres et les autres caractères spéciaux.
rem Il se base sur le code ASCII en assignant à chaque symbole un nombre.
rem Les nombres utilisées sont dans l'intervalle 33 .. 127, soit "!" à "~"
rem ============================================================================

Rot47("$2=FE E@FE =6 >@?56")
Rot47("*** Comme Froggy One adore, voici Rot47 : plus complet et  la SUB est plus simple. ***")
rot47("Au revoir !")
terminate
rem ============================================================================
SUB Rot47(t$)
    dim_local i,j,c$
    for i = 1 to len(t$)
        j = asc(mid$(t$,i,1))
        if j > 32 and j < 127
           c$ = c$ + chr$(33+mod((j+14),94))
        else
           c$ = c$ + mid$(t$,i,1)
        end_if
    next i
    message c$

END_SUB
rem ============================================================================

rem ============================================================================
    rem          Rot13
    rem ============================================================================
    LABEL crypter, decrypter
    dim a$,b$,r$,t$
    a$ = "ABCDEFGHIJKLMabcdefghijklmNOPQRSTUVWXYZnopqrstuvwxyz"
    b$ = "NOPQRSTUVWXYZnopqrstuvwxyzABCDEFGHIJKLMabcdefghijklm"
    width 0,750 : height 0,500
    edit 1 : top 1,10 : left 1,10 : width 1,300 : height 1,400
    edit 2 : top 2,10 : left 2,420 : width 2,300 : height 2,400
    edit 4 : top 4,420 : left 4,130 : width 4,300
    button 5 : top 5,50 : left 5,330 : caption 5,">>>" : on_click 5,crypter
    ' button 6 : top 6,80 : left 6,330 : caption 6,"<<<" : on_click 6,decrypter
    text 1,"Texte à décoder" : ' text 2,"Résultat"
    
    END
    
    rem ============================================================================
    crypter:
    crypter(1,2)
    return
    ' decrypter:
    ' crypter(2,1)
    return
    rem ============================================================================
    SUB crypter(in%,out%)
    ' clear out%
    t$=text$(in%)
    rot13(t$)
    text out%,r$
    ' clear in%
    END_SUB
    rem ============================================================================
    SUB Rot13(t$)
        dim_local i,p,c$
        for i = 1 to len(t$)
            p = instr(a$,mid$(t$,i,1))
            if p > 0
               c$ = c$ + mid$(b$,p,1)
            else
               c$ = c$ + mid$(t$,i,1)
            end_if
        next i
        r$=c$
    END_SUB
    rem ============================================================================

rem ============================================================================
    rem          Rot47
    rem ============================================================================
    LABEL crypter
    dim a$,b$,r$,t$
    a$ = "ABCDEFGHIJKLMabcdefghijklmNOPQRSTUVWXYZnopqrstuvwxyz"
    b$ = "NOPQRSTUVWXYZnopqrstuvwxyzABCDEFGHIJKLMabcdefghijklm"
    width 0,750 : height 0,500
    edit 1 : top 1,10 : left 1,10 : width 1,300 : height 1,400
    edit 2 : top 2,10 : left 2,420 : width 2,300 : height 2,400
    edit 4 : top 4,420 : left 4,130 : width 4,300
    button 5 : top 5,50 : left 5,330 : caption 5,">>>" : on_click 5,crypter
    ' button 6 : top 6,80 : left 6,330 : caption 6,"<<<" : on_click 6,decrypter
    text 1,"Texte à décoder" : ' text 2,"Résultat"
   
    END
   
    rem ============================================================================
    crypter:
    crypter(1,2)
    return
    rem ============================================================================
    SUB crypter(in%,out%)
    ' clear out%
    t$=text$(in%)
    rot13(t$)
    text out%,r$
    ' clear in%
    END_SUB
    rem ============================================================================
    SUB Rot13(t$)
        dim_local i,j,c$
        for i = 1 to len(t$)
            j = asc(mid$(t$,i,1))
        if j > 32 and j < 127
          c$ = c$ + chr$(33+mod((j+14),94))
        else
          c$ = c$ + mid$(t$,i,1)
        end_if
        next i
        r$=c$
    END_SUB
    rem ============================================================================

 rem ============================================================================
    rem          Rot47
    rem ============================================================================
    LABEL crypter
    dim a$,b$,r$,t$
    a$ = "ABCDEFGHIJKLMabcdefghijklmNOPQRSTUVWXYZnopqrstuvwxyz"
    b$ = "NOPQRSTUVWXYZnopqrstuvwxyzABCDEFGHIJKLMabcdefghijklm"
    width 0,750 : height 0,500
    edit 1 : top 1,10 : left 1,10 : width 1,300 : height 1,400
    edit 2 : top 2,10 : left 2,420 : width 2,300 : height 2,400
    edit 4 : top 4,420 : left 4,130 : width 4,300
    button 5 : top 5,50 : left 5,330 : caption 5,">>>" : on_click 5,crypter
    text 1,"Texte à décoder"
   
    END
   
    rem ============================================================================
    crypter:
    Rot47(text$(1))
    return
    rem ============================================================================
    SUB Rot47(t$)
        dim_local i,j,c$
        for i = 1 to len(t$)
            j = asc(mid$(t$,i,1))
        if j > 32 and j < 127
          c$ = c$ + chr$(33+mod((j+14),94))
        else
          c$ = c$ + mid$(t$,i,1)
        end_if
        next i
        text 2,c$
    END_SUB
    rem ============================================================================

dim a$,b$,r$,t$
 a$ = "ABCDEFGHIJKLMabcdefghijklmNOPQRSTUVWXYZnopqrstuvwxyz"
 b$ = "NOPQRSTUVWXYZnopqrstuvwxyzABCDEFGHIJKLMabcdefghijklm"