Delphi Can

SELECT a.mon$attachment_id as Attachment_ID, 
      a.mon$server_pid as Server_PID, 
      a.mon$state as State, 
      a.mon$attachment_name as Attachment_Name, 
      a.mon$user as User_Name, 
      a.mon$role as Role_Name, 
      a.mon$remote_protocol as Remote_Protocol, 
      a.mon$remote_address as  Remote_Address, 
      a.mon$remote_pid as Remote_PID, 
      cs.rdb$character_set_name as Character_Set, 
      a.mon$timestamp as Established_At, 
      a.mon$garbage_collection as Garbage_Collection, 
      a.mon$remote_process as Remote_Process, 
      a.mon$stat_id as Statistics_ID
FROM mon$attachments a, rdb$character_sets cs
WHERE (a.mon$character_set_id = cs.rdb$character_set_id) AND a.mon$state=1

Alıntı:Firebird de SYSDBA kullanıcı adı ve masterkey şifre ile DB erişimi sağlanmaktadır buradaki şifre değiştirilse yada SYSDBA kullanıcısı devredışı da bırakılsa Firebird kurulu olduğu klasörde security dosyası default dosya ile değiştirildiğinde erişim sağlanabilmektedir.

gsec -user SYSDBA -password masterkey

GSEC> add ADMUSER -pw DCAN1234 -fname ADMUSER -lname SYSDBA

GSEC> mo ADMUSER -admin yes
GSEC> di

AS
begin
    if (exists
       (select 1
        from MON$ATTACHMENTS m
        where
           m.MON$ATTACHMENT_ID = CURRENT_CONNECTION and
           m.MON$REMOTE_ADDRESS not in ('192.168.1.11','192.168.1.15')))
    then
    EXCEPTION DB_CONNECT;
end

(07-08-2017, Saat: 15:21)nguzeller Adlı Kullanıcıdan Alıntı: [ -> ]SYSDBA kullanıcı adı ile bağlanmayı önleyebilirsin, belki bazı kişelerin vaz gecirebilir. Roles bölünden ayarlabilirsiniz

(08-08-2017, Saat: 11:27)ramazan_t Adlı Kullanıcıdan Alıntı: [ -> ]@Cyber kardeşimizin önerdiği çözüm gerçekten işe yarar bir çözüm. Ben, veritabanı erişimine güvenliği sağlamak için bu şekilde Trigger'lar ile uğraşmıyorum. Modem veya IP adresleri değiştiğinde (ki olmayacak şey değil ) veritabanına erişim ile ilgili sorunlar yaşanabilir. Yada veritabanını başka bir yere taşıdığınızda yine kullanabilmek için uğraşmak gerekebilir. Ben kullanmış olduğum güvenlik duvarı yazılımından 3050 portuna erişebilecek IP adreslerini tanımlıyorum. Böylece IP adresleri ve yapılandırması değişse bile, Trigger ile uğraşmak yerine güvenlik duvarı ayarlarından IP adreslerini güncelliyorum olup bitiyor. 

Windows'un güvenlik duvarı ayarlarında da böyle bir özellik var, ister lokal IP adreslerine, isterseniz de UZAK IP adreslerine sınırlama getirebiliyorsunuz (Ofis dışından da veritabanına erişim sağlanan durumlarda)  Lokal IP'leri tek tek eklemek yerine IP adresi aralığı da verebiliyorsunuz, yani 192.168.2.10 ile 192.168.2.50 arasındaki bilgisayarlar bağlanabilsin ama onun dışındakiler bağlanamasın diyebiliyorsunuz. Defalarca test ettim, gerçekten işe yarıyor. Sadece Firebird için değil, SQL Server için de aynı şekilde kullanıyorum. Veritabanı üzerinden değişiklik yapmak istemeyen kullanıcılar için birebir.

Aşağıda örnek bir ekran görüntüsü verdim :

(07-08-2017, Saat: 15:21)nguzeller Adlı Kullanıcıdan Alıntı: [ -> ]SYSDBA kullanıcı adı ile bağlanmayı önleyebilirsin, belki bazı kişelerin vaz gecirebilir. Roles bölünden ayarlabilirsiniz

(08-08-2017, Saat: 12:43)Cyber Adlı Kullanıcıdan Alıntı: [ -> ]Burada da hocamızın söylediği gibi aslında SYSDBA kullanıcısını engellememiz bizim için yeterli olacaktır. Diğer kullanıcılar için de şifre parametrelerini güçlü tutmamız halinde üzerimize düşen görevi yerine getirmeye çalışmış oluruz.

(08-08-2017, Saat: 13:16)ramazan_t Adlı Kullanıcıdan Alıntı: [ -> ]

(08-08-2017, Saat: 12:43)Cyber Adlı Kullanıcıdan Alıntı: [ -> ]Burada da hocamızın söylediği gibi aslında SYSDBA kullanıcısını engellememiz bizim için yeterli olacaktır. Diğer kullanıcılar için de şifre parametrelerini güçlü tutmamız halinde üzerimize düşen görevi yerine getirmeye çalışmış oluruz.

Haklısınız, fakat Firebird'ün en sevmediğim özelliği, maalesef Firebird sistemden kaldırılıp yeniden kurulursa, SYSDBA kullanıcısı eski yerine geri gelecektir. SQL Server gibi veritabanı düzeyinde kullanıcı hesapları doğrulaması olmadığı için, Firebird güvenliği için dışarıdan çözümlere mecburuz. Daha dün başıma geldi, bir müşterimizin bilgisayarcısı, gereksiz programları temizleyeyim derken Firebird'ü logosundan dolayı oyun sandığı için sistemden kaldırmış. Müşteri programa giremiyoruz deyince fark ettik ve mecburen yeniden yükledik. Bu gibi durumlar sıkça yaşanıyor maalesef. Yine de bilgilendirme için teşekkürler.

Alıntı:Firebird'ü logosundan dolayı oyun sandığı için sistemden kaldırmış. 

AS
begin
   if (exists
      (select 1
       from MON$ATTACHMENTS m
       where
          m.MON$ATTACHMENT_ID = CURRENT_CONNECTION and
          m.mon$user NOT in ('CYBER','DELPHICAN')))
   then
   EXCEPTION LOGIN_MSG;
end

AS
begin
    if (exists
       (select 1
        from MON$ATTACHMENTS m
        where
           m.MON$ATTACHMENT_ID = CURRENT_CONNECTION and
           m.mon$user in ('SYSDBA')))
    then
    EXCEPTION LOGIN_MSG;
end