Cryptage (txt par ascii) tous simple!!!

Soyez le premier à donner votre avis sur cette source.

Vue 5 005 fois - Téléchargée 331 fois

Description

Slt,

c'est un code tous simple qui permet de crypter le texte par le code Ascii (caractére par caractére). C'est loin d' étre indecryptable, mais c'est une facon toute simple de crypter du texte afin qu'un utilisateur inexpérimenté ne sache le lire!!! (j'ai multiplier par 3 le code Ascii afin que ca ne saute pas trop vite au yeux lol!!!)

il faut:
4 boutons de commande (1,2,3,4)
1 textbox (text1)
1 label (label1)
1 progress bar (pb)

Sinon il y a aussi la source!!!!

Source / Exemple :


Private Sub Form_Load()
pb.Min = 0
pb.Value = 0
End Sub

Private Sub Command1_Click()
'Ouvrir Txt
With boite
.Filter = "*.txt|*.txt"
.ShowOpen
Open .FileName For Input As #1
Text1 = Input(LOF(1), #1)
Close #1
End With
End Sub

Private Sub Command2_Click()
'Enregistrement txt
With boite
.Filter = "*.txt|*.txt"
.ShowSave
Open .FileName For Output As #1
Print #1, Text1
Close #1
End With
End Sub

Private Sub Command3_Click()
'Cryptage
pb.Min = 0
pb.Max = Len(Text1)
Dim txt_crypte, caract_crypte As Variant
txt_crypte = ""
caract_crypte = ""
For i = 1 To Len(Text1)
pb.Value = i
Label1 = "Cryptage en cours (" & Format(((pb.Value * 100) / pb.Max), "00") & "%)" _
& " Caractére " & i & " de " & Len(Text1)
Label1.Refresh
caract_crypte = Mid(Text1, i, 1)
txt_crypte = txt_crypte & (Asc(caract_crypte) * 3) & "|"
Next i
Text1 = txt_crypte
End Sub

Private Sub Command4_Click()
'Decryptage
pb.Value = 0
pb.Max = Len(Text1)
Dim txt_decrypte As Variant
Dim caract_decrypte As Variant
Dim code As Variant
txt_decrypte = ""
caract_decrypte = ""
code = ""
For i = 1 To Len(Text1)
pb.Value = i
Label1 = "Decryptage en cours (" & Format(((pb.Value * 100) / pb.Max), "00") & "%)" _
& " Caractére " & i & " de " & Len(Text1)
Label1.Refresh
    caract_decrypte = Mid(Text1, i, 1)
    If caract_decrypte <> "|" Then
    code = code & caract_decrypte
    Else
    txt_decrypte = txt_decrypte & Chr(code / 3)
    code = ""
    End If
Next i
Text1 = txt_decrypte
End Sub

Private Sub Form_Resize()
Text1.Width = Me.Width
Text1.Height = Me.Height
End Sub

Conclusion :


Voila j'attend vos commentaires,
Attention je redit : c'est tres tres loin d'etre indecryptable!!!!!!!

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
2 juillet 2006

je sais je sais je suis en retard!! mais comment le recompiler pour l'utiliser?
Messages postés
74
Date d'inscription
mardi 3 février 2004
Statut
Membre
Dernière intervention
5 février 2010
2
sympa j'ai fais une source de ce genre moi aussi! tu crois que c un passage obligé dans la programmation?! Sinon c'est vrai que c simple et efficace. Ce qu'on demande a tout code!
Juste 2-3 remarque si vous le permettez :-P :
Lorsque tu affiches ta boite ouvrir ou enregistrer, tu ne vérifie pas si filename="". En gros si l'utilisateur met "Annuler" dans la boite ca retourne une erreur. Une ligne de code ajouter c 3 fois rien. A coté de ca, Pour le cryptage et le décryptage tu n'a pas déclaré la variable "i". Le mieux je pense est de la déclaré en tant que Single comme ca tu es tranquille pour la longueur de texte.
Pour ce qui est du blocage de la form pour des texte long, il faut mettre autoredraw à TRUE sur la form. Je mettrai aussi un bouton annuler pour pouvoir interagir a tout moment. Ne pas oublier de mettre un :doevents dans ces cas la lol
@+
Messages postés
406
Date d'inscription
lundi 2 décembre 2002
Statut
Membre
Dernière intervention
25 janvier 2014

Simple , bien realisé .
Messages postés
47
Date d'inscription
lundi 17 février 2003
Statut
Membre
Dernière intervention
9 juillet 2005

Je viens d'essayer de crypter un long texte, ça bug pas mal.

Y a 2, 3 choses à modifier je pense :

- Ca met un peu de temps ce système de "cryptage"
- Ca bug quand on crypte un long texte, la form reste figée, ça bloque

Faudrait remédier à ça ...

@+
Messages postés
47
Date d'inscription
lundi 17 février 2003
Statut
Membre
Dernière intervention
9 juillet 2005

Salut

C'est sûr, comme tu dis, c'est loin d'être indescrytable (ma foi je préfère "indescriptible") mais cependant ça reste un bon et simple exemple pour les newbies ... Bonne continuation

Wizard 17

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.