Cryptage (txt par ascii) tous simple!!!

Télécharger le projet
Commenter

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!!!!!!!
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 (pcpunch)