(    f >0@-@-_        _      ,Arial-P,1Courier New-P!@!@!@!@!@#P@-#P#P>-#P@-#P@-#P`#P`#P# P # P# P # P # P#P >#P #Ps#P #P>#P #P#P #P #P#P  `P `P*v _Wv2?@  -         '!#)#1L,9C C!-('tableau 1 :S1=A ou-Ex B4 'tableau 2 : S2= (A ou-Ex B) ou-Ex B=S1 ou-ex B'A%%@%%@ 'A% % @% %@'B%%%@%@ 'B% % % @%@'S1 'S1'tableau 3 'S2% %%%%%%%@% @% % @% @% % % @% @ 'binaire en dcimal((  @;(. ?  /@;(4   //@;(: ?  ///@;(@ ?  ////@;(F   /////@;(L ?  //////@;(.  /@@;% A 'dcimal en binaire((  @;(.   /@;(4   //@;(: ?  ///@;(@ ?  ////@;(F ?  /////@;(L   //////@;(.  /@@;% 'tableau 4 'tableau 5^H^E^L^L^O 'message 'cl'message cod'->'message cod 'cl'message dcod'Descriptif des fonctions'@OuExclu(v1;v2) o'v1 et v2 sont des valeurs entires, la fonction renvoie un Ou Exclusif effectu digit par digit en base 2'@CarOuExclu(c1;c2) 'c1 et c2 sont des caractres , la fonction effectue un Ou Exclusif entre les codes des deux caractres et renvoie le caractre correspondant au rsultatt'si c1=c2, le Ou Exclusif donne 0, qui n'a pas de caractre correspondant : la fonction renvoie une chane vide'Si c1 ou c2 est une chaine ou une cellule vide, le code utilis dans le Ou Exclusif est 0 (qui n'a pas de caractre correspondant) <'L'"autorciprocit" du Ou exclusif est ainsi prserve '@CarNumOuExclu(c1;v2)n 'Effectue un Ou Exclusif entre le code du caractre c1 et l'entier v2, et renvoie l'entier correspondant$ '@ChaineOuExclu(origine;masque) 'Origine et Masque sont des chanes de caractre, Masque ne doit pas contenir d'espaces. La fonction effectue un OuEx entre les codes des caractres  ' ayant la mme position dans les deux chanes et convertit le rsultat en un caractre, puis renvoie une chane constitue de tous ces caractres. Z'Si Masque est plus petit que Origine il est rpt autant de fois que ncessaire. 'Attention : la fonction risque de gnrer une erreur lorsque l'origine et la chane contiennent le mme caractre au mme endroit, puisque ['la fonction Ou Ex renvoie alors la valeur 0, qui n'a pas de caractre correspondant. 'Astuce : ecrire la chaine origine (le message) en MAJUSCULES et utiliser uniquement minuscules, chiffres et caractres unusuels pour la cl.BC A:A1..A:P24 B@  BC A:A1..A:P24  88Pu ``??   $ PPP PPPPPPP PPPPPP PPPPPPPP PPPP PPPPP PPP PP PPP P PPPPPPPPPPPPPPPPPPPPPPPPPPPPP P PP PP PP P PP PP PP PP P P P PP PP P P P P P P PP P P PP P P PP P PP P P AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA   X X (   H  H  P       h    P    A- A-   A- A- A< A- A,- A- 2>   '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Public Function ouexclu(v1 As Integer,v2 As Integer) As Integer Declare Public Function CarOuExclu(c1 As String,c2 As String) As String Declare Public Function ChaineOuExclu(origine As String,masque As String) As String Declare Public Function CarNumOuExclu(c1 As String,c2 As Integer) As Integer '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:1:ouexclu:1:8 Public Function ouexclu(v1 As Integer,v2 As Integer) As Integer ouexclu=(v1) Xor (v2) End Function '++LotusScript Development Environment:2:1:CarOuExclu:1:8 Public Function CarOuExclu(c1 As String,c2 As String) As String If (c1="") Then ac1=0 Else ac1=Asc(c1) If (c2="") Then ac2=0 Else ac2=Asc(c2) If (ac1<> ac2) Then CarouExclu=Chr$(ac1 Xor ac2) Else CarOuExclu="" End Function '++LotusScript Development Environment:2:1:ChaineOuExclu:1:8 Public Function Chai neOuExclu(origine As String,masque As String) As String ChaineOuExclu="" masque2=masque If Len(masque)<Len(origine) Then For i=(Len(masque)) To Len(origine) masque2=masque2+Mid$(masque,1+(i Mod (Len(masque)) ),1) Next End If For i=1 To Len(origine) resultat=Chr$(Asc(Mid$(origine,i,1) ) Xor Asc(Mid$(masque2,i,1))) ChaineOuExclu=ChaineOuExclu + resultat Next End Function REM ce n'est pas la mme que dans essaisXOR mais le rsultat est similaire '++LotusScript Development Environment:2:1:CarNumOuExclu:1:8 Public Function CarNumOuExclu(c1 As String,c2 As Integer) As Integer CarNumouExclu=(Asc(c1) Xor (c2)) End Function$Y  LSOBFRU8T\\\Lotus ProductV0.0UINCENDOBJECTTE : : : :B: : :00XPCHXs U8Ps  $t;C;CC9s <C:CL;C\:C4:C :C4C1C1C1C0Ct1C|)CT)C,)C)C(C  $*42D348ClNEWDELETE INITIALIZE TERMINATEOBJECTH\V1V2C1C2(ORIGINEMASQUEOUEXCLU CAROUEXCLUdAC1|AC2 CHAINEOUEXCLUMASQUE2IRESULTAT CARNUMOUEXCLU  K%d4tt44$$dd t$\,,tDD<<,,ttTTLL<,LD>4 TLt` hP` Y YaWW¥It}8 ^$: ^$It I}8 ^4: ^4I J$J48]dJ$J4–B:]d}],}^DIL]L%]<%8?^T]L%]<%^d4( ^DJDILJT]L%M!^d6"#^T]<%^4?$^tI<JTM JDJTM B%],I,Jt&^6'/aI W•0   '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Function essai '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As DOCUMENT Set Source = Bind(Objectname_) End Sub '++LotusScript Development Environment:2:1:essai:1:8 Function essai essai=3 End Function$(  LSOBFR$|$8TllLotus ProductV0.0$|  *2F27498lNEWDELETE INITIALIZE TERMINATElOBJECT (GLOBALS) (Globals) BINDEVENTS OBJECTNAME_SOURCE<DOCUMENT main123w.dllSEDefaultClassControlESSAI  [0*n ll\\\\ ).i]).i]@h" pp ( (Ҥ [\I ] >6!6 BLB B  N|@ d      A_  ,  B@   B@      B_, B@  B@   W  nathalienathalietableau ou-ex pour masque123123 PropertyDoc Info AuthorDoc Info CommentsDoc Info Editing TimeDoc Info KeywordsDoc Info Last RevisorDoc Info ObjectDoc Info RevisionsDoc Info Revisions CountDoc Info SubjectDoc Info Title  ]<X_ :\ 6\[\\[ G\[ \ [ \  \ \  \W\ \\&\\*\i\.\CMHdr]<