Soyez le premier à donner votre avis sur cette source.
Vue 16 002 fois - Téléchargée 989 fois
Public Class Form1 Inherits System.Windows.Forms.Form Public strMessage As System.String Public strCrypt As System.String Public strDecrypt As System.String Public strLettre As System.Char Public intCompteur As System.Int32 Public intcompteur1 As System.Int32 Private Sub btnCrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCrypt.Click strMessage = txtMessage.Text For intCompteur = 0 To strMessage.Length - 1 Step 1 For intcompteur1 = 0 To 255 Step 1 strLettre = strMessage.Substring(intCompteur, 1) If strLettre = Chr(intcompteur1) Then If intcompteur1 > 252 Then strLettre = Chr(intcompteur1 - 253) lblCrypt.Text &= strLettre Else strLettre = Chr(intcompteur1 + 3) lblCrypt.Text &= strLettre End If End If Next Next End Sub Private Sub btnDecrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDecrypt.Click strCrypt = lblCrypt.Text For intCompteur = 0 To strCrypt.Length - 1 Step 1 For intcompteur1 = 0 To 255 Step 1 strLettre = strCrypt.Substring(intCompteur, 1) If strLettre = Chr(intcompteur1) Then If intcompteur1 < 3 Then strLettre = Chr(intcompteur1 + 253) lblDecrypt.Text &= strLettre Else strLettre = Chr(intcompteur1 - 3) lblDecrypt.Text &= strLettre End If End If Next Next End Sub Private Sub btnEffacer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEffacer.Click txtMessage.Text = "" lblCrypt.Text = "" lblDecrypt.Text = "" txtMessage.Focus() End Sub Private Sub btnQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuitter.Click Me.Close() End Sub End Class
12 oct. 2010 à 13:04
5 avril 2006 à 21:09
A plus.
5 avril 2006 à 00:52
# strLettre = Chr(intcompteur1 - 253)
# lblCrypt.Text &= strLettre
# Else
# strLettre = Chr(intcompteur1 + 3)
# lblCrypt.Text &= strLettre
# End If
peut être remplacé par
# lblCrypt.Text &= Chr((intcompteur1 + 3) mod 256 )
de même pour le décryptage :)
bonne prog
4 avril 2006 à 22:21
Merci
4 avril 2006 à 21:47
l'autre est mieux :)
www.troxsa.info
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.