Beta_cartrigesg_bd Beta v0.4

2026-07-25 17:19:15 +03:00
parent 5c6cee4ae8
commit 1ee346940d
1 changed files with 2 additions and 2 deletions
--- a/Inventera.iss
+++ b/Inventera.iss
@@ -127,11 +127,11 @@ begin
 end;

 function GenerateAutomaticPassword: String;
-const
-  Characters = 'ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz23456789!@#_-';
 var
  I: Integer;
+  Characters: String;
 begin
+  Characters := 'ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz23456789!@#_-';
  Result := 'Iv!';
  for I := 1 to 29 do
    Result := Result + Characters[Random(Length(Characters)) + 1];