[HowTo][Visual Basic]Programm nutzbar machen wenn man das richtige Passwort eingibt !

[.Shinoda™]

Hey E*PVP Coders. :P
Ich hatte mal Lust ein kleines Tutorial zu machen.

Dieses ist eig. ganz einfach !

Nochmal die zusammen fassung:
Ich zeige euch, wie ihr euer Programm "Schützen" könnt.
D.h. man kann die Form2 erst öffnen wenn man in Form1 das richtige Passwort eingibt, bzw. das Wort.

So dann fangen wir mal an:

1.) Ihr erstellt eine neue Windows Forms anwendung
2.) Danach erstellt ihr eine Textbox einen Label und einen Button, das ganze kann dann so aussehen:




3.) Ihr klickt Button1 an und schreibt dieses rein:

        If TextBox1.Text = "EuerPasswort" Then
            MsgBox("Das Passwort war richtig !", MsgBoxStyle.Information)
            Form2.Show()
        Else
            MsgBox("Das Passwort war NICHT richtig !", MsgBoxStyle.Critical)
        End If

So denkt daran das ihr EuerPasswort mit euren passwort ersetzen müsst.
Zwischen den " .

4.) Damit man nicht immer auf den Button klicken muss,
machen wir es noch das man auch den Enter Knopf klicken kann.

Das geht so:

Ihr klickt die Textbox an (Doppelklick) und fügt einfach das ein:
(ohne was zu löschen etc. auch mit dem END SUB !!)

   End Sub

    Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyData = Keys.Enter Then
        End If

Gut das wars dann auch schon wieder. :P
Hoffe es hat euch gefallen bzw. geholfen :P


Greetz .Shinoda™



Idee was ich für ein Tutorial machen kann ?
PN me

[Cr41s3']

Danke,

habe es aber in AutoIt

[.Resource]

Nice Work ;D

[BoGaRaM]

Joa hmm, für Anfänger hm
Es gibt wohl n kleinen Umweg um das Passwort in Form1 herauszubekommen und
dann Form2 und co zu sehen...

Wer mein Tutorial kennt, weiß was ich mein.

-
Aber ansonsten denke ich wirklich Klasse erklärt und
es hilft definitiv einige

[.Shinoda™]

Ja ich weiß auch wie es geht, aber für Anfänger reicht es.

[●ROBBY●]

Für Lernzwecke nicht schlecht (obwohl das jeder der die If Schleife kennt können sollte).
man muss aber dazu sagen dass dieses verfahren keinesfalls sicher ist (Ein paar Sekunden mit Olly würden reichen).

[Che]

Naja sowas kann eigentlich jeder, der Grundlegende Programmierkenntnisse hat
Kleiner Tipp von mir:
Passwörter NIEMALS(!) im Klartext speichern!
Crypte doch das Passwort zb mit nem MD5 Hash... Geht so:

Imports

 System.Security.Cryptography 
[COLOR=#0000FF]Imports[/COLOR] System.Text  
[COLOR=#0000FF]Public[/COLOR] [COLOR=#0000FF]Function[/COLOR] MD5StringHash([COLOR=#0000FF]ByVal[/COLOR] strString [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]String[/COLOR]) [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]String[/COLOR]     
[COLOR=#0000FF]Dim[/COLOR] MD5 [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]New[/COLOR] MD5CryptoServiceProvider     
[COLOR=#0000FF]Dim[/COLOR] Data [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Byte[/COLOR]()     
[COLOR=#0000FF]Dim[/COLOR] Result [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Byte[/COLOR]()    
[COLOR=#0000FF]Dim[/COLOR] Res [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]String[/COLOR] = ""     [COLOR=#0000FF]
Dim[/COLOR] Tmp [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]String[/COLOR] = ""      
Data = Encoding.ASCII.GetBytes(strString)     
Result = MD5.ComputeHash(Data)     [COLOR=#0000FF]
For[/COLOR] i [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Integer[/COLOR] = 0 [COLOR=#0000FF]To[/COLOR] Result.Length - 1         
Tmp = Hex(Result(i))        
[COLOR=#0000FF]If[/COLOR] Len(Tmp) = 1 [COLOR=#0000FF]Then[/COLOR] 
Tmp = "[COLOR=#8B0000]0[/COLOR]" & Tmp         
Res += Tmp     [COLOR=#0000FF]
Next[/COLOR]     [COLOR=#0000FF]
Return[/COLOR] Res 
[COLOR=#0000FF]End[/COLOR] [COLOR=#0000FF]Function
[/COLOR]

Abgeprüft wird dann so:

[COLOR=RoyalBlue][COLOR=Blue]If[/COLOR] [/COLOR]MD5StringHash(TextBox1.Text) = "VorherBerechneterHashDeinesPassworts" [COLOR=Blue]Then[/COLOR]
MsgBox("Das Passwort war richtig !", MsgBoxStyle.Information)
Form2.Show()
[COLOR=Blue]Else[/COLOR]
MsgBox("Das Passwort war NICHT richtig !", MsgBoxStyle.Critical)
[COLOR=Blue]End If[/COLOR]

Die MD5 Hashes für eure Passwörter könnt ihr direkt online unter gleich berechnen lassen ^^

So wirds bissel sicherer und Olly hat keine Chance mehr... Nichtmal der .net Reflector kann jetzt noch das Passwort im Klartext auslesen

Achja: Du vergisst ganz zu erwähnen, dass man den Hauptcode seines Programms in einer Neuen Form (Form2) speichern muss.....

[.Shinoda™]

Stimmt wusste nur net wie ich es beschreiben soll mit Hashen.

Danke :P

[P00w]

kleiner Tipp noch
unter Form2.show
noch Me.hide
schreiben
Weil dann versteckt man die Form1 und stört nicht im hintergrund.

  If TextBox1.Text = "EuerPasswort" Then
            MsgBox("Das Passwort war richtig !", MsgBoxStyle.Information)
            Form2.Show()
            Me.Hide()
        Else
            MsgBox("Das Passwort war NICHT richtig !", MsgBoxStyle.Critical)
        End If

Hoffe nur das heißt Me.Hide und nicht Form1.Hide aber glaub Me. bast^^

[Jason Ulrich]

Danke, wiedereinmal etwas zum Üben.

[xCoKeZx]

finde ist ein gutes tut für anfänger

aber kommt sowas nicht in den tutorial bereich?

[Che]

Kommt wenn man es genau nimmt in den e*coder-tutorial bereich ()