Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" a écrit dans le message de news:
%Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" <rien@absent.com> a écrit dans le message de news:
%23tb1hmnUGHA.1444@TK2MSFTNGP11.phx.gbl...
Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" a écrit dans le message de news:
%Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" a écrit dans le message de
news: %essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" a écrit dans le message de news:
%Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de
news: %23ZFdKTpUGHA.5828@TK2MSFTNGP10.phx.gbl...
essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" <rien@absent.com> a écrit dans le message de news:
%23tb1hmnUGHA.1444@TK2MSFTNGP11.phx.gbl...
Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" a écrit dans le message de
news: %essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" a écrit dans le message de news:
%Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
Ok moi je le disais pour plaisanter mais je l'ai utilisé il y a 4 ou 5 ans
pour le fun avec un collègue et ça marche tres bien, le tout est d'etre à
2 pour tester et de ne JAMAIS perdre ses clefs !!!
Patrick
"garnote" a écrit dans le message de news:Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" a écrit dans le message de
news: %essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" a écrit dans le message de news:
%Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
Ok moi je le disais pour plaisanter mais je l'ai utilisé il y a 4 ou 5 ans
pour le fun avec un collègue et ça marche tres bien, le tout est d'etre à
2 pour tester et de ne JAMAIS perdre ses clefs !!!
Patrick
"garnote" <rien@absent.com> a écrit dans le message de news:
eC6MtopUGHA.1160@TK2MSFTNGP09.phx.gbl...
Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de
news: %23ZFdKTpUGHA.5828@TK2MSFTNGP10.phx.gbl...
essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" <rien@absent.com> a écrit dans le message de news:
%23tb1hmnUGHA.1444@TK2MSFTNGP11.phx.gbl...
Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
Ok moi je le disais pour plaisanter mais je l'ai utilisé il y a 4 ou 5 ans
pour le fun avec un collègue et ça marche tres bien, le tout est d'etre à
2 pour tester et de ne JAMAIS perdre ses clefs !!!
Patrick
"garnote" a écrit dans le message de news:Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" a écrit dans le message de
news: %essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" a écrit dans le message de news:
%Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
J'ai lu quelque part qu'il ne fallait pas utiliser une version
américaine, because la chicane RSA PGP.
As-tu ouï quelque chose du genre ?
Serge
"...Patrick" a écrit dans le message de
news:Ok moi je le disais pour plaisanter mais je l'ai utilisé il y a 4 ou 5
ans pour le fun avec un collègue et ça marche tres bien, le tout est
d'etre à 2 pour tester et de ne JAMAIS perdre ses clefs !!!
Patrick
"garnote" a écrit dans le message de news:Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" a écrit dans le message de
news: %essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" a écrit dans le message de news:
%Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
J'ai lu quelque part qu'il ne fallait pas utiliser une version
américaine, because la chicane RSA PGP.
As-tu ouï quelque chose du genre ?
Serge
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de
news: uXwCc1pUGHA.5808@TK2MSFTNGP12.phx.gbl...
Ok moi je le disais pour plaisanter mais je l'ai utilisé il y a 4 ou 5
ans pour le fun avec un collègue et ça marche tres bien, le tout est
d'etre à 2 pour tester et de ne JAMAIS perdre ses clefs !!!
Patrick
"garnote" <rien@absent.com> a écrit dans le message de news:
eC6MtopUGHA.1160@TK2MSFTNGP09.phx.gbl...
Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de
news: %23ZFdKTpUGHA.5828@TK2MSFTNGP10.phx.gbl...
essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" <rien@absent.com> a écrit dans le message de news:
%23tb1hmnUGHA.1444@TK2MSFTNGP11.phx.gbl...
Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
J'ai lu quelque part qu'il ne fallait pas utiliser une version
américaine, because la chicane RSA PGP.
As-tu ouï quelque chose du genre ?
Serge
"...Patrick" a écrit dans le message de
news:Ok moi je le disais pour plaisanter mais je l'ai utilisé il y a 4 ou 5
ans pour le fun avec un collègue et ça marche tres bien, le tout est
d'etre à 2 pour tester et de ne JAMAIS perdre ses clefs !!!
Patrick
"garnote" a écrit dans le message de news:Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" a écrit dans le message de
news: %essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" a écrit dans le message de news:
%Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
non rien entendu
j'ai PGPi (version internationalle et free)
Pat
"garnote" a écrit dans le message de news:J'ai lu quelque part qu'il ne fallait pas utiliser une version
américaine, because la chicane RSA PGP.
As-tu ouï quelque chose du genre ?
Serge
"...Patrick" a écrit dans le message de
news:Ok moi je le disais pour plaisanter mais je l'ai utilisé il y a 4 ou 5
ans pour le fun avec un collègue et ça marche tres bien, le tout est
d'etre à 2 pour tester et de ne JAMAIS perdre ses clefs !!!
Patrick
"garnote" a écrit dans le message de news:Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" a écrit dans le message de
news: %essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" a écrit dans le message de news:
%Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
non rien entendu
j'ai PGPi (version internationalle et free)
Pat
"garnote" <rien@absent.com> a écrit dans le message de news:
OmCEk4pUGHA.2704@tk2msftngp13.phx.gbl...
J'ai lu quelque part qu'il ne fallait pas utiliser une version
américaine, because la chicane RSA PGP.
As-tu ouï quelque chose du genre ?
Serge
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de
news: uXwCc1pUGHA.5808@TK2MSFTNGP12.phx.gbl...
Ok moi je le disais pour plaisanter mais je l'ai utilisé il y a 4 ou 5
ans pour le fun avec un collègue et ça marche tres bien, le tout est
d'etre à 2 pour tester et de ne JAMAIS perdre ses clefs !!!
Patrick
"garnote" <rien@absent.com> a écrit dans le message de news:
eC6MtopUGHA.1160@TK2MSFTNGP09.phx.gbl...
Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de
news: %23ZFdKTpUGHA.5828@TK2MSFTNGP10.phx.gbl...
essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" <rien@absent.com> a écrit dans le message de news:
%23tb1hmnUGHA.1444@TK2MSFTNGP11.phx.gbl...
Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
non rien entendu
j'ai PGPi (version internationalle et free)
Pat
"garnote" a écrit dans le message de news:J'ai lu quelque part qu'il ne fallait pas utiliser une version
américaine, because la chicane RSA PGP.
As-tu ouï quelque chose du genre ?
Serge
"...Patrick" a écrit dans le message de
news:Ok moi je le disais pour plaisanter mais je l'ai utilisé il y a 4 ou 5
ans pour le fun avec un collègue et ça marche tres bien, le tout est
d'etre à 2 pour tester et de ne JAMAIS perdre ses clefs !!!
Patrick
"garnote" a écrit dans le message de news:Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" a écrit dans le message de
news: %essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" a écrit dans le message de news:
%Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
Salut Pat
Tu peux expliquer en deux mots, svp?
On met les patates dans un fichier, on les passe dans ta machine et il en
sort des frites? C'est cela?
6 c ça, quelqu'un qui possède ton logiciel, il peut retraduire?
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"...Patrick" a écrit dans le message de
news:non rien entendu
j'ai PGPi (version internationalle et free)
Pat
"garnote" a écrit dans le message de news:J'ai lu quelque part qu'il ne fallait pas utiliser une version
américaine, because la chicane RSA PGP.
As-tu ouï quelque chose du genre ?
Serge
"...Patrick" a écrit dans le message de
news:Ok moi je le disais pour plaisanter mais je l'ai utilisé il y a 4 ou 5
ans pour le fun avec un collègue et ça marche tres bien, le tout est
d'etre à 2 pour tester et de ne JAMAIS perdre ses clefs !!!
Patrick
"garnote" a écrit dans le message de news:Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" a écrit dans le message de
news: %essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" a écrit dans le message de news:
%Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
Salut Pat
Tu peux expliquer en deux mots, svp?
On met les patates dans un fichier, on les passe dans ta machine et il en
sort des frites? C'est cela?
6 c ça, quelqu'un qui possède ton logiciel, il peut retraduire?
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de
news: ORPtQHxUGHA.5172@TK2MSFTNGP12.phx.gbl...
non rien entendu
j'ai PGPi (version internationalle et free)
Pat
"garnote" <rien@absent.com> a écrit dans le message de news:
OmCEk4pUGHA.2704@tk2msftngp13.phx.gbl...
J'ai lu quelque part qu'il ne fallait pas utiliser une version
américaine, because la chicane RSA PGP.
As-tu ouï quelque chose du genre ?
Serge
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de
news: uXwCc1pUGHA.5808@TK2MSFTNGP12.phx.gbl...
Ok moi je le disais pour plaisanter mais je l'ai utilisé il y a 4 ou 5
ans pour le fun avec un collègue et ça marche tres bien, le tout est
d'etre à 2 pour tester et de ne JAMAIS perdre ses clefs !!!
Patrick
"garnote" <rien@absent.com> a écrit dans le message de news:
eC6MtopUGHA.1160@TK2MSFTNGP09.phx.gbl...
Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de
news: %23ZFdKTpUGHA.5828@TK2MSFTNGP10.phx.gbl...
essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" <rien@absent.com> a écrit dans le message de news:
%23tb1hmnUGHA.1444@TK2MSFTNGP11.phx.gbl...
Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
Salut Pat
Tu peux expliquer en deux mots, svp?
On met les patates dans un fichier, on les passe dans ta machine et il en
sort des frites? C'est cela?
6 c ça, quelqu'un qui possède ton logiciel, il peut retraduire?
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"...Patrick" a écrit dans le message de
news:non rien entendu
j'ai PGPi (version internationalle et free)
Pat
"garnote" a écrit dans le message de news:J'ai lu quelque part qu'il ne fallait pas utiliser une version
américaine, because la chicane RSA PGP.
As-tu ouï quelque chose du genre ?
Serge
"...Patrick" a écrit dans le message de
news:Ok moi je le disais pour plaisanter mais je l'ai utilisé il y a 4 ou 5
ans pour le fun avec un collègue et ça marche tres bien, le tout est
d'etre à 2 pour tester et de ne JAMAIS perdre ses clefs !!!
Patrick
"garnote" a écrit dans le message de news:Salut Patrick,
J'ai appris, la semaine dernière, l'existence de Pretty Good Privacy !
Je songe à monter un dossier Excel sur les techniques de cryptage;
de l'époque des pharaons à l'ordinateur quantique.
Pour le plaisir, toujours pour le plaisir ;-)
Le printemps m'émoustille ( lalalalalère )
A+
Serge
"...Patrick" a écrit dans le message de
news: %essaie de trouver PGP, c'est plus facile, et gratuit aussi ; -))
Patrick
"garnote" a écrit dans le message de news:
%Bonjour, Bonjour,
Je m'intéresse présentement aux diverses
techniques de cryptage de messages que j'essaie
de programmer VBA. Par exemple, une technique
déjà utilisée, paraît-il, par de nombreux écoliers.
Soit à coder : Bonjour, Bonjour,
Écrire le texte sur deux lignes comme ceci :
Un caractère en haut, le suivant en bas ...
Bnor oju,
oju,Bnor
et mettre les caractères du bas à côté des caractères du haut.
Le message codé est donc :
Bnor oju,oju,Bnor
Function codage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim tc As String
nc = Len(texte)
For i = 1 To nc Step 2
t1 = t1 & Mid(texte, i, 1)
Next i
For i = 2 To nc Step 2
t2 = t2 & Mid(texte, i, 1)
Next i
tc = t1 & t2
codage = tc
End Function
Nu iiosbe a éoe e oos;)osfnrn inprdjurlsrbt -
Function decodage(texte As String)
Dim nc As Integer
Dim t1 As String, t2 As String
Dim td As String
nc = Len(texte)
n = Int(nc / 2 + 0.5)
t1 = Left(texte, n)
t2 = Right(texte, nc - n)
For i = 1 To n
td = td & Mid(t1, i, 1) & Mid(t2, i, 1)
Next i
decodage = td
End Function
Et je pars à l'assaut du RSA ;-)
Bonne journée,
Serge
