CRYPTEUR DE TEXTE SIMPLE VERSION AMÉLIORÉE (C'ÉTAIT PAS TROP DUR) 1.2

Commentaire de Proger le 25/11/2002 09:52:55

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