Sub Décodage() ' Collez le message reçu: mr ' et les valeurs de la clé: a = : b m = Split(mr, ".") For i = 0 To UBound(m) md = md & Chr((m(i) - b) / a) Next i ' Message décodé : MsgBox md End Sub
Sub Codage() ' Écrire un court message en A1 ' Écrire, en A1: un nombre <> 0 ' en B1: un nombre ' Le message codé apparaîtra en A2 a = [B1]: b = [C1] f = Len([A1]) For i = 1 To f mc = mc & a * Asc(Mid([A1], i, 1)) + b & "." Next i [A2] = """" & Left(mc, Len(mc) - 1) & """" ' Envoyer le message codé avec la clé : ' a = [B1] et b = [C1] End Sub
;-)))
Serge
"" a écrit dans le message de news: #
j'ai trouvé, qu'est-ce j'ai gagné ???
la réponse est :... ... ... ... ... ... .. "le beaujolpif c'est de la piquette"
"garnote" a écrit dans le message de news: TyuYa.16724$
Sub Décodage()
' Collez le message reçu:
mr ' et les valeurs de la clé:
a = : b m = Split(mr, ".")
For i = 0 To UBound(m)
md = md & Chr((m(i) - b) / a)
Next i
' Message décodé :
MsgBox md
End Sub
Sub Codage()
' Écrire un court message en A1
' Écrire, en A1: un nombre <> 0
' en B1: un nombre
' Le message codé apparaîtra en A2
a = [B1]: b = [C1]
f = Len([A1])
For i = 1 To f
mc = mc & a * Asc(Mid([A1], i, 1)) + b & "."
Next i
[A2] = """" & Left(mc, Len(mc) - 1) & """"
' Envoyer le message codé avec la clé :
' a = [B1] et b = [C1]
End Sub
;-)))
Serge
"j@c" <jacques.chaussard@noos.fr> a écrit dans le message de news:
#LEEpqQXDHA.2576@TK2MSFTNGP09.phx.gbl...
j'ai trouvé, qu'est-ce j'ai gagné ???
la réponse est :...
...
...
...
...
...
..
"le beaujolpif c'est de la piquette"
"garnote" <laogarno@globetrotter.net> a écrit dans le message de news:
TyuYa.16724$Yz.3505@charlie.risq.qc.ca...
Sub Décodage() ' Collez le message reçu: mr ' et les valeurs de la clé: a = : b m = Split(mr, ".") For i = 0 To UBound(m) md = md & Chr((m(i) - b) / a) Next i ' Message décodé : MsgBox md End Sub
Sub Codage() ' Écrire un court message en A1 ' Écrire, en A1: un nombre <> 0 ' en B1: un nombre ' Le message codé apparaîtra en A2 a = [B1]: b = [C1] f = Len([A1]) For i = 1 To f mc = mc & a * Asc(Mid([A1], i, 1)) + b & "." Next i [A2] = """" & Left(mc, Len(mc) - 1) & """" ' Envoyer le message codé avec la clé : ' a = [B1] et b = [C1] End Sub
;-)))
Serge
"" a écrit dans le message de news: #
j'ai trouvé, qu'est-ce j'ai gagné ???
la réponse est :... ... ... ... ... ... .. "le beaujolpif c'est de la piquette"
"garnote" a écrit dans le message de news: TyuYa.16724$
Sub Décodage() ' Collez le message reçu: mr > ' et les valeurs de la clé: a = : b > m = Split(mr, ".") For i = 0 To UBound(m) md = md & Chr((m(i) - b) / a) Next i ' Message décodé : MsgBox md End Sub
' Le message codé apparaîtra en A2 a = [B1]: b = [C1] f = Len([A1]) For i = 1 To f mc = mc & a * Asc(Mid([A1], i, 1)) + b & "." Next i [A2] = """" & Left(mc, Len(mc) - 1) & """" ' Envoyer le message codé avec la clé : ' a = [B1] et b = [C1] End Sub
;-)))
Serge
"" a écrit dans le message de news: #
j'ai trouvé, qu'est-ce j'ai gagné ???
la réponse est :... ... ... ... ... ... .. "le beaujolpif c'est de la piquette"
"garnote" a écrit dans le message de news: TyuYa.16724$
Sub Décodage()
' Collez le message reçu:
mr > ' et les valeurs de la clé:
a = : b > m = Split(mr, ".")
For i = 0 To UBound(m)
md = md & Chr((m(i) - b) / a)
Next i
' Message décodé :
MsgBox md
End Sub
' Le message codé apparaîtra en A2
a = [B1]: b = [C1]
f = Len([A1])
For i = 1 To f
mc = mc & a * Asc(Mid([A1], i, 1)) + b & "."
Next i
[A2] = """" & Left(mc, Len(mc) - 1) & """"
' Envoyer le message codé avec la clé :
' a = [B1] et b = [C1]
End Sub
;-)))
Serge
"j@c" <jacques.chaussard@noos.fr> a écrit dans le message de news:
#LEEpqQXDHA.2576@TK2MSFTNGP09.phx.gbl...
j'ai trouvé, qu'est-ce j'ai gagné ???
la réponse est :...
...
...
...
...
...
..
"le beaujolpif c'est de la piquette"
"garnote" <laogarno@globetrotter.net> a écrit dans le message de news:
TyuYa.16724$Yz.3505@charlie.risq.qc.ca...
Sub Décodage() ' Collez le message reçu: mr > ' et les valeurs de la clé: a = : b > m = Split(mr, ".") For i = 0 To UBound(m) md = md & Chr((m(i) - b) / a) Next i ' Message décodé : MsgBox md End Sub
' Le message codé apparaîtra en A2 a = [B1]: b = [C1] f = Len([A1]) For i = 1 To f mc = mc & a * Asc(Mid([A1], i, 1)) + b & "." Next i [A2] = """" & Left(mc, Len(mc) - 1) & """" ' Envoyer le message codé avec la clé : ' a = [B1] et b = [C1] End Sub
;-)))
Serge
"" a écrit dans le message de news: #
j'ai trouvé, qu'est-ce j'ai gagné ???
la réponse est :... ... ... ... ... ... .. "le beaujolpif c'est de la piquette"
"garnote" a écrit dans le message de news: TyuYa.16724$
Sub Décodage() ' Collez le message reçu: mr > ' et les valeurs de la clé: a = : b > m = Split(mr, ".") For i = 0 To UBound(m) md = md & Chr((m(i) - b) / a) Next i ' Message décodé : MsgBox md End Sub
Sub Codage() ' Écrire un court message en A1 ' Écrire, en A1: un nombre <> 0 ' en B1: un nombre ' Le message codé apparaîtra en A2 a = [B1]: b = [C1] f = Len([A1]) For i = 1 To f mc = mc & a * Asc(Mid([A1], i, 1)) + b & "." Next i [A2] = """" & Left(mc, Len(mc) - 1) & """" ' Envoyer le message codé avec la clé : ' a = [B1] et b = [C1] End Sub
;-)))
Serge
"" a écrit dans le message de news: #
j'ai trouvé, qu'est-ce j'ai gagné ???
la réponse est :... ... ... ... ... ... .. "le beaujolpif c'est de la piquette"
"garnote" a écrit dans le message de news: TyuYa.16724$
Sub Décodage()
' Collez le message reçu:
mr > ' et les valeurs de la clé:
a = : b > m = Split(mr, ".")
For i = 0 To UBound(m)
md = md & Chr((m(i) - b) / a)
Next i
' Message décodé :
MsgBox md
End Sub
Sub Codage()
' Écrire un court message en A1
' Écrire, en A1: un nombre <> 0
' en B1: un nombre
' Le message codé apparaîtra en A2
a = [B1]: b = [C1]
f = Len([A1])
For i = 1 To f
mc = mc & a * Asc(Mid([A1], i, 1)) + b & "."
Next i
[A2] = """" & Left(mc, Len(mc) - 1) & """"
' Envoyer le message codé avec la clé :
' a = [B1] et b = [C1]
End Sub
;-)))
Serge
"j@c" <jacques.chaussard@noos.fr> a écrit dans le message de news:
#LEEpqQXDHA.2576@TK2MSFTNGP09.phx.gbl...
j'ai trouvé, qu'est-ce j'ai gagné ???
la réponse est :...
...
...
...
...
...
..
"le beaujolpif c'est de la piquette"
"garnote" <laogarno@globetrotter.net> a écrit dans le message de news:
TyuYa.16724$Yz.3505@charlie.risq.qc.ca...
Sub Décodage() ' Collez le message reçu: mr > ' et les valeurs de la clé: a = : b > m = Split(mr, ".") For i = 0 To UBound(m) md = md & Chr((m(i) - b) / a) Next i ' Message décodé : MsgBox md End Sub
Sub Codage() ' Écrire un court message en A1 ' Écrire, en A1: un nombre <> 0 ' en B1: un nombre ' Le message codé apparaîtra en A2 a = [B1]: b = [C1] f = Len([A1]) For i = 1 To f mc = mc & a * Asc(Mid([A1], i, 1)) + b & "." Next i [A2] = """" & Left(mc, Len(mc) - 1) & """" ' Envoyer le message codé avec la clé : ' a = [B1] et b = [C1] End Sub
;-)))
Serge
"" a écrit dans le message de news: #
j'ai trouvé, qu'est-ce j'ai gagné ???
la réponse est :... ... ... ... ... ... .. "le beaujolpif c'est de la piquette"
"garnote" a écrit dans le message de news: TyuYa.16724$
