How To Make A Advanced Login System That Creates Users in visual basic

He guys.

Today i gonna show you how to make a advanced login system that creates users

the code:

Login

If TextBox1.Text = "" Then MsgBox("ERROR,YOU NEED AT LEAST ONE LETTER", MsgBoxStyle.Critical) Else If My.Computer.FileSystem.DirectoryExists(" C:\ACCOUNTS\" + TextBox1.Text + "\") Then Dim USERREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\ACCOUNTS\" + TextBox1.Text + "\" + "USERNAME.TXT") Dim userline As String Dim PASSREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\ACCOUNTS\" + TextBox1.Text + "\" + "PASSWORD.TXT") Dim PASSLINE As String Do PASSLINE = TextBox2.Text userline = USERREAD.ReadLine Console.WriteLine(PASSLINE) Console.WriteLine(userline) Loop Until userline Is Nothing If TextBox2.Text = "" Then MsgBox("error,PLEASE INPUT A PASSWORD", MsgBoxStyle.Critical) Else If PASSLINE = PASSREAD.ReadLine() = True Then MsgBox("Youre Logd in " + TextBox1.Text) Form3.show() End If End If Else MsgBox("THE USERNAME DONT EXIT", MsgBoxStyle.Critical) End If End If


create user


If My.Computer.FileSystem.DirectoryExists(" C:\ACCOUNTS\") = True Then Else End If If TextBox1.Text = "" Then MsgBox("ERROR,YOUR ACCOUNT MUST HAVE ONE LETTER IN IT", MsgBoxStyle.Critical) Else End If If TextBox2.Text = "" Then MsgBox("ERROR,PLEASE INSERT A PASSWORD", MsgBoxStyle.Critical) Else MkDir("C:\ACCOUNTS\" + TextBox1.Text) Dim username As New System.IO.StreamWriter("C:\ACCOUNTS\" + TextBox1.Text + "\" + "username.txt") username.Write(TextBox1.Text) username.Close() Dim password As New System.IO.StreamWriter("C:\ACCOUNTS\" + TextBox1.Text + "\" + "password.txt") password.Write(TextBox2.Text) password.Close() MsgBox("ACCOUNT CREATED", MsgBoxStyle.Information, "ACCOUNT CREATED")
End If

Category:

Howto & Style

Tags:

• How
• To
• Make
• Advanced
• Login
• System
• That
• Creates
• Users
• in
• visual
• basic
• studio
• 2008

[xvidmaster97x]

awesome ty so much!!! :D!!

[twiggy99]

whats up with your voice? sound like you having a wank whilst chewing on something

[fbApplictionHax]

Why is there porn under related videos?

[LEADERCRISIS]

you voice sound like WALLE having sex with a speak & spell. wait? was i the only one thinking that?

[pphoenix8]

Private Fuction MD5(byRef strText as String) As String

Dim MD5Service As New System.Security.cryptography.M­D5CryptoServiceProvider

Dim Bytes() As Byte = MD5Service.ComputerHash(System­.Text.Encoding.ASCII.GetBytes(­strText)) Dim s As String For Each By Byte In Bytess += By.ToString(“x2”) Next

Return s End Funtion (Login) where PASSLINE = PASSREAD.ReadLine()= True do MD5(PASSLINE) = PASSREAD.ReadLine() = True (creat usr) where is password.Write(TextBox2.Text) do password.Write(MD5(TextBox2.Te­xt))

[pphoenix8]

its very easy to find the user and password. just look in C:\accounts.

try to encrypt it using MD5.

[123Morek]

Please stop noobing others and learn to Tap enter at end of line!!!!

[TheJakeDinosaur]

@jacmaster12 a line of code thats needs to be ended hasnt you probably typed the code wrong and some of the code is on the wrong line

[Blackpearl212006]

sht vid

[techiblast]

this sucks its just a writer and a reader and is local...

[501stbog]

Dude , can you upload the One you made saving the time of us doing it, such as downloading and copying and pasting>> So please upload your one

[frazzell16]

doesnt work