CRYPTAGE
KaViDee
Messages postés
262
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 juin 2008
-
27 juin 2003 à 10:38
GRAUKHRAAN Messages postés 2 Date d'inscription mercredi 26 janvier 2005 Statut Membre Dernière intervention 16 février 2005 - 16 févr. 2005 à 16:28
GRAUKHRAAN Messages postés 2 Date d'inscription mercredi 26 janvier 2005 Statut Membre Dernière intervention 16 février 2005 - 16 févr. 2005 à 16:28
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
https://codes-sources.commentcamarche.net/source/7663-cryptage
16 févr. 2005 à 16:28
Je crois que ca suffit...
16 févr. 2005 à 12:39
c'est en réalité If Car > 0
et a l'autre ligne c'es le signe "<" (inférieur)
16 févr. 2005 à 11:46
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é)
20 sept. 2004 à 18:22
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 !
27 juin 2003 à 10:38
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