Crypteur de texte simple version améliorée (c'était pas trop dur) 1.2

Soyez le premier à donner votre avis sur cette source.

Vue 3 420 fois - Téléchargée 321 fois

Description

C'est un crypteur de texte simple, qui a quelques fonctions
_enregistrement de texte crypté/décrypté avec
_cryptage direct depuis un fichier texte
_demande ou non de la clé de cryptage pour décoder (le prog utilise la clé qu'on lui donne)

DSL, le zip est gros mais l'exe fait à lui seul 27K...
Pas la peine de me dire qu'au point de vue cryptage on a fait mieux, ça je le sais...

Source / Exemple :


'ouvrez le zip et regardez dedans...

Conclusion :


Normalement, il y a aucun bug (sous Win ME)

Si vous pensez pouvoir optimiser le code, ou avez trouvé un bug (ou pour avoir l'honneur de parler au nullâtre en VB qui a fait ça...) faîtes moi signe
soit sur vbFrance via la messagerie
soit à dostoivsky@hotmail.com

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Vbsupernul
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004
-
Voilà, j'ai fait comme tu as dit Proger.
Pour les asc et cie, y faudra m'expliquer, parce que l'aide de vb est déjà pas trop claire, alors en anglais...
Proger
Messages postés
248
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
19 décembre 2008
-
ouah!
"si vous pensez pouvoir optimiser le code" ...
Alors là mon gars je peux te dire que je pense pouvoir l'optimiser sévèrement... :)
Bon je passe les erreurs d'interface, et autres (a quoi bon enlever les controlbox et utiliser la propriété caption de la form?)


déjà ton code de timer1, je le remplace par ça

Dim Blabla As String
Static temps As Integer
Blabla = "cryptotext by Vbsupernul "
If temps 0 Then temps 1
If temps Len(Blabla) Then temps 1
temps = temps + 1
Form1.Caption = Mid(Blabla, temps + 1) & Left(Blabla, temps)

c'est plus court, n'est-ce pas ;)

ton timer2 (relou au possible accessoirement...) se résume ainsi :
Form1.Height = Form1.Height - 50
Form1.Width = Form1.Width - 50
If Form1.Width < 700 Then End 'on quitte dès que c'est "toutpeti"

voilaa :)

ensuite, ton principe de cryptage à déjà été publié sur ce site (c'est le cryptage archibasique de base :p alors y'a déjà eu des tentative... mais au moins ça correspond à la définition du cryptage.)

Et ce n'est pas parce que ta source est "bordélique" (j'ai pas trouver d'autres mots)
qu'elle est niveau 3!
Tu t'es bien cassé le c.. pour faire ton prog. Pour le simplifié, voila les fonctions que tu pourras utiliser (regarde dans le fichier d'aide vb pour leurs signification)
Asc()
Chr()
Len()
For ... Next

Un petit tut pour faire un chti algo de cryptage :
http://www.vbfrance.com/article.aspx?Val=5285


bref il ne faut pas nécessairement être grincheux pour mettre 1 à cette source... comparativement aux autres!
Cette source a le mérite d'être le pire code que l'on puisse imaginer (sans vouloir te vexer), d'ailleur j'invite le visiteur lambda a la regarder car c'est hallucinant
-<;oD
Vbsupernul
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004
-
Puis-je savoir pkoi un grincheux à mit 1 sans raison?
Ou alors s'il en a, qu'il les donne...

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.