cryptage : pk sa marche pas :'(

Question

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 8-)

cs_lataupeben · Answer

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

cs_lataupeben · Answer

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

cs_lataupeben · Answer

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

Renfield · Answer

Pour cryper, tu pourrais utiliser un Xor, n'est-ce pas, Nashoy  :( 

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

nashoy · Answer

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 8-)

cs_lataupeben · Answer

tu peux expliquer renfield

nashoy · Answer

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 8-)

Renfield · Answer

Ben voila, et ca semble clair dans ton esprit..... voila une journee de pas perdue :-)

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

Cryptage : pk sa marche pas :'(

8 réponses

Discussions similaires