Encrypteur ascii

Commenter

Contenu du snippet

Un Encrypteur en Ascii simple et basique . Très pratique pour échanger des données cryptées , et même de crypter ses pass .

Source / Exemple : 


Private Sub Label1_Click()
 On Error Resume Next
 Text2 = ""
 Text2 = Chr(Text3)
 For i = 1 To Len(Text1.Text)
 NEW_CHAINE = Asc(Mid(Text1.Text, i, 1))
 Text2.Text = Text2 & Chr(NEW_CHAINE + (Val(Text3.Text)))
 Next i
 Text1.Text = ""
End Sub

Private Sub Label3_Click()
Unload Me
End Sub

Private Sub Label2_Click()
    On Error Resume Next
    For i = 2 To Len(Text2.Text)
    NEW_CHAINE = Asc(Mid(Text2.Text, i, 1))
    Text1.Text = Text1 & Chr(NEW_CHAINE - Val(Asc((Mid(Text2.Text, 1, 1)))))
Next i
Text2.Text = ""
End Sub

Conclusion :


Merci à Lion7 pour ses conseils .

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 (Kruptos)