cryptage : pk sa marche pas :'(

slt,
j'ai un ptit code, et jaimerai connaitre mon erreur. Je suis débutant , c'est pk vous n'aurez pa trop de mal a trouver lerreur. merci.

Private Sub Command1_Click() Dim i As Integer Dim crypte as string Dim fred As String crypte = InputBox("tappez votre message a crypter", "crypte", "message") longueur = Len(crypte) For i = 1 to longueur var = Mid(crypte, i, 1) Select Case var Case "a" valeur = valeur + "25" Case "b" valeur = valeur + "26" Case "c" valeur = valeur + "27" Case "d" valeur = valeur + "28" Case "e" valeur = valeur + "29" Case "f" valeur = valeur + "30" Case "g" valeur = valeur + "31" Case "h" valeur = valeur + "32" Case "i" valeur = valeur + "33" Case "j" valeur = valeur + "34" Case "k" valeur = valeur + "35" Case "l" valeur = valeur + "36" Case "m" valeur = valeur + "37" Case "n" valeur = valeur + "38" Case "o" valeur = valeur + "39" Case "p" valeur = valeur + "40" Case "q" valeur = valeur + "41" Case "r" valeur = valeur + "42" Case "s" valeur = valeur + "43" Case "t" valeur = valeur + "44" Case "u" valeur = valeur + "45" Case "v" valeur = valeur + "46" Case "w" valeur = valeur + "47" Case "x" valeur = valeur + "48" Case "y" valeur = valeur + "49" Case "z" valeur = valeur + "50" yo = yo + valeur End Select Next i Text1.Text = Text1.Text + yo End Sub

nashoy

bizarre comme criptage
c quoi t ' est valeur=valeur + ...
c ca qui doit foirez

je tee fais un code
du meme genre mais qui donne pas le meme criptage


c 'est pas le tout de coder faut decoder
si tu fais des addition de nombre pour decripter apres ces impossible
lol je suis aveugle
c'est
case="a"

ton yo=yo+valeur il est compris dans le case"z"
donc ca marche pas

vu que tu debute comme mois
verifie ce que contienne tes variable pendant que tu programme
msgbox (variable)
et lance ton prog regulierement

voila le code refais



Private Sub Command1_Click()
Dim i As Integer
Dim crypte As String
Dim longueur As Integer
Dim var As String * 1
Dim valeur As Integer

crypte = InputBox("tappez votre message a crypter", "crypte", "message")
longueur = Len(crypte)


For i = 1 To longueur

var = Mid(crypte, i, 1)
Select Case var

Case Is = "a"
valeur = "25"

Case Is = "b"
valeur = "26"

Case Is = "c"
valeur = "27"

Case Is = "d"
valeur = "28"

Case Is = "e"
valeur = "29"

Case Is = "f"
valeur = "30"

Case Is = "g"
valeur = "31"

Case Is = "h"
valeur = "32"

Case Is = "i"
valeur = "33"

Case Is = "j"
valeur = "34"

Case Is = "k"
valeur = "35"

Case Is = "l"
valeur = "36"

Case Is = "m"
valeur = "37"

Case Is = "n"
valeur = "38"

Case Is = "o"
valeur = "39"

Case Is = "p"
valeur = "40"

Case Is = "q"
valeur = "41"

Case Is = "r"
valeur = "42"

Case Is = "s"
valeur = "43"

Case Is = "t"
valeur = "44"

Case Is = "u"
valeur = "45"

Case Is = "v"
valeur = "46"

Case Is = "w"
valeur = "47"

Case Is = "x"
valeur = "48"

Case Is = "y"
valeur = "49"

Case Is = "z"
valeur = "50"

End Select

yo = yo & " " & valeur

Next i

Text1.Text = yo
End Sub

comment tu fais pour mettre le code en gris comme le tien
moi aussi je debute

bon pour le criptage c' est un peu juste
et facile a deccoder

facile a faire
tu met un nombre au debut de ton code crypter
qui corespont a la maniere dont le code a ete cripter
et ce nombre change a chaque fois que tu cripte je vais le faire

si tu le veux dis le mois

Pour cryper, tu pourrais utiliser un Xor, n'est-ce pas, Nashoy

By Renfield

thomas_reynald@msn.com

Aucune touche n'a ete blessee lors de la saisie de ce texte..........

ui,je sais que le code est lourd,et j'ai une maniere bc + sûre et bc + simple de réussir mon cryptage, grace a Xor, merci Renfield.Pour griser le code,il suffit d'appuyer sur lespece de signe VB en bas,ds la toolbar.Le code donne ça :

Private Sub Command1_Click() Dim i As Integer Dim Source As String, Buffer As String, Password As String Source = InputBox("Tapez votre message à crypter", "", "") Password = InputBox("Tapez votre mot de passe", "", "") For i = 1 To Len(crypte) Buffer = Buffer & Chr$(Asc(Mid$(Source, i, 1)) Xor GetXor(Password)) Next i Text1.Text = Buffer End Sub Private Sub Command2_Click() crypte = InputBox("tappez votre message a décrypter", "crypte", "message") longueur = Len(crypte) For i = 1 To longueur x= Asc(Mid(crypte, i, 1)) valeur = Chr$(x Xor GetXor(Password)) yo = yo & valeur Next i Text1.Text = yo End Sub Public Function GetXor(Password As String) As Double Dim i As Integer Dim Ret As Long, Tmp As Long For i = 1 To Len(Password) Tmp = Asc(Mid$(Password, i, 1)) GetXor = GetXor + Tmp * 2 ^ i Next i End Function

nashoy

tu peux expliquer renfield

c facile, pour crypter tu met

For i = 1 To longueur var= Mid(crypte, i, 1) valeur = Asc(var) Xor 1 yo = yo & Chr$(valeur) Next i Text1.Text = yo

tu défini le nombre que tu ve pour Xor et il change alors le caractère. pour décrypter c'est pareil, il fo absolument que tu gardes le meme nb pr Xor. ex:

For i = 1 To longueur var = Asc(Mid(crypte, i, 1)) valeur = Chr$(var Xor 1) yo = yo & valeur Next i Text1.Text = yo

nashoy

Ben voila, et ca semble clair dans ton esprit..... voila une journee de pas perdue :-)


By Renfield

thomas_reynald@msn.com

Aucune touche n'a ete blessee lors de la saisie de ce texte..........