GÉNÉRER DES NUMÉROS DE SÉRIE POUR VOTRE APPLI
cs_Tioneb
Messages postés
193
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
29 juillet 2015
-
9 oct. 2004 à 15:41
vbmarh Messages postés 60 Date d'inscription dimanche 9 octobre 2005 Statut Membre Dernière intervention 30 novembre 2010 - 26 janv. 2007 à 03:39
vbmarh Messages postés 60 Date d'inscription dimanche 9 octobre 2005 Statut Membre Dernière intervention 30 novembre 2010 - 26 janv. 2007 à 03:39
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/26702-generer-des-numeros-de-serie-pour-votre-appli
https://codes-sources.commentcamarche.net/source/26702-generer-des-numeros-de-serie-pour-votre-appli
26 janv. 2007 à 03:39
14 oct. 2004 à 12:03
13 oct. 2004 à 14:06
Sinon, c'est vrai qu'on peut encore remplacer 5 par NOMBRE+1
13 oct. 2004 à 12:29
Par rapport au code de Pumbaa666, je mettrai NOMBRE en variable pour que le code soit universel au niveau du nombre de variables
Je remplacement le 5 par NOMBRE+1 dans le boucle For Num et dans le test If Num <>
12 oct. 2004 à 00:29
Mais histoire d'optimiser encore un chouilla, faudrait utiliser un tableau, et non pas 5 variable. Comme ça non seulement ça prend moins de place dans le code, mais en plus ça permet de faire des codes à plus de 5 caractères par paquets.
Const NOMBRE = 4
Private Sub BoutGenerer_Click()
Dim tTab(NOMBRE), Num, vCount As Integer
Dim CharStr As String, FirstPass As Boolean
CharStr = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim Resultat As String
For Num = 1 To 5
FirstPass = True
Do While (a + e) + (d - b) - (2 * e + (d - c)) <> 0 Or FirstPass
For vCount = 0 To NOMBRE
tTab(vCount) = Aleatoire(0, 35)
Next
FirstPass = False
Loop
For vCount = 0 To NOMBRE
Resultat = Resultat & Mid(CharStr, tTab(vCount) + 1, 1)
Next
If Num <> 5 Then Resultat = Resultat & "-"
Next Num
Text1.Text = Resultat
TextCrypte.Text = Crypter(Text1.Text & "")
End Sub
10 oct. 2004 à 12:09
Mon avis, c'est que ton logiciel n'est pas très "secure"
Bah ! c'est pas grave, l'essentiel c'est de participer !
Si tu veux plus d'info, tu peux aussi allez voir :
VBLOCKER : PROTÉGEZ VOTRE APPLICATION COMMERCIALE
www.vbfrance.com/code.aspx?id=3227
9 oct. 2004 à 21:02
9 oct. 2004 à 17:34
Sinon pour le bout de code que tu as retiré, c'était juste pour moi voir les valeurs choisies mais il est vrai que ça n'a aucune utilité. Par contre ce qui peut être plus intéressant (pour le développeur, pas pour celui qui utiliserait le programme commercial) c'est de compter le nombre d'itération.
Encore merci pour ton optimisation
9 oct. 2004 à 17:18
TextA.Caption = "a=" & a
TextB.Caption = "b=" & b
TextC.Caption = "c=" & c
TextD.Caption = "d=" & d
TextE.Caption = "e=" & e
TextCalcul.Caption = "Calcul=" & (a + e) + (d - b) - (2 * e + (d - c))
9 oct. 2004 à 17:16
Private Sub BoutGenerer_Click()
Dim a, b, c, d, e, Num As Integer
Dim CharStr As String, FirstPass As Boolean
CharStr = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim Resultat As String
For Num = 1 To 5
FirstPass = True
Do While (a + e) + (d - b) - (2 * e + (d - c)) <> 0 Or FirstPass
a = Aleatoire(0, 35)
b = Aleatoire(0, 35)
c = Aleatoire(0, 35)
d = Aleatoire(0, 35)
e = Aleatoire(0, 35)
FirstPass = False
Loop
'traitement de a
Resultat = Resultat & Mid(CharStr, a + 1, 1)
'traitement de b
Resultat = Resultat & Mid(CharStr, b + 1, 1)
'traitement de c
Resultat = Resultat & Mid(CharStr, c + 1, 1)
'traitement de d
Resultat = Resultat & Mid(CharStr, d + 1, 1)
'traitement de e
Resultat = Resultat & Mid(CharStr, e + 1, 1)
If Num <> 5 Then Resultat = Resultat & "-"
Next Num
Text1.Text = Resultat
TextCrypte.Text = Crypter(Text1.Text & "")
End Sub
9 oct. 2004 à 15:41