Codeur - décobeur basique

Télécharger le projet
Commenter

Description

Ce petit programme très simple code un texte de façon très simple:

1) Il prend la valeur décimale des caractères ascii
2) Rajoute un nombre N et un Nombre H a la suite pour brouiller le tous
3) ... J'crois que c'est tout !

Pas très diffile a trouver le code, il suffit de convertire les 3 chiffre en Ascii qui se situent tout les 7 caractère mais comment le savoir dans tous ces chiffres ?!

Un moyen de, par exemple, laisser un message sur un ordi du bahu pour des potes qui ont le prog pour le traduire sur disquette.

Aventage: la source est assez simple (a mon gout)
Inconvégnant: Par caractère codé correspond 7 chiffres, imaginez pour un message de 100 caractères (ce qui n'est pas beaucoup) !

Source / Exemple : 


Private Sub Coder_Click()
Form2.Text1.Text = ""
H = 10
D = 1
C = 2
For i = 1 To Len(Text1.Text) ' lettre par lettre
    A = Asc(Mid(Text1.Text, i, 1)) ' la i éme lettre en decimal
' la suite ne sert a rien seulement embrouiller le code
'-----------------------------------------------------------------------
    If i < 10 Then
        N = i * 10
    Else
        If i < 100 Then
            N = i
        Else
            N = i Mod 100
                If Len(N) < 2 Then
                    N = 0 & N
                End If
        End If
    End If
'-------------------------------------------------------------------------
    T = A
    If Len(T) = 2 Then
        T = 0 & A ' Si le code décimal est égale a 2 chiffres on rajoute un 0 devant
    End If
    If Len(T) = 1 Then
        T = 0 & 0 & A ' Si il est égale a 1 chiffre on en rajoute 2
    End If
' Si dessous sert tjs a rien
'--------------------------------------------------------------------------
    H = H + 3
    If H >= 100 Then
        H = 10
    End If
' -------------------------------------------------------------------------
    Form2.Text1.Text = Form2.Text1.Text & T & N & H
Next i
Form2.Caption = "Code..."
Form2.Show
End Sub

Private Sub Decoder_Click()
If IsNumeric(Text12.Text) Then
    Form2.Text1.Text = ""
    Z = 1
    For y = 1 To Len(Text12.Text)
        Tit = Mid(Text12.Text, Z, 3)
        If IsNumeric(Tit) Then
            Texte = Chr(Tit)
            Form2.Text1.Text = Form2.Text1.Text & Texte
        End If
        Z = Z + 7
    Next y
    Form2.Caption = "Message..."
    Form2.Show
Else
    MsgBox "Le code ne comporte que des chiffres !", vbExclamation, "Error"
End If
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (zelze)