Jump to content

IP engelleme ve izin verme


alucard

Recommended Posts

Merhaba ;

 

uygulamalarda IP yasaklaya-biliyoruz. ama ben şöyle bir şey yapmak istiyorum. Sadece İzin verdiğim IP adreslerinde uygulamanın çalışmasını istiyorum. belirlediğim adreslerin dışında erişimi engellemek istiyorum.

 

Böyle bir özellik mevcut mu acaba. Eğer mevcut değilse mutlaka eklenmeli.

Link to comment
Share on other sites

  RemoteAddress := UniSession.RemoteHost ;
   if RemoteAddress <> '111.111.111.111' then begin
    UniSession.Terminate(RemoteAddress + ' is not allowed...');
  end;

Bu kodu formun onCreate eventine ekleyip çalıştırırsanız ip adresi 111.111.111.111'den farklı makineler giremeyecektir.

 

Burada

 UniSession.RemoteHost 

client ip adresini verir. bu adresi server üzerinde tuttuğunuz bir veritabanına kaydedip üstteki kodda ufak birkaç değişiklik yaparak veritabanına aktardığınız ipleri engelleyebilirsiniz ya da tam tersi izin verebilirsiniz.

Link to comment
Share on other sites

Artık aşağıdaki kod bloğunu kullanarak WhiteIpList oluşturabilirsiniz. Vt ye girilen IP adresleri haricinde programa giriş engellenmiş oluyor. ekte de tablo yapısı bulunmaktadır.

procedure TMainForm.UniFormCreate(Sender: TObject);
var
IpAdres : string;
begin
IpAdres := UniSession.RemoteHost ;

ADOTIPAdresleri.Close;
ADOTIPAdresleri.Filter := 'IPAdresi = '+IpAdres;
ADOTIPAdresleri.Filtered := True;
ADOTIPAdresleri.Open;

if ADOTIPAdresleri.RecordCount = 1 then
begin
// ShowMessage('IP Adresleri : '+ADOTIPAdresleriIPAdresi.AsString)
end

  else
  begin
 //  ShowMessage('Bu Adresin Giriş İzni Yok : '+IpAdres);
   UniSession.Terminate('Bu Adresin Giriş İzni Yok : '+IpAdres);

  end;

end;

post-2893-0-99798200-1435572694_thumb.png

post-2893-0-08395500-1435572813_thumb.png

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...