Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : cryptage : pk sa marche pas :'( [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (nashoy)

dimanche 7 décembre 2003 à 12:34:31 | cryptage : pk sa marche pas :'(

nashoy

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

dimanche 7 décembre 2003 à 16:43:11 | Re : cryptage : pk sa marche pas :'(

lataupeben

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

dimanche 7 décembre 2003 à 16:44:15 | Re : cryptage : pk sa marche pas :'(

lataupeben

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

dimanche 7 décembre 2003 à 16:47:22 | Re : cryptage : pk sa marche pas :'(

lataupeben

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

dimanche 7 décembre 2003 à 17:03:50 | Re : cryptage : pk sa marche pas :'(

Renfield

Administrateur CodeS-SourceS
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..........

dimanche 7 décembre 2003 à 18:21:07 | Re : cryptage : pk sa marche pas :'(

nashoy

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

dimanche 7 décembre 2003 à 18:21:41 | Re : cryptage : pk sa marche pas :'(

lataupeben

tu peux expliquer renfield

dimanche 7 décembre 2003 à 18:31:05 | Re : cryptage : pk sa marche pas :'(

nashoy

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

dimanche 7 décembre 2003 à 19:59:42 | Re : cryptage : pk sa marche pas :'(

Renfield

Administrateur CodeS-SourceS
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..........



Cette discussion est classé dans : code, valeur, case, pk, crypte


Répondre à ce message

Sujets en rapport avec ce message

pk mon code marche pas ? [ par p@scal ] hello !pk mon code marche pas ?If Winsock1.LocalIP "127.0.0.1" ThenMsgBox ("Je suis connecté à internet.")ElseMsgBox ("Je suis pas connecté à interne Form : [ par xaero ] Hello Voici le pb rencontré : - J'ai un formulaire qui affiche les données d'une table Clients. - Je veux rajouter un champ (case à cocher) qui code ascii de valeur entrante sur port serie [ par tibops ] Salut, je recupère une donnée qui provient du port serie d'un capteur, et je souhaiterais recuperer le code ASCII de cette donnée, cependant quand je Glisser déplacer [ par vincePG ] Voilà mon projet : Créer un tableau périodique des éléments sous VB6, avec chaque case insépendante, et glisser ces cases sur un endroit (image), do Verifier l'existance d'une valeur dans une table [ par VBNull ] Bonjour, j'ai besoin de verifier l'existance d'une valeur dans une table.....cette valeur je la prend dans une autre table de la meme base de données vautre = ADO(rnd*40) :-) :-\ [ par doggy ] Salut à tous !je comprends pas bien ce qu'il se passe ... toute mon appli est liée à une base access, et tout fonctionne très bien, sauf cette procédu Mémoriser la valeur saisie dans un TextBox [ par eren ] Bonjour,Dans mon programme, je donne dans une TextBox, un chemin par défaut. L'utilisateur peut changer ce chemin manullement ou en cliquant sur un bo Enum [ par Net1dsang ] voila je cherche a savoir si une variable prend bien une valeur d'un enum. Je m'explique, j'ai le code suivant :Public enum code code1=1 code2=2 J'ai Besoin d'aide SVP!!! [ par jcconi ] Voila je develloppe une base de donnée.j'explique mon cas: Dans un chanp type_port j'ai soi une valeur p ou c.Sur mon formulaire j'ai deux case a coc changement de type pour une variable (type perso) [ par captaincav ] Bonjour, je vais expliquer mon soucis le plus clairement possible :)mon objectif est d'avoir une dll qui gere la langue dans une application.j'ai donc


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


LG KP501

Entre 9€ et 159€


Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,406 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.