CRYPTAGE

Signaler
Messages postés
262
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
1 février 2019
-
GRAUKHRAAN
Messages postés
2
Date d'inscription
mercredi 26 janvier 2005
Statut
Membre
Dernière intervention
16 février 2005
-
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/7663-cryptage

GRAUKHRAAN
Messages postés
2
Date d'inscription
mercredi 26 janvier 2005
Statut
Membre
Dernière intervention
16 février 2005

ok, merci et désolé.
Je crois que ca suffit...
KaViDee
Messages postés
262
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
1 février 2019

"If Car < 0" est un bug d'affichage de vbfrance
c'est en réalité If Car > 0
et a l'autre ligne c'es le signe "<" (inférieur)
GRAUKHRAAN
Messages postés
2
Date d'inscription
mercredi 26 janvier 2005
Statut
Membre
Dernière intervention
16 février 2005

bonjour,

Je suis debutant et je suis désolé mais le code de KaViDee n'est pas bon ou du moin pour vb 5 car j'ai fait un copier coller et il ne comprend pas la ligne

If Car < 0

néanmoin je me suis inspiré de ce qu'il a fait et je pense qu'un débutant aurait pu le faire (vu que j'y suis arrivé)
romit
Messages postés
160
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
30 juin 2011

Très très bon travail.

Dommage qu'il n'y aie pas de ZIP !

J'ai mis 10/10

Désolé de pas savoir mettre plus

ET TU L'AS MIS EN DEBUTANT ?!

Je pense pas qu'un débutant puisse inventer ça !
KaViDee
Messages postés
262
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
1 février 2019

Salut, déjà ton prog n'est pas du cryptage, c'est un encodage car tu ne définis pas de clé(s). Et le gros défaut de ton encodage c'est que ça marche sur un seul caractère, en gros ça sert à rien. Et tu as encore oublié un détail, si par exemple tu fais Asc("ÿ")+20 tu va te retrouver avec 275 qui ne correspond a aucun caractère ascii.
Je te montre mon algo que j'avais fais ya quelques temps pour un prog qui décale de X octets une chaine de caractères.

Public Function Decale(ByVal Text As String, NbDecale As Integer, Optional Inverse As Boolean = False)
Dim Car As Integer, NewCar As String
For i = 1 To Len(Text)
Car = Asc(Mid(Text, i, 1))

If Inverse = False Then
Car = Car - NbDecale
If Car < 0 Then Car = 255 - Abs(Car)
End If
If Inverse = True Then
Car = Car + NbDecale
If Car > 255 Then Car = Car - 255
End If

NewCar = Chr(Car)
Decale = Decale & NewCar
Next i
End Function

@+
KaViDee