ALGORITHME AES (ADVANCED ENCRYPTION STANDARD) SUR VISUAL BASIC 6
NHenry
Messages postés
15113
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 avril 2024
-
8 juin 2012 à 21:55
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 - 6 août 2014 à 14:29
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 - 6 août 2014 à 14:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/54361-algorithme-aes-advanced-encryption-standard-sur-visual-basic-6
https://codes-sources.commentcamarche.net/source/54361-algorithme-aes-advanced-encryption-standard-sur-visual-basic-6
6 août 2014 à 14:29
5 août 2014 à 10:01
J'ai l'impression que tu as l'air de bien comprendre tres bien la chose.
S'il te plait, peux-tu nous en faire une si complete en Vb6 et Vb .Net ???
12 juin 2012 à 01:11
la seul dll dans mon code est celle qui sert à améliorer le graphisme. Tu peux pallier à ce problème en effaçant les lignes suivant :
Private Sub Form_Load()
Skin1.LoadSkin "winaqua.skn"
Skin1.ApplySkin Me.hWnd
End Sub
et en supprimant l'objet Skin1 du form1 !
Espérant que ça va régler ton problème. Bon courage :)
11 juin 2012 à 10:46
il faut apparemment une Dll spécifique même enregistré sous Windows\system32 j'ai une erreur de chargement Erreur Système &H80004005. ou peut on prendre la bonne version de cette Dll?.
8 juin 2012 à 22:35
En faite, je ne suis qu'un amateur en programmation ! je me rend compte que mon code n'est pas très didactique vue que j'ai pas mis de commentaires ni déclaré toutes mes variables !
Vous allez vous rendre compte en lisant la suite du code que la plupart des variables sont de type "String".
Je sais qu'il y'a beaucoup à optimiser !
Bonne soirée ^^
8 juin 2012 à 21:55
Je n'ai regardé que le code posté :
- Mets TOUJOURS "Option Explicit" (sans les " ) en haut de tout te modules de code en VB6.
- Donnes un type à toutes tes variables, tu verras, ce sera plus lisible et plus sûr à l'usage (tout en étant plus rapide)
- Indentes ton code
- Vires les GOTO, il y a toujours une alternatives (ou alors, c'est que tu dois repenser ton code)
- Evites les multiples instructions sur une seule ligne :
Rcon Hex(BinToDec("1" & Nfois("0", Int(i / 4) - 1))): If Len(Rcon) 1 Then Rcon = "0" & Rcon & "000000" Else Rcon = Rcon & "000000"
Est plus dur à lire que :
Rcon = Hex(BinToDec("1" & Nfois("0", Int(i / 4) - 1)))
If Len(Rcon) = 1 Then
Rcon = "0" & Rcon & "000000"
Else
Rcon = Rcon & "000000"
End If
Je regarderais la suite après correction de ton code.