vpn girişteki kullanıcı adı parolayı programa ekleme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
MiskinComez
Üye
Mesajlar: 19
Kayıt: 29 Nis 2014 04:40

vpn girişteki kullanıcı adı parolayı programa ekleme

Mesaj gönderen MiskinComez »

Merhabalar
vpn' e nasıl program içersinde bağlanabilirim ?
veya paylaşılan şifreli bir klasöre program içinden nasıl giriş yaparım ?


ftpye bağlanmak için aşağıdaki procedure yi kullanıyorum problemsiz ama vpn ' e bağlanamadım

Kod: Tümünü seç

procedure ftpyebaglan;
begin
  ftp1.DISConnect();
  ftp1.host:='111.000.000.111';
  ftp1.username:='admin' ;
  ftp1.password:='admin';
  ftp1.port:=21;
  ftp1.Connect();
  if ftp1.connected = true then
  label1.Caption:='Servere bağlı'
  else
  label1.Caption:='Servere bağlı değil'; 
end;
mkysoft
Kıdemli Üye
Mesajlar: 3103
Kayıt: 26 Ağu 2003 12:35
Konum: Berlin
İletişim:

Re: vpn girişteki kullanıcı adı parolayı programa ekleme

Mesaj gönderen mkysoft »

VPN FTP gibi tek bir protokol değil maalesef. VPN içinde bir çok protokol mevcut. Sizin kullanmaya çalıştığınız VPN protokolü hangi uygulamayı kullanıyorsa parametre ile çağırarak belki bağlanmasını sağlayabilirsiniz.
MiskinComez
Üye
Mesajlar: 19
Kayıt: 29 Nis 2014 04:40

Re: vpn girişteki kullanıcı adı parolayı programa ekleme

Mesaj gönderen MiskinComez »

Peki söyle sorayım
Ağdaki paylaşılan şifreli klasöre nasıl ulaşabilirim
Örnek
başlat çalıştır da \\arsiv_pc\YILLAR yazınca
https://i.hizliresim.com/r3blYN.jpg
çkıyor
kullanıcı adı şifre istiyor programın içine ekliyeceğim kullanıcı adı ve şifreyle klasöre erişimde şifre sormadan klasoru açmasını istiyorum

FreeMan35: Hieoroglif kullanmıyoruz
mkysoft
Kıdemli Üye
Mesajlar: 3103
Kayıt: 26 Ağu 2003 12:35
Konum: Berlin
İletişim:

Re: vpn girişteki kullanıcı adı parolayı programa ekleme

Mesaj gönderen mkysoft »

program içerisinden ağ sürücüsüne bağlanmasını sağlayabilirsiniz belki. Manuel olarak bu işlem yapılırken kullanıcı adı ve şifre girilebiliyor. Ağ sürücü olarak bağlandığınızda kullanıcılarda dosyalara erişebilecektir, istedğiniz bir durum değil sanırım. Sadece uygulamanız içinde paylaşıma erişmek istiyorsanız samba client olarak arama yapabilirsiniz.
MiskinComez
Üye
Mesajlar: 19
Kayıt: 29 Nis 2014 04:40

Re: vpn girişteki kullanıcı adı parolayı programa ekleme

Mesaj gönderen MiskinComez »

Sorunumu detaylı anlatayım
Olay şöyle aslında
delphi 7 de yazılmış 200 ze yakın modullu olan entegre program var bu programın datalarını belirli sunucularda saklı aynı zamanda ortak kullandıkları alanlar var.
ya bu alanlar vpn yada ağdaki pclerin içersinde paylaşılan şifreli klasörler olduğundan ve bu şifreler saatlik veya günlük değişime uğradığından ayrıca
kulanıcı sayısı değiştiğinden herkese her alanın şifresini vermek yerine program içersinden şifre türeterek istelilen klasöre erişim imkanı sağlamaya çalışıyorum buraya kadar tamam.
sorunuma gelince örnek olarak yıllar öncesinden sitelere girerken hatırlıyorum
www.siteadi.com:@kullaniciadi:sifre gibi web sayfasına yazarak siteye kullanıcı adı şifre yazmadan giriyorduk ama tam yazılışını hatırlamıyorum

şimdi ağdaki bir bilgisayarın paylaşılan şifreli klasörüne ulaşmak için kullanıcıya diyemem öncelikler başlat çalıştıra gir komut satırına \\192.168.1.20 yaz gelen pencereye kullanıcı adı sunu yaz, parolaya bunu yaz gir klasöre. sonra masaustune gec programı çalışıtır demek ölüm çünkü ne bir kişiye öğreteceksin ne 1000 kişiye
o yüzden bunları benim bir defa yapmam gerek bunun içinde
program içersinde once ağı kontrol edecek bilgisayarı bulacak kulanıcı adı şifresini girecek programa devam edip çalışacak komut yordamı lazım
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3077
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Re: vpn girişteki kullanıcı adı parolayı programa ekleme

Mesaj gönderen sabanakman »

Bu konuda genelde örnek olarak aşağıdaki kodlar karşıma çıktı ama test etme imkanı bulamadım.

Kod: Tümünü seç

function ConnectShare(Drive, RemotePath, UserName, Password : String):Integer;
var
  NRW : TNetResource;
begin
  with NRW do
  begin
    dwType := RESOURCETYPE_ANY;
    if Drive <> '' then
      lpLocalName := PChar(Drive)
    else
      lpLocalName := nil;
    lpRemoteName := PChar(RemotePath);
    lpProvider := '';
  end;
  Result := WNetAddConnection2(NRW, PChar(Password), PChar(UserName), 0);
end;

function DisconnectShare(Drive : String):Integer;
begin
  Result := WNetCancelConnection2(PChar(Drive), 0, false);
end;
Düzeltme..:Sanırım bu ağ sürücüsü oluşturmak için ama yine de biraz kurcalamakta fayda olabilir.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
MiskinComez
Üye
Mesajlar: 19
Kayıt: 29 Nis 2014 04:40

Re: vpn girişteki kullanıcı adı parolayı programa ekleme

Mesaj gönderen MiskinComez »

evet bende bunu görmüştüm ama kurcaladım ama olmadı
farklı yollar arıyorum şimdi.
Cevapla