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
» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 0:29

» track_bar circulaire
par Klaus Hier à 21:41

» Gestionnaire de Projets Panoramic
par Jean Claude Hier à 20:41

» Mah-Jong européen new-look
par Jean Claude Hier à 20:34

» Gestion de l'Unicode
par jean_debord Hier à 11:21

» Button_picture
par pascal10000 Jeu 14 Déc 2017 - 11:41

» Pourquoi le compilateur stagne
par Minibug Jeu 14 Déc 2017 - 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Jeu 14 Déc 2017 - 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Jeu 14 Déc 2017 - 10:03

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Marc Jeu 14 Déc 2017 - 10:00

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Codage ROT13

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

avatar

Nombre de messages : 5613
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 : 5865
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 : 395
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 : 5613
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 : 395
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 : 395
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 : 395
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 : 5613
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 : 395
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 : 542
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 : 5613
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]
» Sweet'Art • Forum de graphisme et de codage
» manuel de code e-anim

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: