encryption and decrytpion

[Christopher_12]

i would like to know if it is possible to translate my code according to a database(currently using microsoft sql server)

the code i have it is encrypting and decryption on a file inside the microsoft visual studio project

i want to connect it to the database

this code is not connected to the database , is there a way of doing it
please help!!!!

'Form1.vb ~ by HazardEdit // HazardEdit.com // youtube.com/HazardEdit

Imports System.Net.Mail
Public Class Form1
    Public Const WM_NCLBUTTONDOWN As Integer = &HA1
    Public Const HT_CAPTION As Integer = &H2
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
    Private Declare Function ReleaseCapture Lib "user32.dll" () As Int32

    Dim encdec As EncryptDecrypt
    Dim passc As String
    Dim userc As String
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        Close()
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        reg_form.Visible = True
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If filethere(TextBox1.Text & "username.login") = True And filethere(TextBox1.Text & "password.login") Then
            Dim userreader As New System.IO.StreamReader(TextBox1.Text & "username.login")
            TextBox3.Text = userreader.ReadToEnd
            TextBox3.Text = encdec.Decrypt(TextBox3.Text)
            userreader.Close()
            Dim passreader As New System.IO.StreamReader(TextBox1.Text & "password.login")
            TextBox4.Text = passreader.ReadToEnd
            TextBox4.Text = encdec.Decrypt(TextBox4.Text)
            passreader.Close()
            If TextBox3.Text = TextBox1.Text And TextBox4.Text = TextBox2.Text Then
                Dim smtp As New SmtpClient
                Dim message As New MailMessage
                smtp.Host = "smtp.gmail.com"
                smtp.EnableSsl = True
                smtp.Port = 587
                smtp.Credentials = New Net.NetworkCredential("[e-mail]", "ER8GD1F62BX16VXXD54T")
                message.To.Add("[e-mail]")
                message.From = New MailAddress("[e-mail]")
                message.Subject = ("Logged in:" & TimeString & " | " & DateString)
                message.Body = ("Logged in:" & TimeString & " | " & DateString)
                MsgBox("You are now succesfully logged in!")
                TextBox1.Text = ""
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
            Else
                MsgBox("Error! Username or password is wrong!")
                TextBox1.Text = ""
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
            End If
        Else
            MsgBox("This user doesn't exist!")
        End If


    End Sub
    Function filethere(ByVal filename As String) As Boolean
        If (Dir(filename) = "") Then
            filethere = False
        Else
            filethere = True
        End If

    End Function


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.MouseDown


    End Sub


    Private Sub Panel1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown, Panel1.Paint
        If (e.Button = Windows.Forms.MouseButtons.Left) Then
            ReleaseCapture()
            SendMessage(Handle.ToInt32, WM_NCLBUTTONDOWN, HT_CAPTION, 0)
        End If
    End Sub

    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs)

    End Sub
End Class


' ~ EncryptDecrypt.vb ~ by HazardEdit // HazardEdit.com // youtube.com/HazardEdit

Public Class EncryptDecrypt
    Public Shared Function Encrypt(ByVal text_to_Encrypt As String) As String
        Dim encstr As String = text_to_Encrypt
        Dim Val As String = Nothing
        Dim Result As New System.Text.StringBuilder
        For Each Character As Byte In System.Text.ASCIIEncoding.ASCII.GetBytes(text_to_Encrypt)
            Result.Append(Convert.ToString(Character, 2).PadLeft(8, "0"))
            Result.Append(" ")
        Next
        Val = Result.ToString.Substring(0, Result.ToString.Length - 1)
        encstr = Val
        Dim ret As String = converttoline(encstr)
        Return ret
    End Function
    Public Shared Function Decrypt(ByVal Text_to_Decrypt As String) As String
        Dim decret As String = Text_to_Decrypt
        decret = converttoline(decret)
        Dim Val As String = Nothing
        Dim Characters As String = System.Text.RegularExpressions.Regex.Replace(decret, "[^01]", "")
        Dim ByteArray((Characters.Length / 8) - 1) As Byte
        For Index As Integer = 0 To ByteArray.Length - 1
            ByteArray(Index) = Convert.ToByte(Characters.Substring(Index * 8, 8), 2)
        Next
        Val = System.Text.ASCIIEncoding.ASCII.GetString(ByteArray)
        decret = Val
        Return decret
    End Function
    Private Shared Function converttoline(ByVal text_to_convert As String) As String
        Dim str As String = text_to_convert
        ' If str.Contains("É9;$,c#¾˜xžïw;½ƒÏ+ÃNòcñçâ32½ƒhâÏ+v½ƒÏ+a½ƒÏ+pŒ¿") Or str.Contains("šNÌ;F÷¯G¥<ò3 ¥®;$,c#äÇ*hâÐ!4½ƒÏ+xžïw;64ÃNw1MÙñçŒfvnîÃÄ!Xì{™") Then If str.Contains("|") Then str = str.Replace(" || ", "0") str = str.Replace(" | ", "1") 'str = str.Replace("šNÌ;F÷¯G¥<ò3 ¥®;$,c#äÇ*hâÐ!4½ƒÏ+xžïw;64ÃNw1MÙñçŒfvnîÃÄ!Xì{™", "0") ' str = str.Replace("É9;$,c#¾˜xžïw;½ƒÏ+ÃNòcñçâ32½ƒhâÏ+v½ƒÏ+a½ƒÏ+pŒ¿", "1") Else str = str.Replace("0", " || ") str = str.Replace("1", " | ") ' str = str.Replace("0", "šNÌ;F÷¯G¥<ò3 ¥®;$,c#äÇ*hâÐ!4½ƒÏ+xžïw;64ÃNw1MÙñçŒfvnîÃÄ!Xì{™") ' str = str.Replace("1", "É9;$,c#¾˜xžïw;½ƒÏ+ÃNòcñçâ32½ƒhâÏ+v½ƒÏ+a½ƒÏ+pŒ¿") End If Return str End Function End Class ' ~ register_form.vb ~ by HazardEdit // HazardEdit.com // youtube.com/HazardEdit Imports System.Net.Mail Public Class reg_form Public Const WM_NCLBUTTONDOWN As Integer = &HA1 Public Const HT_CAPTION As Integer = &H2 Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32 Private Declare Function ReleaseCapture Lib "user32.dll" () As Int32 Dim encdec As ClassLibrary1.EncryptDecrypt Dim passc As String Dim userc As String Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click Close() End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click System.IO.Directory.CreateDirectory(TextBox1.Text) userc = TextBox1.Text userc = encdec.Encrypt(userc) Dim userwriter As New System.IO.StreamWriter(TextBox1.Text & "username.login") userwriter.Write(userc) 'userc userwriter.Close() passc = TextBox2.Text passc = encdec.Encrypt(passc) Dim passwriter As New System.IO.StreamWriter(TextBox1.Text & "password.login") passwriter.Write(passc) 'passc passwriter.Close() MsgBox("User was succesfully created!") Me.Visible = False End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click TextBox1.Text = "" TextBox2.Text = "" End Sub Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown If (e.Button = Windows.Forms.MouseButtons.Left) Then ReleaseCapture() SendMessage(Handle.ToInt32, WM_NCLBUTTONDOWN, HT_CAPTION, 0) End If End Sub Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint End Sub End Class

[Reverend Jim]

What do you mean by "connect it to the database"? Are you saying that you cannot connect with the database or that you cannot encrypt/decrypt data to/from the database?

It would also help if you commented your code. When I see code with no whitespace and no comments I mostly ignore it.

Are you getting any errors? What indications are you seeing that your code isn't working? Have you taken the two minutes needed to read Please Read This Before Posting? If so, what parts of

• Explain what your code is supposed to do as well as what it is doing.

and

• Please include any error messages and the place in the code where the error occurs. There are thousands of ways for code not to work. Be specific.

are unclear?

Did you try a search on DaniWeb to try to find examples? There are many examples in the code snippets of how to connect to a database. In this one I have code to connect to a MS SQL database using both SqlClient and OleDB.

[Christopher_12]

@reverend jim
what i meant is that according to my code
is it possible to help me change this code to another with a way where i can save the username and encrypted password in the database because the one i have it is not saving in the database

my code is based on registring a username and password and you will have to login in the system with the username and password registered and it is encrypting the password and username inside the folder that has been created while registering .....

[Reverend Jim]

Can you save the username and password in the database without using encryption? If so then just replace the password with the encrypted password. If that doesn't work then what error are you getting?

[Christopher_12]

@reverend Jim i didnt see your message

i created another system
but first i would liketo know
is there any difference between asp.net VB code and the code in VB.net

[Reverend Jim]

There are differences but I don't do any asp.net programming so I can't tell you what they are. If you are programming in asp.net I suggest you post your questions in the asp.net forum. If you do, please remember to use the CODE tool in the edit box toolbar to insert code so that it gets formatted properly.

[Christopher_12]

but can someone help me there to try to convert my code is asp.net to VB?

[Reverend Jim]

That depends on how you define "help"? Do you mean "will someone please do it for me" then the answer is likely "no". I posted a complete solution for encrypting/decrypting in one of you (many) other threads here. All you had to do was copy/paste into your application. I suggest you build the application in vb.net without encryption, then add that capability once you have the bugs worked out.

[Christopher_12]

no but i figured out somwthing and when im running my program
Me.MainForm = Global.SignUpform.Form1

 this ligne is highlighting 
 can you help resolve it

[Reverend Jim]

The main form should be the form that you spend the most time in and from which other forms are shown. Make that form the main form in the design phase. If you need to show the signup/login form before any other form you can do

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    frmLogin.ShowDialog()

End Sub

The main form will not show until after you close the login form. If you want to do the login AFTER the main form has loaded you can do

Me.Hide()
frmLogin.ShowDialog()
Me.Show()

If you don't need/want to hide the main form then you can remove the Hide/Show lines. Because you are displaying the login form using ShowDialog, the form will be shown as Modal (the calling form will be inactive).

[Christopher_12]

this is my code maybe ucan find some errors

Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration



Public Class Form1


    Imports System.Security.Cryptography
    Imports System.IO
    Imports System.Text
    Imports System.Data
    Imports System.Data.SqlClient
    Imports System.Configuration



    Public Class Form1
        Dim Response As Object
        Dim Request As Object
        Dim IsPostBack As Boolean
        Dim ConfigurationManager As Object
        Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("conStr").ConnectionString)
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            'TODO: This line of code loads data into the 'CGHMSDataSet.Login' table. You can move, or remove it, as needed.
            Me.LoginTableAdapter.Fill(Me.CGHMSDataSet.Login)
            If Not IsPostBack Then
                BindEncryptedCredentials()
                BingDecryptedCredentials()
            End If
        End Sub
        Private Sub BindEncryptedCredentials()
            Dim cmd As New SqlCommand("select * from Login", con)
            Try
                If con.State = ConnectionState.Closed Then
                    con.Open()
                End If
                Dim adp As New SqlDataAdapter(cmd)
                Dim dt As New DataTable()
                adp.Fill(dt)

                If dt.Rows.Count > 0 Then
                    grdEncryptedCredentials.DataSource = dt
                    'grdEncryptedCredentials.DataBind()
                Else
                    grdEncryptedCredentials.DataSource = Nothing
                    '    grdEncryptedCredentials.DataBind()
                End If
            Catch ex As Exception
                Response.Write("Error occured :" & ex.Message.ToString())
            Finally
                cmd.Dispose()
                con.Close()
            End Try
        End Sub
        Private Sub BingDecryptedCredentials()
            Dim cmd As New SqlCommand("select * from Login", con)
            Try
                If con.State = ConnectionState.Closed Then
                    con.Open()
                End If
                Dim adp As New SqlDataAdapter(cmd)
                Dim dt As New DataTable()
                adp.Fill(dt)

                If dt.Rows.Count > 0 Then
                    For i As Integer = 0 To dt.Rows.Count - 1
                        Dim uName As String = dt.Rows(i)("userName").ToString()
                        Dim pwd As String = dt.Rows(i)("Password").ToString()

                        dt.Rows(i)("userName") = Decrypt(uName)
                        dt.Rows(i)("Password") = Decrypt(pwd)
                    Next
                    dt.AcceptChanges()
                    grdDecryptedCredentials.DataSource = dt
                    'grdDecryptedCredentials.DataBind()
                Else
                    grdDecryptedCredentials.DataSource = Nothing
                    'grdDecryptedCredentials.DataBind()
                End If
            Catch ex As Exception
                Response.Write("Error occured :" & ex.Message.ToString())
            Finally
                cmd.Dispose()
                con.Close()
            End Try
        End Sub

        Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
            Dim uName As String = String.Empty
            Dim uPwd As String = String.Empty
            Dim cmd As New SqlCommand("insert into Login(Name,UserName,Password) values (@Name,@UserName,@Password)", con)
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            Try
                uName = Encrypt(txtUserName.Text.Trim())
                uPwd = Encrypt(txtPwd.Text.Trim())
                cmd.Connection = con
                cmd.CommandType = CommandType.Text
                cmd.Parameters.AddWithValue("@Name", txtName.Text.Trim())
                cmd.Parameters.AddWithValue("@UserName", uName)
                cmd.Parameters.AddWithValue("@Password", uPwd)
                cmd.ExecuteNonQuery()
                lblSignUpStatus.Text = "Record Successfully submitted"
                Clear_Controls()
                BindEncryptedCredentials()
                BingDecryptedCredentials()
            Catch ex As Exception
                Response.Write("Error occured: " & ex.Message.ToString())
            Finally
                uName = String.Empty
                uPwd = String.Empty
                con.Close()
                cmd.Dispose()
            End Try
        End Sub

        Public Function Encrypt(str As String) As String
            Dim EncrptKey As String = "2013;[pnuLIT)WebCodeExpert"
            Dim byKey As Byte() = {}
            Dim IV As Byte() = {18, 52, 86, 120, 144, 171, _
             205, 239}
            byKey = System.Text.Encoding.UTF8.GetBytes(EncrptKey.Substring(0, 8))
            Dim des As New DESCryptoServiceProvider()
            Dim inputByteArray As Byte() = Encoding.UTF8.GetBytes(str)
            Dim ms As New MemoryStream()
            Dim cs As New CryptoStream(ms, des.CreateEncryptor(byKey, IV), CryptoStreamMode.Write)
            cs.Write(inputByteArray, 0, inputByteArray.Length)
            cs.FlushFinalBlock()
            Return Convert.ToBase64String(ms.ToArray())
        End Function

        Public Function Decrypt(str As String) As String
            str = str.Replace(" ", "+")
            Dim DecryptKey As String = "2013;[pnuLIT)WebCodeExpert"
            Dim byKey As Byte() = {}
            Dim IV As Byte() = {18, 52, 86, 120, 144, 171, _
             205, 239}
            Dim inputByteArray As Byte() = New Byte(str.Length - 1) {}

            byKey = System.Text.Encoding.UTF8.GetBytes(DecryptKey.Substring(0, 8))
            Dim des As New DESCryptoServiceProvider()
            inputByteArray = Convert.FromBase64String(str.Replace(" ", "+"))
            Dim ms As New MemoryStream()
            Dim cs As New CryptoStream(ms, des.CreateDecryptor(byKey, IV), CryptoStreamMode.Write)
            cs.Write(inputByteArray, 0, inputByteArray.Length)
            cs.FlushFinalBlock()
            Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
            Return encoding.GetString(ms.ToArray())
        End Function
        Private Sub Clear_Controls()
            txtName.Text = String.Empty
            txtPwd.Text = String.Empty
            txtUserName.Text = String.Empty
            txtName.Focus()
        End Sub

        Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
            Clear_Controls()
            lblSignUpStatus.Text = String.Empty
        End Sub

        Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

        End Sub
    End Class


    Dim Request As Object
    Dim IsPostBack As Boolean
    Dim ConfigurationManager As Object
    Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("conStr").ConnectionString)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'CGHMSDataSet.Login' table. You can move, or remove it, as needed.
        Me.LoginTableAdapter.Fill(Me.CGHMSDataSet.Login)
        If Not IsPostBack Then
            BindEncryptedCredentials()
            BingDecryptedCredentials()
        End If
    End Sub
    Private Sub BindEncryptedCredentials()
        Dim cmd As New SqlCommand("select * from Login", con)
        Try
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            Dim adp As New SqlDataAdapter(cmd)
            Dim dt As New DataTable()
            adp.Fill(dt)

            If dt.Rows.Count > 0 Then
                grdEncryptedCredentials.DataSource = dt
                'grdEncryptedCredentials.DataBind()
            Else
                grdEncryptedCredentials.DataSource = Nothing
                '    grdEncryptedCredentials.DataBind()
            End If
        Catch ex As Exception
            Response.Write("Error occured :" & ex.Message.ToString())
        Finally
            cmd.Dispose()
            con.Close()
        End Try
    End Sub
    Private Sub BingDecryptedCredentials()
        Dim cmd As New SqlCommand("select * from Login", con)
        Try
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            Dim adp As New SqlDataAdapter(cmd)
            Dim dt As New DataTable()
            adp.Fill(dt)

            If dt.Rows.Count > 0 Then
                For i As Integer = 0 To dt.Rows.Count - 1
                    Dim uName As String = dt.Rows(i)("userName").ToString()
                    Dim pwd As String = dt.Rows(i)("Password").ToString()

                    dt.Rows(i)("userName") = Decrypt(uName)
                    dt.Rows(i)("Password") = Decrypt(pwd)
                Next
                dt.AcceptChanges()
                grdDecryptedCredentials.DataSource = dt
                'grdDecryptedCredentials.DataBind()
            Else
                grdDecryptedCredentials.DataSource = Nothing
                'grdDecryptedCredentials.DataBind()
            End If
        Catch ex As Exception
            Response.Write("Error occured :" & ex.Message.ToString())
        Finally
            cmd.Dispose()
            con.Close()
        End Try
    End Sub

    Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
        Dim uName As String = String.Empty
        Dim uPwd As String = String.Empty
        Dim cmd As New SqlCommand("insert into Login(Name,UserName,Password) values (@Name,@UserName,@Password)", con)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Try
            uName = Encrypt(txtUserName.Text.Trim())
            uPwd = Encrypt(txtPwd.Text.Trim())
            cmd.Connection = con
            cmd.CommandType = CommandType.Text
            cmd.Parameters.AddWithValue("@Name", txtName.Text.Trim())
            cmd.Parameters.AddWithValue("@UserName", uName)
            cmd.Parameters.AddWithValue("@Password", uPwd)
            cmd.ExecuteNonQuery()
            lblSignUpStatus.Text = "Record Successfully submitted"
            Clear_Controls()
            BindEncryptedCredentials()
            BingDecryptedCredentials()
        Catch ex As Exception
            Response.Write("Error occured: " & ex.Message.ToString())
        Finally
            uName = String.Empty
            uPwd = String.Empty
            con.Close()
            cmd.Dispose()
        End Try
    End Sub

    Public Function Encrypt(str As String) As String
        Dim EncrptKey As String = "2013;[pnuLIT)WebCodeExpert"
        Dim byKey As Byte() = {}
        Dim IV As Byte() = {18, 52, 86, 120, 144, 171, _
         205, 239}
        byKey = System.Text.Encoding.UTF8.GetBytes(EncrptKey.Substring(0, 8))
        Dim des As New DESCryptoServiceProvider()
        Dim inputByteArray As Byte() = Encoding.UTF8.GetBytes(str)
        Dim ms As New MemoryStream()
        Dim cs As New CryptoStream(ms, des.CreateEncryptor(byKey, IV), CryptoStreamMode.Write)
        cs.Write(inputByteArray, 0, inputByteArray.Length)
        cs.FlushFinalBlock()
        Return Convert.ToBase64String(ms.ToArray())
    End Function

    Public Function Decrypt(str As String) As String
        str = str.Replace(" ", "+")
        Dim DecryptKey As String = "2013;[pnuLIT)WebCodeExpert"
        Dim byKey As Byte() = {}
        Dim IV As Byte() = {18, 52, 86, 120, 144, 171, _
         205, 239}
        Dim inputByteArray As Byte() = New Byte(str.Length - 1) {}

        byKey = System.Text.Encoding.UTF8.GetBytes(DecryptKey.Substring(0, 8))
        Dim des As New DESCryptoServiceProvider()
        inputByteArray = Convert.FromBase64String(str.Replace(" ", "+"))
        Dim ms As New MemoryStream()
        Dim cs As New CryptoStream(ms, des.CreateDecryptor(byKey, IV), CryptoStreamMode.Write)
        cs.Write(inputByteArray, 0, inputByteArray.Length)
        cs.FlushFinalBlock()
        Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
        Return encoding.GetString(ms.ToArray())
    End Function
    Private Sub Clear_Controls()
        txtName.Text = String.Empty
        txtPwd.Text = String.Empty
        txtUserName.Text = String.Empty
        txtName.Focus()
    End Sub

    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
        Clear_Controls()
        lblSignUpStatus.Text = String.Empty
    End Sub

    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

    End Sub

End Class

[Reverend Jim]

We will answer specific questions if you provide appropriate information. For example, "I am getting an error at line xxx. Here is the error message" or "I want this piece of code to do xxx but when it runs I see yyy instead". Posting a wad of code and asking "what's wrong with it" is NOT a specific question.

If you won't take the time to comment your code so that I can see what its intention is then I won't take the time to try to figure it out myself. You've already said the code isn't working the way you want. Reading the code will not tell me what you want it to do.

And since you still haven't got the hint about the CODE tool, let me spell it out. This site uses Markdown syntax, not BBSCODE. You keep putting code blocks between [code] and [/code] tags. That does not work here. All lines of code must be indented by at least four spaces to format properly.

[Christopher_12]

oh ok

when i'm running my code, there is a application designer who appears
and highlighting this line

Me.MainForm = Global.SignUpform.Form1

i dont know why is it highlighting

[Reverend Jim]

It's highlighting because it isn't a valid statement. Take out the line.