feat(android): read-only viewer - unlock, search, detail

Replaces the crypto test bench with the three screens the client actually needs. PMA.Vault holds the decrypted snapshot and answers the search; mainApk builds unlock/list/detail in code rather than three .fmx files. Two safety rules live in the UI because nowhere else can hold them: the plaintext is dropped when the app backgrounds (screen hidden on WillBecomeInactive, which precedes the recents-preview capture), and the clipboard is cleared after 45 s only if it still holds what we put there. The search deliberately ignores the password field. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
2026-08-15 01:19:47 +01:00
parent 4effc3611d
commit bf7aac478b
4 changed files with 1026 additions and 324 deletions
@@ -0,0 +1,198 @@
+unit PMA.Vault;
+{
+  Le coffre en memoire : lecture de l'instantane dechiffre, et recherche.
+
+  Volontairement des ENREGISTREMENTS et un tableau, pas une hierarchie
+  d'objets : l'instantane est lu d'un bloc, consulte, puis jete au
+  verrouillage. Rien ne justifie de la mutabilite ni des references croisees.
+
+  CE QUE CETTE UNITE MANIPULE EST EN CLAIR. Elle ne doit rien ecrire sur le
+  disque : la persistance passe par PMA.Store, qui chiffre.
+}
+
+interface
+
+uses
+  System.SysUtils, System.Classes, System.JSON, System.Generics.Collections;
+
+type
+  TVaultEntry = record
+    Uuid, Title, Site, Username, Password, Folder, Tags, Kind, Totp: string;
+    Deleted: Boolean;
+    /// Ce qu'on affiche en tete de ligne : le nom donne par l'utilisateur,
+    /// sinon le site, sinon l'identifiant. Une entree sans aucun des trois
+    /// existe (note vide) et ne doit pas apparaitre comme une ligne muette.
+    function Display: string;
+  end;
+
+  TVault = class
+  private
+    FEntries: TArray<TVaultEntry>;
+    FUsername: string;
+    FExportedAt: string;
+  public
+    /// Remplit depuis le JSON dechiffre. Leve si la structure est absente.
+    procedure LoadFromJson(const APlainJson: string);
+    /// Efface le contenu. Appele au verrouillage.
+    procedure Clear;
+
+    /// Indices des entrees correspondant a AQuery, dans l'ordre d'affichage.
+    /// Requete vide = tout ce qui n'est pas en corbeille.
+    /// La recherche porte sur le nom, le site, l'identifiant et les tags -
+    /// PAS sur le mot de passe : personne ne cherche par mot de passe, et le
+    /// comparer allongerait inutilement son sejour en memoire de travail.
+    function Search(const AQuery: string; AIncludeTrash: Boolean = False): TArray<Integer>;
+
+    function Count: Integer;
+    function LiveCount: Integer;
+    function TrashCount: Integer;
+    function Entry(AIndex: Integer): TVaultEntry;
+
+    property Username: string read FUsername;
+    property ExportedAt: string read FExportedAt;
+  end;
+
+implementation
+
+uses
+  System.Character;
+
+{ TVaultEntry }
+
+function TVaultEntry.Display: string;
+begin
+  Result := Title.Trim;
+  if Result = '' then Result := Site.Trim;
+  if Result = '' then Result := Username.Trim;
+  if Result = '' then Result := '(sans nom)';
+end;
+
+{ TVault }
+
+procedure TVault.Clear;
+begin
+  SetLength(FEntries, 0);
+  FUsername := '';
+  FExportedAt := '';
+end;
+
+/// Les tags arrivent en tableau JSON depuis nos conteneurs, mais en chaine
+/// separee par des virgules depuis un import CSV etranger. On accepte les deux.
+function TagsToString(const AVal: TJSONValue): string;
+var
+  LArr: TJSONArray;
+  I: Integer;
+begin
+  Result := '';
+  if AVal = nil then Exit;
+  if AVal is TJSONArray then
+  begin
+    LArr := AVal as TJSONArray;
+    for I := 0 to LArr.Count - 1 do
+    begin
+      if Result <> '' then Result := Result + ', ';
+      Result := Result + LArr.Items[I].Value;
+    end;
+  end
+  else
+    Result := AVal.Value;
+end;
+
+procedure TVault.LoadFromJson(const APlainJson: string);
+var
+  LRoot, LObj: TJSONObject;
+  LArr: TJSONArray;
+  I, N: Integer;
+begin
+  Clear;
+  LRoot := TJSONObject.ParseJSONValue(APlainJson) as TJSONObject;
+  if LRoot = nil then
+    raise Exception.Create('Instantane illisible : ce n''est pas du JSON');
+  try
+    FUsername   := LRoot.GetValue<string>('username', '');
+    FExportedAt := LRoot.GetValue<string>('exported_at',
+                     LRoot.GetValue<string>('snapshot_at', ''));
+
+    if not LRoot.TryGetValue<TJSONArray>('entries', LArr) then
+      raise Exception.Create('Instantane sans tableau "entries"');
+
+    SetLength(FEntries, LArr.Count);
+    N := 0;
+    for I := 0 to LArr.Count - 1 do
+    begin
+      if not (LArr.Items[I] is TJSONObject) then Continue;
+      LObj := LArr.Items[I] as TJSONObject;
+      FEntries[N].Uuid     := LObj.GetValue<string>('uuid', '');
+      FEntries[N].Title    := LObj.GetValue<string>('title', '');
+      FEntries[N].Site     := LObj.GetValue<string>('site', '');
+      FEntries[N].Username := LObj.GetValue<string>('username', '');
+      FEntries[N].Password := LObj.GetValue<string>('password', '');
+      FEntries[N].Folder   := LObj.GetValue<string>('folder', '');
+      FEntries[N].Kind     := LObj.GetValue<string>('kind', 'login');
+      FEntries[N].Totp     := LObj.GetValue<string>('totp_secret', '');
+      FEntries[N].Tags     := TagsToString(LObj.GetValue('tags'));
+      // deleted arrive en 0/1 depuis nos conteneurs ; absent = vivant.
+      FEntries[N].Deleted  := LObj.GetValue<Integer>('deleted', 0) = 1;
+      Inc(N);
+    end;
+    SetLength(FEntries, N);
+  finally
+    LRoot.Free;
+  end;
+end;
+
+function TVault.Count: Integer;
+begin
+  Result := Length(FEntries);
+end;
+
+function TVault.LiveCount: Integer;
+var E: TVaultEntry;
+begin
+  Result := 0;
+  for E in FEntries do if not E.Deleted then Inc(Result);
+end;
+
+function TVault.TrashCount: Integer;
+begin
+  Result := Count - LiveCount;
+end;
+
+function TVault.Entry(AIndex: Integer): TVaultEntry;
+begin
+  Result := FEntries[AIndex];
+end;
+
+function TVault.Search(const AQuery: string; AIncludeTrash: Boolean): TArray<Integer>;
+var
+  LQ: string;
+  LRes: TList<Integer>;
+  I: Integer;
+  E: TVaultEntry;
+
+  function Matches(const E: TVaultEntry): Boolean;
+  begin
+    Result := (LQ = '')
+           or (Pos(LQ, E.Title.ToLower)    > 0)
+           or (Pos(LQ, E.Site.ToLower)     > 0)
+           or (Pos(LQ, E.Username.ToLower) > 0)
+           or (Pos(LQ, E.Tags.ToLower)     > 0);
+  end;
+
+begin
+  LQ := AQuery.Trim.ToLower;
+  LRes := TList<Integer>.Create;
+  try
+    for I := 0 to High(FEntries) do
+    begin
+      E := FEntries[I];
+      if E.Deleted and not AIncludeTrash then Continue;
+      if Matches(E) then LRes.Add(I);
+    end;
+    Result := LRes.ToArray;
+  finally
+    LRes.Free;
+  end;
+end;
+
+end.
@@ -53,6 +53,41 @@ réception paraît naturel et c'est un piège : après un échec, le prochain ap
 répond 304 et l'application se retrouve sans données tout en se croyant à jour.
 L'ETag appartient au **clair détenu**, pas au téléchargement.

+## L'interface
+
+Trois écrans dans une seule forme, construits en code (`mainApk.pas`) :
+déverrouillage, liste, détail. Une forme par écran aurait coûté trois `.fmx`
+pour des dispositions triviales.
+
+L'écran de déverrouillage s'adapte à ce que l'appareil détient : coffre local
+présent → *Ouvrir* (biométrie si la clé l'exige) ; absent → seul le
+téléchargement peut en produire un. La liste filtre à la frappe sur le nom, le
+site, l'identifiant et les étiquettes — **pas** sur le mot de passe : personne
+ne cherche par mot de passe, et le comparer allongerait son séjour en mémoire.
+
+Deux règles tenues dans l'interface, pas ailleurs :
+
+- **Le clair est jeté quand l'application passe en arrière-plan.** L'écran est
+  masqué sur `WillBecomeInactive`, qui précède la capture de l'aperçu des
+  applications récentes — sans quoi la liste des comptes y resterait visible —
+  et le coffre est réellement effacé sur `EnteredBackground`.
+- **Le presse-papiers se vide après 45 s**, et seulement si son contenu est
+  toujours celui qu'on y a mis : l'utilisateur a pu copier autre chose
+  entre-temps.
+
+L'écriture n'existe pas. Le poste Windows reste la source ; modifier depuis le
+téléphone demanderait le `PUT` côté serveur et une fusion côté client.
+
+### Tester sans téléphone
+
+Tout sauf le Keystore et la biométrie tourne en **Win64** — `PMA.Store`
+retourne « pas de coffre » hors Android, donc chaque lancement retélécharge et
+redérive. Suffisant pour éprouver la liste, la recherche et la copie :
+
+```bash
+"C:\Program Files (x86)\Embarcadero\Studio\23.0\bin\dcc64.exe" -B "-UC:\Program Files (x86)\Embarcadero\Studio\23.0\lib\Win64\release" pmserverApk.dpr
+```
+
 ## Diagnostiquer un échec de déchiffrement

 `try-open.js` ouvre un conteneur avec Node, donc avec les primitives du
@@ -76,11 +111,15 @@ Node ouvre le fichier et pas le client, le défaut est dans le client.
 | | |
 |---|---|
 | `PMA.Crypto.pas` | PBKDF2 (Pascal + natif JNI), AES-GCM, ouverture du conteneur |
-| `PMA.TestVector.pas` | le vecteur embarqué, pour le banc d'essai |
+| `PMA.SyncClient.pas` | `GET` authentifié, ETag, statuts distingués |
+| `PMA.Store.pas` | coffre local chiffré sous une clé du Keystore |
+| `PMA.Biometric.pas` | authentification via `FMX.BiometricAuth` |
+| `PMA.Vault.pas` | l'instantané en mémoire : lecture et recherche |
+| `PMA.TestVector.pas` | le vecteur embarqué, plus référencé par l'interface |
 | `make-testvector.js` | régénère le vecteur avec WebCrypto |
 | `testvector.md` | valeurs attendues, étage par étage |

-Le banc d'essai est `mainApk.pas`, à la racine du dépôt.
+L'interface est `mainApk.pas`, à la racine du dépôt.

 ## Piège de compilation rencontré