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
» 3D_LINE How to ?
par papydall Aujourd'hui à 6:51

» mise a jour calculatrice
par joeeee2017 Hier à 23:00

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» Convertisseur de base 10 de 2 à 36
par gigi75 Sam 14 Oct 2017 - 21:54

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» supprimé
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

» Mise à jour PANOMAND
par jean_debord Mar 26 Sep 2017 - 11:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Codage ROT13

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

avatar

Nombre de messages : 5537
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 : 5857
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 : 5537
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 : 5537
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 : 534
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 : 5537
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
» Codage QEEL
» Codage des catégories [Lixyr]
» manuel de code e-anim
» S. Demande de mise en page - Site du forum

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