Deux possibilités de cryptages texte... Laquelle la meilleure?

Question

Bonjour,

J'ai trouvé deux logiciels faits sous VB qui permettent de crypter du texte... 

Laquelle est la plus sécuritaire?
Ai-je raison de dire qu'elles se ressemblent? (Interface quasi identique et le texte crypté se ressemble aussi)

C'est des ZIP.... 

Les liens ou j'ai trouvé ces sources:
http://www.vbfrance.com/code.aspx?ID=4160
http://www.vbfrance.com/code.aspx?ID=27276

Merci d'avance

thierrydelepine · Answer

Je suis l'auteur de l'un deux sources et je ne vois pas ou il a ressemblence ??
dans mon code j'utilise les API integre de Windows de crytage alors que l'autre code il a cree une classe avec son propre algo RC4 ?????

ne pas confondre le code et l'interface, il est normal que tout code de demo de cryptage est un champ texte non crypté, un champ clé et un champ texte crypté.

l'ideal pour toi est de faire des tests, pour ma part je prefere le mien puisque le me base sur le cryptage fourni par Windows.

danielgrd · Answer

Bonjour,

Je suis vraiment newbie sur VB... Moi ce que je disais c'est qu'au premier coup d'oeil cela semblait se ressembler... 

Mais c'est justement ta source que j'essais d'utiliser pour crypter le contenu d'un fichier .txt

1erement j'extrait le contenu du fichier .txt  dans une variable, je crypte cette variable avec ton algo API, j'efface le fichier .txt et j'en crée un autre contenant le texte crypté de la variable...(voir sources plus bas)

Même chose pour le décryptage...

(j'utilise toujours le même mot de passe)

Mais il se passe quelque chose...

Le contenu du fichier décrypter contient toujours des caractères de trop à la fin...

Par exemple :

Je crypte le fichier "f.txt" contenant :

TEST1
TEST2
TEST3
TEST4
TEST5

Et lorsque je le décrypte, il m'ajoute 2 caractère après TEST5 : 3)

Il donne :

TEST1
TEST2
TEST3
TEST4
TEST53)

J'ai utilisé le mot de passe : avc

Merci d'avance

VOILÀ MA SOURCE  :
Il y a 2 boutons : Command1 = Crypter
                            Command2 = Décrypter

-----------------------------------------------------------

Dim Crypt As clsCryptoFilterBox

Private Sub Command1_Click()
Dim FIC As Variant

Open "c:\f.txt" For Input As #1
FIC = Input$(LOF(1), 1)
Close #1

Set Crypt = New clsCryptoFilterBox
Crypt.Password = "avc"
Crypt.InBuffer = FIC
Crypt.Encrypt
FIC = Crypt.OutBuffer
Set Crypt = Nothing

Open "c:\f.txt" For Output As #1
'ecriture
Print #1, FIC
'fermeture fichier
Close #1
End Sub

Private Sub Command2_Click()
Dim FIC As Variant

Open "c:\f.txt" For Input As #1
FIC = Input$(LOF(1), 1)
Close #1

Set Crypt = New clsCryptoFilterBox

Crypt.Password = "avc"
Crypt.InBuffer = FIC
Crypt.Decrypt
FIC = Crypt.OutBuffer

Open "c:\f.txt" For Output As #1
'ecriture
Print #1, FIC
'fermeture fichier
Close #1
End Sub
--------------------------------------------------------------

thierrydelepine · Answer

si tu ne passe pas par un fichier(CF: l'exemple d'utilisation de mon source), le probleme ne se produit pas.

Toi tu passe par des fichiers, c'est peut etre ta methode d'ecriture dans le fichier qui ajoute un retour chariot par exemple en fin de fichier donc le decrypteur decrypte aussi ces deux caracteres.

essaye en stockant ton resultat dans des variables si cela marche c'est bien un probleme de methode d'acces au fichier "PRINT"

danielgrd · Answer

Allo,

Tu as raison... Je m'en suis aperçu peu de temps après d'avoir écrit ce message... C'est réellement mes méthodes de lecture et d'écriture qui rajoutent un 'retour de chariot' à l'intérieur de mon fichier .txt

Mais il n'y a plus de problème maintenant... Je me suis débrouillé autrement!

Merci

Deux possibilités de cryptages texte... Laquelle la meilleure?

4 réponses

Discussions similaires