Visual Basic'te Klasör Şifreleme..

[HayaLiMs]

Visual Basic .NET ile Klasör Şifreleme
Bu makalede window servisleri ile klasör şifrelemeyi inceleyeceğiz. Windows servisleri işletim sistemi başlatıldığında otomatik yada elle çalıstırılabilen programlardır. Visual Basic ile çok basit bir şekilde Windows servisleri hazırlayabilriz. Windows servisleri NT tabanlı işletim sistemlerinde desteklenmektedir. Geliştireceğiniz Windows Servisini Windows NT 4.0 ,windows 2000, windows XP Professional, Windows Server 2003 üzerinde çalıştırabilirsiniz.


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(ServicesToRu n)
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. Bir sonra ki makalede görüşmek dileğiyle..