Visual Basic.net'de Klasör Şifreleme

[Heroglif]

Windows Servislerinin belirli bir arayüzü olmadığından çalıştırma ve/ve ya debug yapma şansınız yoktur. Windows Servislerini kullanarak Visual Basic ile klasör bir ifreleme uygulamasını geliştireceğiz.

Öncelikle "sifreleme" isimli bir Windows servisi projesi başlatalım. Ve aşağıdaki kodları ekleyelim:

Imports System.IO
Imports System.ServiceProcess


Public Class klasor_sifreleme
Inherits System.ServiceProcess.ServiceBase
Dim izleyiciler() As IO.FileSystemWatcher
#Region " Component Designer generated code "
Public Sub New()
MyBase.New()

' This call is required by the Component Designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call
End Sub
'UserService overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' The main entry point for the process

<MTAThread()> _
Shared Sub Main()
Dim ServicesToRun() As System.ServiceProcess.ServiceBase
' More than one NT Service may run within the same process. To add
' another service to this process, change the following line to
' create a second service object. For example,
'
' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
'
ServicesToRun = New System.ServiceProcess.ServiceBase() {New klasor_sifreleme()}
System.ServiceProcess.ServiceBase.Run(ServicesToRun)
End Sub

'Required by the Component Designer
Private components As System.ComponentModel.IContainer
' NOTE: The following procedure is required by the Component Designer
' It can be modified using the Component Designer.
' Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

'
'performans
'
Me.ServiceName = "klasor_sifreleme"
End Sub
#End Region

Protected Overrides Sub OnStart(ByVal args() As String)
Dim sürücüler() As String
sürücüler = IO.Directory.GetLogicalDrives()
ReDim izleyiciler(sürücüler.Length)
Dim i As Integer
For i = 0 To izleyiciler.Length - 1
izleyiciler(i) = New IO.FileSystemWatcher()
Try
izleyiciler(i).Path = sürücüler(i)
Catch
End Try
izleyiciler(i).Filter = "*.*"
izleyiciler(i).NotifyFilter = IO.NotifyFilters.Attributes Or IO.NotifyFilters.CreationTime Or IO.NotifyFilters.FileName Or IO.NotifyFilters.LastAccess Or IO.NotifyFilters.LastWrite Or IO.NotifyFilters.Security Or IO.NotifyFilters.Size
izleyiciler(i).IncludeSubdirectories = True
AddHandler izleyiciler(i).Changed, AddressOf değişti
Next
izleyiciler(2).EnableRaisingEvents = True
End Sub

Protected Overrides Sub OnStop()
End Sub
Private Sub değişti(ByVal sender As Object, ByVal e As IO.FileSystemEventArgs)

Dim d As String
d = e.FullPath
If UCase(d) = UCase("D:\yener\s.exe") Then
Shell("d:\Koruma.exe", AppWinStyle.MaximizedFocus)
End If

End Sub

End Class

Şimdi service1.vb[Design] ortamında sağa tıklayıp açılan menüden addinstaller'i seçelim.


Serviceinstaller1 bileşeni servisimizin kurulumunu sağlar, serviceprocessinstaller1 bileşeni ise servis çalıştığında bir işlem olarak sunulacaktır.

"klasor_sifreleme" projesini, başlangıç projemiz olarak seçip, derleyelim.
Servisimizi sisteme bildirmek için installutil.exe programını kullanacağız. Bu program visual studio.net ile sisteminize kurulacaktır. Bu programı kullanmak icin programı(installutil.exe) servisin bulundugu bin klasor icine kopyalamalısınız. Servisi kurmak için exe uzantılı dosyanının bulundugu klasör’e geçmeliyiz.

Kullanıcı adı ve şifremizi verdikten sonra,

servisimizi windows'un hizmetler bölumunde görebiliriz. Başlangıç türünü otomatik yaparak Windows çalıstıgında servisimizi çalısıyor duruma getirebiliriz. Bundan sonra sifrelenmiş klasör’ü açmaya çalıstıgımızda aşağıdaki göruntü ile karşılasacağız. Bu form’un kullanıcı kodu ve sifre dogru girildiginde klasöre girmemize izin veren bir formdur.

Bu form kodlarını yazma geregi duymadım.

Verdiğimiz örneği kısaca açıklayalım. Örnekte şifrelenmek istenen klasör d:\yener ve klasör’e erişildiğinde d:\koruma.exe isimli, borderstyle=none windowsstate =maximized özelliğine sahip form karşımıza çıkacak. appwinstyle.maximizedfocus ile formun tam ekran açılması sağlanmaktadır.izleyiciler(2).EnableRaisingEvents = True özelligine gelince, buradaki "2" harfi d sürücüsü anlamına gelmektedir(0 =A 1=B 3=c …) ve d sürücüsünüde izlemeyi başlat anlamındadır. Uygulama ile ilgili sorularınızı adresine iletebilirsiniz. Uygulamayı geliştirerek klasör şifreleme programı olarak kullanilabilir. Burada yalnızca örnek amacı ile yener klasoru şifrelenmistir. Bir sonraki makalemde windowsapplication ile FileSystemWatcher’ı kullanımı hakkında detaylı bilgi bulabileceksiniz.
İyi Forumlar İşinize Yarası Dileğiyle
Yakında Başka Dilerdende Konu Açmaya Çalışıcam Vb.net biraz Eskidi ama Güzel Dil
​

 

[Shadowbcb]

Yararlı konu.thx

 

[compac96]

bir ara visual basice de geçicem bunları öğrenmem iyi olabilir thx

 

[NightStar]

Eyvallah yararlı konu

 

[DemonSamurai]

bensiz yorummu kasıyonuz
Yararlı konu eyw

 

[Heroglif]

bensiz yorummu kasıyonuz
Yararlı konu eyw

Sensiz Yorumun Anlamı yok Sen gelince anlamlı oluyor

 

[DemonSamurai]

Sensiz Yorumun Anlamı yok Sen gelince anlamlı oluyor

Forum seninle daha keyifli

 

[Heroglif]

Forum seninle daha keyifli

Knk Gene Bir Yalanı Soktun Gözüme

 

[DemonSamurai]

Knk Gene Bir Yalanı Soktun Gözüme

Olm başka bişey yazdımda onu değiştirdim fasdsdfasdf şey dediydim benimde günüm seninle daha keyifli oluyor yazdıydım ama biraz yaoi kaçtı ondan sdfafasd

 

[Heroglif]

Olm başka bişey yazdımda onu değiştirdim fasdsdfasdf şey dediydim benimde günüm seninle daha keyifli oluyor yazdıydım ama biraz yaoi kaçtı ondan sdfafasd

Kesin Küfür Yazmışsındır al bunu dinle

 

[h4emRe]

Teşekkürler , ama nasıl kullanıldığını bilmiyorum , bi özet geçersen hocam güzel olur .

 

[Heroglif]

@h4emRe şifrelenmek istenen klasör d:\yener ve klasör’e erişildiğinde d:\koruma.exe isimli exe programı çalışır ve dosyayı korur

 

[h4emRe]

@h4emRe şifrelenmek istenen klasör d:\yener ve klasör’e erişildiğinde d:\koruma.exe isimli exe programı çalışır ve dosyayı korur

Thx