[VB.NET] Demander un mot de passe au demarrage d'une application

Question

Bonjour,
Voila cela fait maintenant une semaine que j'apprend le vb et j'ai creer une petite
application et je voudrais qu' au demarage de celle-ci une form me demande un mot passe si il est bon l'execution se poursuit, sinon le programme se stop,
Je voudrais donc que l'on m'esplique la d&#233;marche a suivre.
Merci d'avance de tt vos reponsses

troxsa · Answer

Salut Pourrais ton avoir un peux plus d'explication ? faut juste un mot de passe pour executer l'application ? ou c'est un mot de passe par PC ou sera executer l'application ? (genre N° de serie) Sinon je propose de faire un formulaire de connexion qui demande un login et mot de passe genre avec deux textBoxLogin.Txt et textBoxPass.txt <> .... (<> = diferent de) http://www.troxsa.info/ Code Vb.net

Neo_Fr · Answer

Salut
je te remercie de ton aide mais finalement j'ai trouver un moyen
un formulaire recupere un mot de passe, fait un hash md5 et le compare au mot de passe voulu...
Si quelqu'un veut la source qu'il me le demande.
Ps: Jes ais que ca na rien a voir avec le sujet mais est t'il normale que mon prog consomme tant de ressources en memoire (25 mo environ)

cs_Willi · Answer

Ne t'occupe pas de la m&#233;moire utilis&#233;es par ton appli.
Tout ceci est g&#233;r&#233; dans le framework et le garbage collector

troxsa · Answer

Moi j'veux bien voir ton code md5 :)

Merci d'avance ! @+

http://www.troxsa.info/
Code Vb.net

Neo_Fr · Answer

Le Voila:


Imports System.Security.Cryptography


Imports System.Text


Imports System.IO


Public 
Class passwd



Function CalculateMD5HashFromFile(
ByVal FileContent 
As 
String) 
As 
String



Dim arHash 
As 
Byte() = 
New MD5CryptoServiceProvider().ComputeHash(ASCIIEncoding.ASCII.GetBytes(FileContent))



Return ByteArrayToString(arHash)



End 
Function



Function ByteArrayToString(
ByVal arrInput() 
As 
Byte) 
As 
String



Dim i 
As 
Integer



Dim sOutput 
As 
New StringBuilder(arrInput.Length)



For i = 0 
To arrInput.Length - 1


sOutput.Append(arrInput(i).ToString(
"X2"))



Next



Return sOutput.ToString()



End 
Function



Private 
Sub OK_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles OK.Click



Dim passmd5 
As 
String


passmd5 = CalculateMD5HashFromFile(TextBox1.Text)



If passmd5 = 
"le_hash_md5_de_ton_pass_en _majuscule" 
Then



Me.Close()



Else



Global.System.Windows.Forms.Application.Exit()



End 
If



End 
Sub

Dites-moi ce que vous en penssez...


Neo_Fr

troxsa · Answer

Perso j'aimerais bien que tu en face une source sur Vbfrance car il y a pas ce type de code sur vbfrance. fait ton code avec une forme et un code au plus simple car beaucoup d'exemple de cryptage son trop complex a comprend et il rentre trop dans les details
et si tu en fais une source sur VbFrance oublis pas de comment&#233; ton code, beaucoup de code source sont pas comment&#233; et je trouve &#231;a dommage ! (enfin c'est des conseil perso,tu en fait ce que tu veux)
ton code et simpa

http://www.troxsa.info/
Code Vb.net

Neo_Fr · Answer

Je peux pas faire plus simple que ca sinon ce n'est plus du hash md5....

Neo_Fr

troxsa · Answer

C'est comme j'ai dit avant, ton est tres bien fait l&#224;
fait s'en une source comme il est et commente le un peux ! ;)

http://www.troxsa.info/
Code Vb.net

Neo_Fr · Answer

ok je suis en train de la faire, je te donne le lien apres...


Neo_Fr

troxsa · Answer

Super :) ! merci !

http://www.troxsa.info/
Code Vb.net

Neo_Fr · Answer

Voila :http://www.vbfrance.com/code.aspx?ID=36976


Neo_Fr

[VB.NET] Demander un mot de passe au demarrage d'une application

11 réponses

Discussions similaires