Cryptage

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 779 fois - Téléchargée 36 fois

Contenu du snippet

Un petit programme qui crypte, si on peut appeller ça crypatge, grâce à une subtitution monoalphabétique : une lettre est remplacé par une autre le "a" par le "b" par exemple!

Un grand nom pour pas grand chose. enfin...

Source / Exemple :


Function transfo(lettre As String, rotation)
lettre = Asc(lettre) + rotation
transfo = Chr(lettre)
End Function

Private Sub Command1_Click()
Dim textnc As String
Dim chaine As String
Dim chaine1 As String
Dim i As Integer
Dim rotation
textnc = Text1
rotation = Text3
For i = 1 To Len(textnc)
chaine = Mid(textnc, i, 1)
chaine = transfo(chaine, rotation)
chaine1 = chaine1 & chaine
Next
Text2 = chaine1
End Sub

Private Sub mnuimportant_Click()
Form4.Show vbModal
End Sub
Private Sub mnuquit_Click()
Unload Me
End Sub

A voir également

Ajouter un commentaire

Commentaires

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.