Windev - tp1 poo générer et récupérer le numéro série

AUTEUR Code-Codage ~ 23/01/2022
Programmation WINDEV Débutant

?Travaillons ensemble sur ce TP 1 POO, le but de ce TP est de créer une interface présenter comme un formulaire et placer le composant SAI_Text qui va afficher le numéro de série généré par notre programme, en bref créons un générateur de numéro série.... utilisation de l'approche orienter objet. !!!!!

Explication  de quelques Fonction

  • Buffer : Ce type permet de manipuler une zone mémoire dont la taille est dynamique : elle s'adapte automatiquement au contenu du buffer.
  • HashChaîne : Calcule le Hash d'une chaîne de caractères d'après un algorithme défini
  • Crypte : Crypte une chaîne de caractères sous forme binaire ou sous forme ASCII.
  • Asc : Renvoie le code ASCII du caractère spécifié. Le code ASCII utilisé correspond à la norme ANSI de Windows.

Code-Source Class_info

Class_info est une Classe

PUBLIC

	m_sNuméroSerie est une chaîne

	m_sNomCarteMere est une chaîne

	m_sNuméroBios est une chaîne

	m_sVersionApplication est une chaîne

	m_bufCleBuff est un Buffer

	m_sNuméroFinal est une chaîne

FIN



PROCÉDURE Constructeur()



m_sNuméroSerie = m_sNomCarteMere + m_sNuméroBios + m_sVersionApplication

m_sNuméroSerie = Crypte(m_sNuméroSerie,"clé")

m_bufCleBuff = HashChaîne(HA_HMAC_MD5_128,m_sNuméroSerie)



POUR i = 1 À Taille(m_bufCleBuff)

	m_sNuméroSerie += NumériqueVersChaîne(Asc(m_bufCleBuff[[i]]),"02X")

FIN



TANTQUE Taille(m_sNuméroSerie) > 0

	SI Taille(m_sNuméroSerie) = 32 ALORS

		m_sNuméroFinal = Gauche(m_sNuméroSerie,4)

	SINON

		m_sNuméroFinal += "-"+Gauche(m_sNuméroSerie,4)

	FIN

	m_sNuméroSerie = Droite(m_sNuméroSerie,Taille(m_sNuméroSerie)-4)

FIN



FEN_Cles_Activation.SAI_Numéro_de_série = m_sNuméroFinal



PROCÉDURE Destructeur()

Code source Formulaire

PROCÉDURE MaFenêtre()



Num_Serie est un objet Class_info()

Réponses