1. #1
    Candidat au Club
    Homme Profil pro
    En genie mecanique
    Inscrit en
    avril 2017
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 19
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : En genie mecanique
    Secteur : Transports

    Informations forums :
    Inscription : avril 2017
    Messages : 3
    Points : 2
    Points
    2

    Par défaut VB6 Encryption & Decryption

    Bonsoir a tous les membres
    je suis nouveau dans le domaine de la programmation en VB6 et j'aimerai demander de l'aide dans ce forum.
    je veux créer un petit prog d'encryptage et de décryptage sous vb6 en utilisant le mélange de caractères d'ascii.
    j'ai suivi un petit tuto ici (http://www.sourcecodester.com/tutori...using-vb6.html) avec comme code vb suivant :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
        Private Sub Command1_Click()
            Text2.Text = Encrypt(Text1.Text, Len(Text1.Text))
        End Sub
     
        Public Function Encrypt(Name As String, Key As Long) As String
        Dim v As Long, c1 As String, z As String
            For v = 1 To Len(Name)
                c1 = Asc(Mid(Name, v, 1))
                c1 = Chr(c1 + Key)
                z = z & c1
            Next v
            Encrypt = z
        End Function
     
        Private Sub Command2_Click()
            Text2.Text = Decrypt(Text2.Text, Len(Text1.Text))
            Text1.Text = ""
        End Sub
     
        Public Function Decrypt(Name As String, Key As Long) As String
        Dim v As Long, c1 As String, z As String
            For v = 1 To Len(Name)
                c1 = Asc(Mid(Name, v, 1))
                c1 = Chr(c1 - Key)
                z = z & c1
            Next v
            Decrypt = z
        End Function
    Donc ma question est de savoir comment je pourrai faire pour coder un simple programme qui fait la meme chose mais avec un encodage different qui donnerait :

    abcdef = (=C+f<d@B0x

    123456 = Nqo(&FZV|ixr

    123456789 = Qj>:i5&F:LaGYXuyxr

    abcdefghij = Luvwi5zn>:Kw?6wtg:,,

    0123456789 = A/uy&Fi5&F:LaGYXuyxr

    1234567890 = ZV=?d@D)|i3kBo(l/e>

    et voici le code de l'encodage et du decodage :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    function encrypt(ecode)
    Dim texts
    dim i
    for i=1 to len(ecode)
    texts=texts & chr(asc(mid(ecode,i,1))+i)
    next
    encrypt = texts
    end function 
     
    function decrypt(dcode) 
    dim texts
    dim i
    for i=1 to len(dcode)
    texts=texts & chr(asc(mid(dcode,i,1))-i)
    next
    decrypt=texts
    end function
     
    function mistake(preString)
    Dim texts
    Dim seed
    Dim i,length
    prestring = trim(preString)
    length = len(preString)
    seed = length
    Randomize(length)
    texts = ""
    for i = 1 to length
    seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
    texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
    next
    dim dist
    dist=""
    for i = 1 to len(texts)
    if mid(texts,i,1)<>"'" then
    dist=dist+mid(texts,i,1)
    end if
    next 
    mistake = dist
    end function
    Comment dois je faire pour que quand je tape '123456' sur un text box et que je clique sur le bouton encrypt et cela me donne 'Nqo(&FZV|ixr' ? et vise versa?
    Merci et bonne journée.

  2. #2
    Candidat au Club
    Homme Profil pro
    En genie mecanique
    Inscrit en
    avril 2017
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 19
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : En genie mecanique
    Secteur : Transports

    Informations forums :
    Inscription : avril 2017
    Messages : 3
    Points : 2
    Points
    2

    Par défaut

    Aussi j'ai vu un petit code dans un site avec le meme module

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub Command1_Click()
    Open "E:\database.txt" For Append As #1
    For i = 100 To 200
    Print #1, Str(i), mistake(Str(i))
    Next i
    MsgBox ("Done!")
    Close #1
    End Sub
    et cela génère les codes suivants
    0 I|
    1 E
    2 @2
    3 <C
    4 7Y
    5 3k
    6 /|
    7 *4
    8 &F
    9 !\
    10 MsG"
    11 KwH
    12 H |i
    13 F$g:
    14 D)Rh
    15 B-=?
    16 @2(=
    17 =?/|
    18 ;HaG
    19 9P6^
    20 LuJz
    21 Jz4f
    22 G"Qj
    23 E$O
    24 C+Ua
    25 A/)9
    26 >:/|
    27 <CJz
    28 :Le>
    29 8U"X
    30 KwMs
    etc...
    Mais j'arrive a faire générer que des chiffres mais pas des lettres, et je n'y comprends plus rien. Aidez moi please.

  3. #3
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    avril 2016
    Messages
    2 960
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 76
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : avril 2016
    Messages : 2 960
    Points : 5 091
    Points
    5 091

    Par défaut

    Bonjour
    A part "avoir vu" et ... "avoir vu" ...
    Que penses-tu CREER (voilà bien un verbe très important, voire carrément primordial, en matière de chiffrement) ?

    EDIT : j'ai expliqué pendant 42 ans que la combinaison d'un coffre-fort doté d'une serrurerie type ceci ou type cela n'était pas une mauvaise chose, mais qu'était encore une meilleure chose d'utiliser un coffre-fort dont la serrurerie n'existait qu'en un seul exemplaire.. (rien à voir avec "une seule combinaison" ..) .

    Et j'ajoute maintenant : si tu crées une serrurerie personnelle, ne l'expose même pas, n'en expose même pas le mécanisme (ni même l'idée), si tu veux qu'elle te protège ...
    Je n'accepte pas de demande d' "amitié" individuelle. Tout développeur est pour moi un ami.
    Je n'ouvre AUCUN classeur tiers (avec ou sans macro). Ne m'en proposez donc pas.

  4. #4
    Candidat au Club
    Homme Profil pro
    En genie mecanique
    Inscrit en
    avril 2017
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 19
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : En genie mecanique
    Secteur : Transports

    Informations forums :
    Inscription : avril 2017
    Messages : 3
    Points : 2
    Points
    2

    Par défaut

    ceci est juste un petit test et je demande de l'aide pour cela. Je suis un novice dans le domaine c'est pour cela que j'ai crée ce thread. Merci.

  5. #5
    Membre du Club
    Profil pro
    Inscrit en
    septembre 2003
    Messages
    41
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : septembre 2003
    Messages : 41
    Points : 65
    Points
    65

    Par défaut

    Si tu veux utiliser ton truc pour stocker des mots de passe, c'est une très mauvaise idée.

    Utilise un hash (sha256, bcrypt,....) et compare la donnée entrée par l'utilisateur au hash stocké en base de donnée ou dans un fichier.
    Bros

Discussions similaires

  1. Réponses: 1
    Dernier message: 11/05/2016, 19h12
  2. Encrypt java decrypt .NET
    Par taouja dans le forum Servlets/JSP
    Réponses: 0
    Dernier message: 26/04/2011, 17h26
  3. Question RSA : encryption et decryption avec des systemes differents
    Par Djobird dans le forum Général Algorithmique
    Réponses: 2
    Dernier message: 03/02/2011, 18h25
  4. débutant : Logiciel d'encryption/decryption
    Par ggcourtois dans le forum Débuter
    Réponses: 6
    Dernier message: 28/07/2006, 23h58
  5. [VB6] Options encryptés via l'interface utilisateur
    Par Jihnn dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 29/06/2006, 03h49

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo