[resolu]ReplaceString.. et encodage de text

Ar-S · Message par **Ar-S** » ven. 24/août/2007 10:17

J'utilise 4.02 avec japbe.

Essayez l'exe, j'ai fait quelques correctifs.
Aprés plusieurs tests, ça fonctionne.

http://arsworld.free.fr/freeware/ars_crypt.zip

Chris · Message par **Chris** » ven. 24/août/2007 10:17

@ Dobro
J'ai trouvé l'erreur.

Il faut remplacer Select LCase(phrase$) par Select LCase(caractere$)

Essaie de décoder ça.

Code : Tout sélectionner

si la recolte est bonne j'étais comme un dingue.  tel est le mot d'ordre 'hier une bonne bouffée une bonne bouffée j'étais comme un dingue. si la vue baisse, si la vue baisse, j'étais comme un dingue.  tel est le mot d'ordre vivement les vacances une énorme tête de bonnes soupes pour grandir. j'étais comme un dingue. si la vue baisse,  j'étais comme un dingue. sans doute,  si la recolte est bonne 'hier vivement les vacances  sans doute, jusqu'au bout participer, sans doute, j'étais comme un dingue.  tel est le mot d'ordre j'étais comme un dingue. ne pas baisser les bras  pour accomplir son destin j'étais comme un dingue. de l'été sans doute, ne pas baisser les bras . (tel est le mot d'ordre hier vivement les vacances ne pas baisser les bras  jusqu'au bout de l'été  ne pas baisser les bras hier vivement les vacances sans doute,  une bonne bouffée hier ne pas baisser les bras  ne pas baisser les bras vivement les vacances  çhier  attention cependant, hier  pour accomplir son destin participer, aucun doute j'étais comme un dingue. aucun doute ...)

Backup · Message par **Backup** » ven. 24/août/2007 10:23

je vais meme t'expliquer pourquoi ce prg NE peux pas Marcher !!!

tu code :

Code : Tout sélectionner

 Case "b"
                            chaine_codee$+"pour le moment "

puis plus loin

Code : Tout sélectionner

Case "m"
                            chaine_codee$+"tel est le mot d'ordre "

moralité tout les "b" sont remplacé par "pour le moment "

puis plus loin tout les "m" sont remplacé par "tel est le mot d'ordre "

or justement tu viens d'ajouter le mot "moment" precedement !!!
du coup les 2 "m" de ce mot sont aussi remplacé par "tel est le mot d'ordre "

du coup au decodage, vu que ton ordre des lettres est le meme
tu ne peux pas retomber sur tes pieds !! impossible avec cette façon de faire !....

du coup impossible de coder une phrase contenant

"pour le moment "
"une enorme tete "
"pour accomplir son destin "
ect ....

une solution (parmis d'autres) pour y arriver serai
d'encoder chaque lettre de ta phrase de depart, par un nombre bien precis

puis dans un deuxieme temps, encodage de chacun des nombre en phrase de codage genre

"pour le moment "
"une enorme tete "
"pour accomplir son destin "
ect ....

ce qui te permetrai pour decoder de remplacer ces phrases de codage precité, a nouveau en leur equivalent nombre

puis dans un deuxieme temps transformé ces nombre precis et connu , en lettres !

, voila c'est tout simple non ?
(a condition de ne pas coder les chifres !!)

brossden · Message par **brossden** » ven. 24/août/2007 10:33

Le programme rectifié je pense !

Code : Tout sélectionner

Enumeration
  #ARS
  #BT_Coder
  #BT_Decoder
  #Affiche
  #Button_3
  #Text_4
  #Message
  #Texte1
  #Button_7
  #Titre
  #Font_Titre
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_ARS()
  If OpenWindow(#ARS, 31, 372, 368, 389, "Ar-S Crypt", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(#ARS))
      ButtonGadget(#BT_Coder, 7, 150, 90, 25, "Coder")
      ButtonGadget(#BT_Decoder, 102, 150, 90, 25, "Decoder")
      EditorGadget(#Affiche, 5, 194, 355, 160, #PB_Editor_ReadOnly)
      SetGadgetText(#Affiche,"abcdefghijklmnopqrstuvwxyz0123456789à")
      ButtonGadget(#Button_3, 6, 360, 355, 20, "Copier le résultat dans le presse papier")
      TextGadget(#Text_4, 7, 178, 95, 15, "Résultat")
      EditorGadget(#Message, 3, 65, 355, 80)
      SetGadgetText(#Message,"abcdefghijklmnopqrstuvwxyz0123456789à")
      TextGadget(#Texte1, 10, 47, 140, 15, "Message à coder / décoder")
      ButtonGadget(#Button_7, 344, 150, 15, 40, "?")
      TextGadget(#Titre, 2, 0, 365, 45, "Ar-S Crypt", #PB_Text_Border|#PB_Text_Center)
      ; Gadget Fonts
      SetGadgetFont(#Titre, LoadFont(#Font_Titre, "Arial Black", 22, 0))
    EndIf
  EndIf
EndProcedure

OpenWindow_ARS()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #BT_Coder
        ClearClipboard()
        phrase$=GetGadgetText(#Message)
        Debug phrase$
        chaine_codee$=""
        len_a=Len(phrase$)
        For position_caractere=1 To len_a
          caractere$=Mid(phrase$,position_caractere,1) 
          
          Select LCase(caractere$);Select LCase(phrase$)
            Case "a" : chaine_codee$+"hier "
            Case "b" : chaine_codee$+"pour le moment "
            Case "c" : chaine_codee$+"une énorme tête "
            Case "d" : chaine_codee$+"pour accomplir son destin "
            Case "e" : chaine_codee$+"j'étais comme un dingue. "
            Case "f" : chaine_codee$+"pour ce que je sais "
            Case "g" : chaine_codee$+"le jus d'orange c'est bon, "
            Case "h" : chaine_codee$+"de bonnes soupes pour grandir. "
            Case "i" : chaine_codee$+"vivement les vacances "
            Case "j" : chaine_codee$+"si la recolte est bonne "
            Case "k" : chaine_codee$+"la gueule de bois est assurée "
            Case "l" : chaine_codee$+"si la vue baisse, "
            Case "m" : chaine_codee$+"tel est le mot d'ordre "
            Case "n" : chaine_codee$+"de l'été "
            Case "o" : chaine_codee$+"jusqu'au bout "
            Case "p" : chaine_codee$+"une bonne bouffée "
            Case "q" : chaine_codee$+"a condition de "
            Case "r" : chaine_codee$+"aucun doute "
            Case "s" : chaine_codee$+"ne pas baisser les bras "
            Case "t" : chaine_codee$+"sans doute, "
            Case "u" : chaine_codee$+"participer, "
            Case "v" : chaine_codee$+"attention cependant, "
            Case "w" : chaine_codee$+"juqu'à la fin. "
            Case "x" : chaine_codee$+"regarder la différence "
            Case "y" : chaine_codee$+"ah la weed ! "
            Case "z" : chaine_codee$+"jusqu'au petit matin "
            Case "0" : chaine_codee$+"(ch5v10) "
            Case "1" : chaine_codee$+"(...) "
            Case "2" : chaine_codee$+"(ch2v5) "
            Case "3" : chaine_codee$+"(page 7 ligne 4 mot 22 "
            Case "4" : chaine_codee$+"(Mot 8 page 5 ligne 16) "
            Case "5" : chaine_codee$+"(ch2v5). "
            Case "6" : chaine_codee$+"(ch7v3), "
            Case "7" : chaine_codee$+"(page 105 ligne 4 mot 3) "
            Case "8" : chaine_codee$+"(page 52 ligne 8 mot 5) "
            Case "9" : chaine_codee$+"(ch12v3) "
            Case "à" : chaine_codee$+"me "
            Default:  chaine_codee$+caractere$
          EndSelect
        Next position_caractere   
        phrase$=chaine_codee$
        SetGadgetText(#Affiche,chaine_codee$)
      EndIf 
      If EventGadget = #BT_Decoder
        ClearClipboard()
        phrase$=GetGadgetText(#Message)
        Debug phrase$
        phrase$ = ReplaceString(phrase$, "hier ", "a")
        phrase$ = ReplaceString(phrase$, "pour le moment ", "b")
        phrase$ = ReplaceString(phrase$, "une énorme tête ", "c")
        phrase$ = ReplaceString(phrase$, "pour accomplir son destin ", "d")
        phrase$ = ReplaceString(phrase$, "j'étais comme un dingue. ", "e")
        phrase$ = ReplaceString(phrase$, "pour ce que je sais ", "f")
        phrase$ = ReplaceString(phrase$, "le jus d'orange c'est bon, ", "g")
        phrase$ = ReplaceString(phrase$, "de bonnes soupes pour grandir. ", "h")
        phrase$ = ReplaceString(phrase$, "vivement les vacances ", "i")
        phrase$ = ReplaceString(phrase$, "si la recolte est bonne ", "j")
        phrase$ = ReplaceString(phrase$, "la gueule de bois est assurée ", "k")
        phrase$ = ReplaceString(phrase$, "si la vue baisse, ", "l")
        phrase$ = ReplaceString(phrase$, "tel est le mot d'ordre ", "m")
        phrase$ = ReplaceString(phrase$, "de l'été ", "n")
        phrase$ = ReplaceString(phrase$, "jusqu'au bout ", "o")
        phrase$ = ReplaceString(phrase$, "une bonne bouffée ", "p") 
        phrase$ = ReplaceString(phrase$, "a condition de ", "q")
        phrase$ = ReplaceString(phrase$, "aucun doute ", "r")
        phrase$ = ReplaceString(phrase$, "ne pas baisser les bras ", "s")
        phrase$ = ReplaceString(phrase$, "sans doute, ", "t")
        phrase$ = ReplaceString(phrase$, "participer, ", "u")
        phrase$ = ReplaceString(phrase$, "attention cependant, ", "v")
        phrase$ = ReplaceString(phrase$, "juqu'à la fin. ", "w")
        phrase$ = ReplaceString(phrase$, "regarder la différence ", "x")
        phrase$ = ReplaceString(phrase$, "ah la weed ! ", "y")
        phrase$ = ReplaceString(phrase$, "jusqu'au petit matin ", "z")
        phrase$ = ReplaceString(phrase$, "(ch5v10) ", "0")
        phrase$ = ReplaceString(phrase$, "(...) ", "1")
        phrase$ = ReplaceString(phrase$, "(ch2v5) ", "2")
        phrase$ = ReplaceString(phrase$, "(page 7 ligne 4 mot 22 ", "3")
        phrase$ = ReplaceString(phrase$, "(Mot 8 page 5 ligne 16) ", "4")
        phrase$ = ReplaceString(phrase$, "(ch2v5). ", "5")
        phrase$ = ReplaceString(phrase$, "(ch7v3), ", "6")
        phrase$ = ReplaceString(phrase$, "(page 105 ligne 4 mot 3) ", "7")
        phrase$ = ReplaceString(phrase$, "(page 52 ligne 8 mot 5) ", "8")
        phrase$ = ReplaceString(phrase$, "(ch12v3) ", "9")
        phrase$ = ReplaceString(phrase$, "exemple : ", "0")
        phrase$ = ReplaceString(phrase$, "me ", "à")
        
        SetGadgetText(#Affiche,phrase$)
        
      EndIf
      If EventGadget = #Affiche
      ElseIf EventGadget = #Button_3
        SetClipboardText(phrase$)
        SetGadgetText(#Message,phrase$)
      ElseIf EventGadget = #Text_4
      ElseIf EventGadget = #Message
      ElseIf EventGadget = #Texte1
      ElseIf EventGadget = #Button_7
        MessageRequester("A propos","Ar-S Crypt v0.3")
      ElseIf EventGadget = #Titre
      EndIf
      ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #ARS
        CloseWindow(#ARS)
        Break
      EndIf
  EndSelect
ForEver
;
;}

Backup · Message par **Backup** » ven. 24/août/2007 10:39

@brossden :
oui cette version fonctionne

pour le moment aucun doute hier attention cependant, jusqu'au bout hier pour le moment aucun doute jusqu'au bout ne pas baisser les bras ne pas baisser les bras pour accomplir son destin j'étais comme un dingue. de l'été , a condition de participer, vivement les vacances j'étais comme un dingue. ne pas baisser les bras sans doute, attention cependant, aucun doute hier vivement les vacances tel est le mot d'ordre j'étais comme un dingue. de l'été sans doute, participer, de l'été j'étais comme un dingue. pour le moment j'étais comme un dingue. sans doute, j'étais comme un dingue. pour accomplir son destin j'étais comme un dingue. une énorme tête jusqu'au bout participer, aucun doute ne pas baisser les bras j'étais comme un dingue.
j'étais comme un dingue. sans doute, si la vue baisse, j'étais comme un dingue. aucun doute jusqu'au bout vivement les vacances pour accomplir son destin j'étais comme un dingue. ne pas baisser les bras pour accomplir son destin j'étais comme un dingue. pour le moment participer, le jus d'orange c'est bon, le jus d'orange c'est bon, j'étais comme un dingue. aucun doute :pour accomplir son destin

Ar-S · Message par **Ar-S** » ven. 24/août/2007 10:50

Dernier code version compilée (v0.4)

Code : Tout sélectionner

;Ar-S Crypt / 2007
;{- Enumerations / DataSections

Enumeration
  #ARS
  #BT_Coder
  #BT_Decoder
  #Affiche
  #Button_3
  #Text_4
  #Message
  #Texte1
  #Button_7
  #Titre
  #Font_Titre
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_ARS()
  If OpenWindow(#ARS, 31, 372, 368, 389, "Ar-S Crypt", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
     StickyWindow(#ARS, 1)
    If CreateGadgetList(WindowID(#ARS))
      ButtonGadget(#BT_Coder, 7, 150, 90, 25, "Coder")
      ButtonGadget(#BT_Decoder, 102, 150, 90, 25, "Decoder")
      EditorGadget(#Affiche, 5, 194, 355, 160, #PB_Editor_ReadOnly)
      ButtonGadget(#Button_3, 6, 360, 355, 20, "Copier le résultat dans le presse papier")
      TextGadget(#Text_4, 7, 178, 95, 15, "Résultat")
      EditorGadget(#Message, 3, 65, 355, 80)
      TextGadget(#Texte1, 10, 47, 140, 15, "Message à coder / décoder")
      ButtonGadget(#Button_7, 344, 150, 15, 40, "?")
      TextGadget(#Titre, 2, 0, 365, 45, "Ar-S Crypt", #PB_Text_Border|#PB_Text_Center)
      ; Gadget Fonts
      SetGadgetFont(#Titre, LoadFont(#Font_Titre, "Arial Black", 22, 0))
    EndIf
  EndIf
EndProcedure

OpenWindow_ARS()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #BT_Coder
        ClearClipboard() 
        phrase$=GetGadgetText(#Message)
        chaine_codee$=""
        len_a=Len(phrase$)
        For position_caractere=1 To len_a
        caractere$=Mid(phrase$,position_caractere,1)  
        
        Select LCase(caractere$)
            Case "a"
              chaine_codee$+"vraiment ! "
            Case "b"
              chaine_codee$+"pour le moment "
            Case "c"
              chaine_codee$+"une énorme tête a été recupéré "
            Case "d"
              chaine_codee$+"pour accomplir son destin "
            Case "e"
              chaine_codee$+"les gens seront ainsi heureux. "
            Case "f"
              chaine_codee$+"pour ce que je sais "
            Case "g"
              chaine_codee$+"le jus d'orange c'est bon, "
            Case "h"
              chaine_codee$+"de bonnes soupes pour grandir. "
            Case "i"
              chaine_codee$+"vivement les vacances "
            Case "j"
              chaine_codee$+"si la recolte est bonne "
            Case "k"
              chaine_codee$+"la gueule de bois est assurée "
            Case "l"
              chaine_codee$+"si la vue baisse, "
            Case "m"
              chaine_codee$+"tel est le mot d'ordre "
            Case "n"
              chaine_codee$+"cet été "
            Case "o"
              chaine_codee$+"jusqu'au bout "
            Case "p"
              chaine_codee$+"une bonne bouffée "
            Case "q"
              chaine_codee$+"a condition de "
            Case "r"
              chaine_codee$+"aucun doute là dessus. "
            Case "s"
              chaine_codee$+"ne surtout pas baisser les bras. "
            Case "t"
              chaine_codee$+"logiquement, "
            Case "u"
              chaine_codee$+"il faut participer, "
            Case "v"
              chaine_codee$+"attention cependant, "
            Case "w"
              chaine_codee$+"juqu'à la fin. "
            Case "x"
              chaine_codee$+"regarder la différence "
            Case "y"
              chaine_codee$+"ah la weed ! "
            Case "z"
              chaine_codee$+"jusqu'au petit matin "
            Case "0"
              chaine_codee$+"(ch5v10) "
            Case "1"
              chaine_codee$+"(...) "
            Case "2"
              chaine_codee$+"(ch2v5) "
            Case "3"
              chaine_codee$+"(page 7 ligne 4 mot 22 "
            Case "4"
              chaine_codee$+"(Mot 8 page 5 ligne 16) "
            Case "5"
              chaine_codee$+"(ch2v5). "
            Case "6"
              chaine_codee$+"(ch7v3), "
            Case "7"
              chaine_codee$+"(page 105 ligne 4 mot 3) "
            Case "8"
              chaine_codee$+"(page 52 ligne 8 mot 5) "
            Case "9"
              chaine_codee$+"(ch12v3) "
            Case "à"
              chaine_codee$+"me "
            Case ":"
              chaine_codee$+"quelle heure peut-il etre ? "
            Case "/"
              chaine_codee$+"mais "
            Case "'"
              chaine_codee$+"; "
            Case "é"
              chaine_codee$+"car "
           Default
            chaine_codee$+caractere$
            
            
          EndSelect
        Next position_caractere    
        phrase$=chaine_codee$
        SetGadgetText(#Affiche,chaine_codee$)
      EndIf
      
      If EventGadget = #BT_Decoder
        ClearClipboard()
        phrase$=GetGadgetText(#Message)
        phrase$ = ReplaceString(phrase$, "vraiment ! ", "a")
        phrase$ = ReplaceString(phrase$, "pour le moment ", "b")
        phrase$ = ReplaceString(phrase$, "une énorme tête a été recupéré ", "c")
        phrase$ = ReplaceString(phrase$, "pour accomplir son destin ", "d")
        phrase$ = ReplaceString(phrase$, "les gens seront ainsi heureux. ", "e")
        phrase$ = ReplaceString(phrase$, "pour ce que je sais ", "f")
        phrase$ = ReplaceString(phrase$, "le jus d'orange c'est bon, ", "g")
        phrase$ = ReplaceString(phrase$, "de bonnes soupes pour grandir. ", "h")
        phrase$ = ReplaceString(phrase$, "vivement les vacances ", "i")
        phrase$ = ReplaceString(phrase$, "si la recolte est bonne ", "j")
        phrase$ = ReplaceString(phrase$, "la gueule de bois est assurée ", "k")
        phrase$ = ReplaceString(phrase$, "si la vue baisse, ", "l")
        phrase$ = ReplaceString(phrase$, "tel est le mot d'ordre ", "m")
        phrase$ = ReplaceString(phrase$, "cet été ", "n")
        phrase$ = ReplaceString(phrase$, "jusqu'au bout ", "o")
        phrase$ = ReplaceString(phrase$, "une bonne bouffée ", "p")
        phrase$ = ReplaceString(phrase$, "a condition de ", "q")
        phrase$ = ReplaceString(phrase$, "aucun doute là dessus. ", "r")
        phrase$ = ReplaceString(phrase$, "ne surtout pas baisser les bras. ", "s")
        phrase$ = ReplaceString(phrase$, "logiquement, ", "t")
        phrase$ = ReplaceString(phrase$, "il faut participer, ", "u")
        phrase$ = ReplaceString(phrase$, "attention cependant, ", "v")
        phrase$ = ReplaceString(phrase$, "juqu'à la fin. ", "w")
        phrase$ = ReplaceString(phrase$, "regarder la différence ", "x")
        phrase$ = ReplaceString(phrase$, "ah la weed ! ", "y")
        phrase$ = ReplaceString(phrase$, "jusqu'au petit matin ", "z")
        phrase$ = ReplaceString(phrase$, "(ch5v10) ", "0")
        phrase$ = ReplaceString(phrase$, "(...) ", "1")
        phrase$ = ReplaceString(phrase$, "(ch2v5) ", "2")
        phrase$ = ReplaceString(phrase$, "(page 7 ligne 4 mot 22 ", "3")
        phrase$ = ReplaceString(phrase$, "(Mot 8 page 5 ligne 16) ", "4")
        phrase$ = ReplaceString(phrase$, "(ch2v5). ", "5")
        phrase$ = ReplaceString(phrase$, "(ch7v3), ", "6")
        phrase$ = ReplaceString(phrase$, "(page 105 ligne 4 mot 3) ", "7")
        phrase$ = ReplaceString(phrase$, "(page 52 ligne 8 mot 5) ", "8")
        phrase$ = ReplaceString(phrase$, "(ch12v3) ", "9")
        phrase$ = ReplaceString(phrase$, "exemple : ", "0")
        phrase$ = ReplaceString(phrase$, "me ", "à")
        phrase$ = ReplaceString(phrase$, "quelle heure peut-il etre ? ", ":")
        phrase$ = ReplaceString(phrase$, "mais ", "/")
        phrase$ = ReplaceString(phrase$, "; ", "'")
        phrase$ = ReplaceString(phrase$, "car ", "é")
        SetGadgetText(#Affiche,phrase$)
         
      EndIf
      If EventGadget = #Affiche
      ElseIf EventGadget = #Button_3
        SetClipboardText(phrase$)
        SetGadgetText(#Affiche,"La phrase est copiée dans le presse papier.")
      ElseIf EventGadget = #Text_4
      ElseIf EventGadget = #Message
      ElseIf EventGadget = #Texte1
      ElseIf EventGadget = #Button_7
        MessageRequester("A propos","                        Ar-S Crypt v0.4"+Chr(13)+Chr(13)+"D'autres logiciels sur http://arsworld.free.fr")
      ElseIf EventGadget = #Titre
      EndIf
      ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #ARS
        CloseWindow(#ARS)
        Break
      EndIf
  EndSelect
ForEver
;
;}

Edit : si je tape "je suis content pour le moment"
le codage/decodage fonctionne..

Backup · Message par **Backup** » ven. 24/août/2007 11:12

oui celui ci fonctionne aussi !

bravo, bonne idée ce prg

logiquement, jusqu'au bout cet été une bonne bouffée aucun doute là dessus. le jus d'orange c'est bon, pour ce que je sais jusqu'au bout cet été une énorme tête a été recupéré logiquement, vivement les vacances jusqu'au bout cet été cet été les gens seront ainsi heureux. tel est le mot d'ordre vraiment ! vivement les vacances cet été logiquement, les gens seront ainsi heureux. cet été vraiment ! cet été logiquement, ne surtout pas baisser les bras. il faut participer, une bonne bouffée les gens seront ainsi heureux. aucun doute là dessus. pour le moment vivement les vacances les gens seront ainsi heureux. cet été
les gens seront ainsi heureux. logiquement, une énorme tête a été recupéré ; les gens seront ainsi heureux. ne surtout pas baisser les bras. logiquement, une bonne bouffée vraiment ! ne surtout pas baisser les bras. logiquement, aucun doute là dessus. jusqu'au bout une bonne bouffée logiquement, jusqu'au bout logiquement, !! quelle heure peut-il etre ? )

Ar-S · Message par **Ar-S** » sam. 25/août/2007 9:04

Voilà !

Cette fois c'est terminé, j'ai peaufiné l'interface et corrigé quelques bugs.
j'ai aussi ajouté la prise en compte des caractères " é è à â , . "

Si vous désirez le tester :

je suis en train de bosser sur mon site donc il n'est pas encore tout à fait opérationnel, mais si vous voulez me dire ce que vous en pensez, ce serait avec plaisir que je prendrai vos commentaires.

site : http://ldvmultimedia.free.fr

Voilou

Backup · Message par **Backup** » dim. 26/août/2007 16:59

................

Backup · Message par **Backup** » dim. 26/août/2007 17:02

voici le mot "coucou" encodé avec le spin a zero

0ÿ103ÿ117ÿ123ÿ105ÿ117ÿ126ÿ

le voici avec le spin a 3

3ÿ100ÿ118ÿ123ÿ108ÿ118ÿ123ÿ

ps : pas besoin de preparer le spin avant le decodage, ça se fait touts seul

venom · Message par **venom** » dim. 26/août/2007 17:29

dit dobro j'ai essayer le tien de code est chez moi sa ne va pas

.

ex : je met bonjour je le crypte jusque la sa va.
mais au moment ou je le decode il me renvoie : njour ilk manque bo

.

voila pour info

@++

Backup · Message par **Backup** » dim. 26/août/2007 17:54

venom a écrit :dit dobro j'ai essayer le tien de code est chez moi sa ne va pas .

ex : je met bonjour je le crypte jusque la sa va.
mais au moment ou je le decode il me renvoie : njour ilk manque bo .

voila pour info

@++

je viens de réediter le code, en ne mettant qu'un seul editeur, cela facilite le fonctionnement

toutefois il vaut mieux que le text commence tout en haut a gauche de l'éditeur !!

je ne gere pas les retours chariot !!
donc les text multiligne ne marche pas !!
je vais regarder ça

Backup · Message par **Backup** » dim. 26/août/2007 18:02

voila ça y est !!

il crypte les multilignes aussi

La derniere version, est celle qui est titré "Dobro Crypt"

ça marche la ?

Backup · Message par **Backup** » dim. 26/août/2007 23:48

Dobro a écrit :ça marche la ?

Chris · Message par **Chris** » lun. 27/août/2007 4:37

Oui, ça marche!
Ca marche même bien.

Ce qui serait bien, maintenant:
- Gestion de la totalité de l'alplhabet (chiffres, lettres, majuscules, ponctuation, signes, etc...) Il suffit de virer le "LCase" dans la fonction de codage
- Virer le règlage automatique du "SpinGadget()" pour le décodage parce que si tout le monde peut décoder un message, simplement en ayant le logiciel, c'est pas terrible , niveau sécurité.
- Augmenter la hauteur de l'EditorGadget() et gérer les retours à la ligne pendant la saisie parce que c'est pas le pied de perdre le début de la phrase qu'on tape dès qu'on a écrit 4 ou 5 mots.
- Permettre d'enregistrer le texte codé dans un fichier en plus du presse-papier.
- Mettre un menu pop-up sur l'EditorGadget() pour coller le texte à décoder, parce que le raccourci clavier Ctrl+A, c'est bien, mais ça n'empèche pas le pop-up.

Voilà!... Amuse toi bien!

En bas, le message ci-dessus, codé avec le spingadget à 4.
Si tu veux tester, retire tous les retour-chariot que j'ai mis pour
éviter que la page du forum ne fasse 12 m de long)

(Tu peux insérer un ReplaceString() dans ton code pour faire ça.)

Code : Tout sélectionner

      If EventGadget = #BT_Decoder
        ClearClipboard ()
        phrase$ = GetGadgetText ( #Message )
        
        phrase$ = ReplaceString(phrase$, Chr(13)+Chr(10), "") ; <--- Ligne à insérer
        
        de= Val ( Left (phrase$,1)) 
        bla-bla-bla.....

Code : Tout sélectionner

0ÿ71ÿ107ÿ38ÿ119ÿ123ÿ114ÿ42ÿ125ÿ111ÿ126ÿ113ÿ119ÿ132
ÿ51ÿ118ÿ121ÿ123ÿ133ÿ63ÿ52ÿ132ÿ123ÿ130ÿ137ÿ142ÿ129ÿ139ÿ1
26ÿ141ÿ150ÿ92ÿ46ÿ43ÿ68ÿ82ÿ70ÿ110ÿ140ÿ156ÿ160ÿ148ÿ156ÿ15
8ÿ78ÿ149ÿ151ÿ81ÿ157ÿ147ÿ85ÿ172ÿ164ÿ173ÿ151ÿ163ÿ166ÿ173ÿ
292ÿ95ÿ160ÿ162ÿ95ÿ175ÿ105ÿ163ÿ177ÿ184ÿ177ÿ174ÿ172ÿ174ÿ1
75ÿ191ÿ111ÿ118ÿ176ÿ184ÿ184ÿ186ÿ184ÿ198ÿ183ÿ203ÿ128ÿ120ÿ
199ÿ188ÿ204ÿ206ÿ205ÿ192ÿ212ÿ139ÿ129ÿ207ÿ195ÿ205ÿ215ÿ214
ÿ199ÿ220ÿ213ÿ207ÿ223ÿ152ÿ140ÿ219ÿ223ÿ219ÿ213ÿ232ÿ229ÿ21
2ÿ230ÿ222ÿ229ÿ232ÿ162ÿ152ÿ240ÿ227ÿ228ÿ234ÿ229ÿ240ÿ174ÿ1
60ÿ234ÿ248ÿ233ÿ178ÿ183ÿ179ÿ175ÿ167ÿ214ÿ245ÿ173ÿ257ÿ257ÿ
246ÿ249ÿ248ÿ262ÿ178ÿ246ÿ253ÿ181ÿ268ÿ258ÿ266ÿ255ÿ267ÿ187
ÿ268ÿ258ÿ193ÿ195ÿ240ÿ232ÿ262ÿ281ÿ264ÿ203ÿ202ÿ271ÿ265ÿ27
8ÿ286ÿ202ÿ281ÿ270ÿ208ÿ280ÿ291ÿ288ÿ276ÿ296ÿ289ÿ291ÿ295ÿ2
19ÿ288ÿ286ÿ217ÿ289ÿ302ÿ293ÿ288ÿ297ÿ293ÿ208ÿ203ÿ227ÿ244ÿ
231ÿ287ÿ306ÿ315ÿ302ÿ318ÿ236ÿ315ÿ308ÿ239ÿ325ÿ441ÿ312ÿ318
ÿ309ÿ314ÿ318ÿ249ÿ314ÿ336ÿ335ÿ328ÿ330ÿ318ÿ341ÿ330ÿ335ÿ34
5ÿ326ÿ257ÿ329ÿ345ÿ261ÿ268ÿ315ÿ346ÿ341ÿ346ÿ309ÿ333ÿ338ÿ3
45ÿ342ÿ357ÿ283ÿ283ÿ280ÿ276ÿ361ÿ358ÿ366ÿ364ÿ281ÿ362ÿ356ÿ
284ÿ355ÿ490ÿ357ÿ367ÿ357ÿ357ÿ365ÿ365ÿ294ÿ376ÿ362ÿ382ÿ363
ÿ370ÿ303ÿ381ÿ386ÿ375ÿ307ÿ388ÿ380ÿ310ÿ395ÿ388ÿ396ÿ395ÿ31
0ÿ390ÿ385ÿ315ÿ396ÿ398ÿ398ÿ389ÿ387ÿ319ÿ403ÿ393ÿ411ÿ409ÿ3
29ÿ394ÿ527ÿ396ÿ408ÿ398ÿ403ÿ416ÿ334ÿ422ÿ415ÿ339ÿ413ÿ410ÿ
425ÿ427ÿ407ÿ413ÿ412ÿ357ÿ345ÿ431ÿ421ÿ429ÿ429ÿ429ÿ422ÿ430
ÿ425ÿ436ÿ438ÿ356ÿ426ÿ439ÿ360ÿ428ÿ454ÿ431ÿ440ÿ450ÿ365ÿ44
1ÿ437ÿ369ÿ447ÿ448ÿ446ÿ448ÿ442ÿ448ÿ443ÿ456ÿ392ÿ382ÿ450ÿ3
88ÿ453ÿ468ÿ466ÿ384ÿ466ÿ452ÿ470ÿ388ÿ475ÿ458ÿ473ÿ473ÿ466ÿ
461ÿ474ÿ464ÿ400ÿ411ÿ401ÿ481ÿ477ÿ488ÿ473ÿ473ÿ491ÿ408ÿ493
ÿ612ÿ477ÿ499ÿ496ÿ489ÿ498ÿ618ÿ428ÿ400ÿ394ÿ421ÿ435ÿ423ÿ45
6ÿ511ÿ494ÿ503ÿ494ÿ508ÿ514ÿ499ÿ514ÿ429ÿ506ÿ496ÿ434ÿ510ÿ5
01ÿ520ÿ521ÿ509ÿ523ÿ526ÿ440ÿ509ÿ513ÿ446ÿ522ÿ456ÿ486ÿ520ÿ
522ÿ535ÿ529ÿ535ÿ496ÿ518ÿ526ÿ530ÿ529ÿ545ÿ471ÿ470ÿ463ÿ531
ÿ548ÿ463ÿ537ÿ669ÿ553ÿ539ÿ555ÿ469ÿ550ÿ540ÿ560ÿ475ÿ559ÿ54
6ÿ560ÿ556ÿ568ÿ565ÿ564ÿ482ÿ678ÿ487ÿ561ÿ554ÿ488ÿ564ÿ562ÿ5
62ÿ570ÿ563ÿ494ÿ573ÿ564ÿ573ÿ565ÿ567ÿ581ÿ584ÿ505ÿ578ÿ567ÿ
506ÿ592ÿ571ÿ582ÿ594ÿ586ÿ581ÿ511ÿ596ÿ577ÿ595ÿ582ÿ584ÿ521
ÿ603ÿ603ÿ592ÿ523ÿ593ÿ533ÿ592ÿ607ÿ613ÿ527ÿ611ÿ593ÿ615ÿ53
5ÿ609ÿ605ÿ534ÿ618ÿ612ÿ610ÿ610ÿ539ÿ609ÿ614ÿ542ÿ622ÿ617ÿ6
28ÿ614ÿ631ÿ617ÿ549ÿ625ÿ623ÿ556ÿ620ÿ759ÿ620ÿ643ÿ640ÿ560ÿ
629ÿ631ÿ564ÿ637ÿ629ÿ568ÿ644ÿ642ÿ650ÿ636ÿ655ÿ643ÿ573ÿ652
ÿ660ÿ585ÿ655ÿ658ÿ580ÿ664ÿ644ÿ662ÿ652ÿ583ÿ654ÿ785ÿ670ÿ58
8ÿ672ÿ672ÿ600ÿ668ÿ673ÿ592ÿ660ÿ595ÿ798ÿ665ÿ678ÿ673ÿ683ÿ6
01ÿ624ÿ605ÿ684ÿ691ÿ604ÿ629ÿ611ÿ688ÿ688ÿ695ÿ696ÿ630ÿ593ÿ
591ÿ629ÿ618ÿ665ÿ691ÿ700ÿ698ÿ690ÿ710ÿ709ÿ710ÿ697ÿ627ÿ695
ÿ634ÿ698ÿ710ÿ716ÿ702ÿ703ÿ706ÿ722ÿ723ÿ719ÿ710ÿ722ÿ640ÿ72
1ÿ713ÿ642ÿ728ÿ717ÿ738ÿ731ÿ718ÿ652ÿ719ÿ734ÿ722ÿ858ÿ654ÿ7
24ÿ723ÿ738ÿ742ÿ659ÿ747ÿ742ÿ666ÿ735ÿ741ÿ733ÿ739ÿ741ÿ739ÿ
752ÿ669ÿ741ÿ754ÿ677ÿ754ÿ752ÿ760ÿ759ÿ677ÿ746ÿ767ÿ682ÿ764
ÿ767ÿ755ÿ768ÿ771ÿ756ÿ703ÿ768ÿ754ÿ770ÿ765ÿ762ÿ775ÿ709ÿ67
8ÿ674ÿ712ÿ701ÿ747ÿ769ÿ790ÿ789ÿ788ÿ774ÿ705ÿ792ÿ789ÿ712ÿ7
89ÿ781ÿ792ÿ797ÿ716ÿ799ÿ797ÿ797ÿ733ÿ806ÿ802ÿ721ÿ804ÿ810ÿ
809ÿ729ÿ805ÿ734ÿ764ÿ800ÿ807ÿ815ÿ813ÿ818ÿ772ÿ801ÿ804ÿ812
ÿ807ÿ825ÿ751ÿ754ÿ744ÿ826ÿ824ÿ832ÿ829ÿ749ÿ818ÿ828ÿ827ÿ82
7ÿ820ÿ835ÿ758ÿ835ÿ828ÿ756ÿ845ÿ827ÿ850ÿ849ÿ830ÿ764ÿ956ÿ7
66ÿ837ÿ970ÿ839ÿ848ÿ837ÿ844ÿ858ÿ789ÿ774ÿ858ÿ840ÿ861ÿ846ÿ
848ÿ779ÿ862ÿ867ÿ855ÿ783ÿ863ÿ854ÿ787ÿ874ÿ857ÿ857ÿ858ÿ870
ÿ879ÿ878ÿ862ÿ870ÿ797ÿ864ÿ879ÿ869ÿ888ÿ875ÿ876ÿ886ÿ807ÿ84
0ÿ891ÿ893ÿ885ÿ822ÿ843ÿ825ÿ812ÿ881ÿ826ÿ887ÿ904ÿ902ÿ822ÿ8
88ÿ898ÿ890ÿ903ÿ839ÿ825ÿ903ÿ892ÿ905ÿ913ÿ832ÿ1034ÿ899ÿ836
ÿ914ÿ844ÿ904ÿ917ÿ921ÿ1041ÿ908ÿ912ÿ915ÿ842ÿ926ÿ912ÿ929ÿ8
51ÿ924ÿ921ÿ849ÿ931ÿ932ÿ937ÿ871ÿ939ÿ936ÿ872ÿ843ÿ840ÿ841ÿ
841ÿ917ÿ941ÿ941ÿ940ÿ1061ÿ872ÿ881ÿ882ÿ885ÿ872ÿ906ÿ953ÿ95
8ÿ962ÿ944ÿ880ÿ965ÿ959ÿ954ÿ885ÿ947ÿ959ÿ953ÿ962ÿ886ÿ

Au niveau du saut de ligne automatique quand tu tapes un texte, tu peux coller ça dans la procédure de création de la fenêtre, juste après avoir créé les gadgets.

Code : Tout sélectionner

If CreateGadgetList(......)
  bla-bla
Endif

DC_Msg = GetDC_(GadgetID(#Message))
SendMessage_(GadgetID(#Message), #EM_SETTARGETDEVICE, DC_Msg, GadgetWidth(#Message)*13)
ReleaseDC_(GadgetID(#Message), DC_Msg)