Cryptage

Commenter

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

S'inscrire maintenant

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.

Du même auteur (0SNic0X)