FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» un nouveau editeur panobasic
par pascal10000 Hier à 21:52

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» Compilateur FBPano
par jean_debord Hier à 8:49

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

» Problème avec les chaines de caractères
par bignono Dim 6 Aoû 2017 - 9:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Codage ROT13

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5501
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Codage ROT13   Ven 27 Mar 2015 - 3:41

Pouvez-vous décoder ce texte ?
Citation :

Ebg13 rfg ha nytbevguzr fvzcyvfgr qr puvsserzrag qr grkgr.
Vy snvg ha qépnyntr qr 13 pnenpgèerf qr pundhr yrgger.
Pr zêzr nytbevguzr crezrg yr pbqntr rg yr qépbqntr qr yn zêzr znavèer.


Difficile, vous dites ?

Pas après avoir soumis ce texte à ce code.

Code:

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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Codage ROT13   Ven 27 Mar 2015 - 9:52

Amusant codage simple
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Froggy One

avatar

Nombre de messages : 391
Date d'inscription : 06/01/2012

MessageSujet: Re   Ven 27 Mar 2015 - 19:27

W'nqber
!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
papydall

avatar

Nombre de messages : 5501
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Codage ROT13   Ven 27 Mar 2015 - 19:47

Comme Froggy One adore, voici Rot47 : plus complet et  la SUB est plus simple.

Code:

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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Froggy One

avatar

Nombre de messages : 391
Date d'inscription : 06/01/2012

MessageSujet: Re   Ven 27 Mar 2015 - 20:59

Zut, je me suis fait griller ! Je viens de piquer la mise en forme de Klaus pour l'adapter au ROT 13 :

Code:
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 ============================================================================

Papydall est le plus rapide à dégainer !!!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
Froggy One

avatar

Nombre de messages : 391
Date d'inscription : 06/01/2012

MessageSujet: ReRe   Ven 27 Mar 2015 - 21:05

Et voili :

Code:
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 ============================================================================

Je suis sûr qu'on peut simplifier le code, la SUB envoie à une autre SUB, je vois ça...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
Froggy One

avatar

Nombre de messages : 391
Date d'inscription : 06/01/2012

MessageSujet: ReReRe:   Ven 27 Mar 2015 - 21:13

Yaouh ! Je m'amuse !!

Code:
 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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
papydall

avatar

Nombre de messages : 5501
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Codage ROT13   Sam 28 Mar 2015 - 2:46

Froggy One s’amuse.
C’est bon signe car il y a au moins un que mon code l’intéresse.
Puisque c’est ainsi, amuse-toi à purger le code.
Sous l’aspect que tu proposes, il n’y a plus besoin de

Code:

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

Ces trois lignes de code sont bons pour la casse!
Vire-les!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Froggy One

avatar

Nombre de messages : 391
Date d'inscription : 06/01/2012

MessageSujet: Re   Lun 30 Mar 2015 - 19:30

t? 6776E PPP r6 ?V6DE A2D 56 =V:>A@=:E6DD6[ ;VéE2:D 2F EC2G2:= E@FE 46 E6>AD]]] |6C4: !2AJ52== P

Ah oui, pardon !

En effet !!! Ce n'est pas de l'impolitesse, j'étais au travail tout ce temps... Merci Papydall !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
mindstorm

avatar

Nombre de messages : 530
Age : 48
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: Re: Codage ROT13   Lun 30 Mar 2015 - 19:35

OK Papydall
je ne connaissais pas avec les majuscules et munuscules
c'est très pratique et simple à la foi
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5501
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Codage ROT13   Lun 30 Mar 2015 - 20:28

Merci à vous.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Codage ROT13   

Revenir en haut Aller en bas
 
Codage ROT13
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Correction de codage
» Problème de fondateur, comment reprendre le codage et changer une adresse sans avoir accès au compte fondateur ?
» Codage du staff sur ma PA
» aide avec codage pour descriptions des catégorie.
» Un codage pour les catégories de mon forum.

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Les inutilitaires-
Sauter vers: