Encrypt

Soyez le premier à donner votre avis sur cette source.

Vue 3 341 fois - Téléchargée 262 fois

Description

Voilà un nouveau programme qui vous permet de crypter vos textes selon le mot de passe qui vous le tapez . bon…c’est pas assez compliquer de point de vu code mais c’est utile. Je pas encore terminer complètement il reste toujours un problème lorsque je mets beaucoup des espaces dans le texte à crypter. Quelle qu’un peut m’aider ?
Merci d’avoir laissé vos commentaire et vos conseilles :)

Conclusion :


E-mail : aminert@eminem.com
Site Web : http://membres.lycos.fr/aminert

@++++++++++++++++++++++++++++++++++++++++

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Warny
Messages postés
478
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015
-
memes remarques que pour linkwang. Tu ne sors pas de l'algorythme de vigenere. La seule difference que tu as avec lui est que tu utilises tout le panel de caracteres ascii pour faire ton encodage.
Tu ne le decouvre pas, vu que tu as laisse un post sur son code. Un peu d'invention, que diable.
KaViDee
Messages postés
263
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
1 février 2019
-
Je voudrais pas t'accuser à tort mais apparament tu as copié EasyCrypt (http://www.vbfrance.com/article.aspx?ID=5627).
Pourquoi je dis ça ? parce-que la structure du code est identique ainsi que le logo...
aminert2100
Messages postés
82
Date d'inscription
dimanche 15 juin 2003
Statut
Membre
Dernière intervention
8 mai 2008
-
Mais non attention!!! je suis pas voleur ce prog je le crée sa fait longtemps depuis l’été de 2001
KaViDee
Messages postés
263
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
1 février 2019
-
Ok, si tu le dis je te crois :)
Mais j'ai une 2 chtites questions à propos de ton cryptage:
ça sert à quoi Chr$(c And &HFF) ?? j'ai fais des tests et apparament si tu fais Chr$(c) ça revient au même. Pourrais tu m'expliquer la fonction de And dans ce cas la ?
Et aussi à quoi ça sert de mettre des "#" devant les If et les Const ?!
merci
aminert2100
Messages postés
82
Date d'inscription
dimanche 15 juin 2003
Statut
Membre
Dernière intervention
8 mai 2008
-
Salut KaViDee :
Concernant le Chr$(c And &HFF) c’est ne pas la même chose que Chr$(c) : voilà une explications détailler :

-dans la fonction de cryptage :
Private Function EncryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then

strPwd = UCase$(strPwd)

#End If

If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function

-D’abord après c = Asc(Mid$(strText, i, 1)) on a c toujours entre 0 et 255 cad c est sur 8bits
-Après c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1)) c n’est plus sur 8bits car on a ajouté la valeur d’un caractère du mot de passe d’où c peux être + ou – que 8bits
-En fin on a Chr$(c And &HFF) et on a code ascii va de 0 à 255 donc il faut ramener c à 8bits de nouveau on faisons le And &HFF
exemple :
imagine que le caractère vaut 200 donc c=200
après on récupère la valeur d’un caractère du mot de passe imagine qu’il vaut 100
on l’ajoute à c alors c=300 or 300>255 donc c’est impossible de faire Chr$(c) d’ou il faut ramener ce dernier à 8bits on ajoutant le And &HFF comment ça fait ? c’est très simple
imagine que c en binaire est 100000001 cad sur 9bits
on fait And &HFF càd 100000001 And 11111111 ça donne 00000001 donc c :00000001 d’ou c se ramène à 8bits et on peut faire le Chr$

Concernant #const ici on doit mettre le # devant const car on va l’utiliser dans un #if
Le # c’est une opération pour pré processeur càd si Not CASE_SENSITIVE_PASSWORD=True la boucle if serra compiler sinon elle ne serra pas compiler càd améliorer la vitesse et gagner de l’espace mémoire c’est tous mais dans c’est prog on peut travailler avec des if seulement :)


J’espère bien que tu ma compris :)

A++++++++++

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.