CRYPTAGE VERNAM NEW VERSION
cs_MAURICIO
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
-
30 nov. 2004 à 13:02
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 - 9 déc. 2004 à 20:47
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 - 9 déc. 2004 à 20:47
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/27902-cryptage-vernam-new-version
https://codes-sources.commentcamarche.net/source/27902-cryptage-vernam-new-version
9 déc. 2004 à 20:47
9 déc. 2004 à 13:02
On est là pour apprendre et, toutes les remarques sont constructives même quand celles-ci ne semblent pas justifiées à nos yeux.
8 déc. 2004 à 13:48
;)
6 déc. 2004 à 11:32
:))))
3 déc. 2004 à 19:47
:))))
3 déc. 2004 à 19:06
D' ailleurs, g presque finit ...
Je les posterai peut etre pas vu que ça a l' air d' interesser personne : (
30 nov. 2004 à 18:14
- un fichier crypté
- un fichier clé
Dans ce cas la clé pour chaque byte est un byte (ok, j' ai pas l' ait con là) : soit 0 ou 1 ...
Si qqu' un a envie de s' y coller, ça me permettra de me reposer 2 secondes ....
30 nov. 2004 à 13:02
function STRING_CRYPT(Texto: String): String;
var i: Integer;
_Ord: Integer;
begin
RESULT := '';
for i := 1 to Length(Texto) do
begin
_Ord := Ord(Texto[i]);
If _Ord < 128
Then _Ord := _Ord + 127
Else _Ord := _Ord - 127;
RESULT := Char(_Ord) + RESULT;
end;
end;
function STRING_DECRYPT(Texto: String): String;
var i: Integer;
_Ord: Integer;
begin
RESULT := ''; // Variable := ((i * 100) Div nbCars) + 1; // Entre 1 e 101 ...
for i := 1 to Length(Texto) do
begin
_Ord := Ord(Texto[i]);
If _Ord < 128
Then _Ord := _Ord + 127
Else _Ord := _Ord - 127;
RESULT := Char(_Ord) + RESULT;
end;
end;