begin process at 2012 02 16 13:38:55
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

J'AI BESOIN D'AIDE !!!! :)

 > 

cryptage : pk sa marche pas :'(


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

cryptage : pk sa marche pas :'(

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ée 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...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,761 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales