S.a Arkadaşlar Şimdi Sizlere
Dosya Şifreleme Mantığını (Alıntıdır)
Anlatacam Herşeyi Aşağıda Detaylı Bişekilde Anlattım
Şimdi bizim yapacağımız işlemlerde buna benzer olacak öncelikle not defterinde
kullanıcı adi:kullanıcı1
parola:1234
şeklinde bir dosya hazırlayıp bu dosyayı c sürücüsünün kök dizinine deneme.txt olarak kaydedelim.
şimdi bu dosyayı vb.net te hazırlayacağımız bir proje ile byte byte okuyalım.
bu işlemi yapan kod aşağıdadır.
Dim icerik As FileStream=New FileStream("c:\deneme.txt",FileMode.Open,FileAccess.Read)
'Bu kod deneme.txt dosyasını okuma modunda açıyor.
Dim icerik_uzunlugu As Long ' İçeriğin uzunluğunu tutan değişken
icerik_uzunlugu= icerik.Length 'içeriğin uzunluğu değişkene akatrılıyor.
Dim icerik_Byte(icerik_uzunlugu) As Byte ' bu dizi deneme.txt dosyasını byte byte tutacak dizidir.
icerik.Read(icerik_Byte,0,CInt(icerik_uzunlugu)) ' Burada dosya icerigi 0. byte'tan son byte kadar okunup icerik_Byte dizisine aktarılıyor.
icerik.Close() ' Açılan deneme.txt dosyası kapatılıyor.
Buraya kadar olan kısımda oluşturduğumuz deneme.txt dosyasını byte byte okuduk ve bu dosyanın içeriğini bir dizimize akdardık. şimdi işin en güzel kısmına geldik şimdi kendi oluşturduğumuz bir algoritma ile dosyamızı şifreleyerek sistemimize kaydedeceğiz.
Oluşturduğumuz algoritma ne kadar karmaşık ve zor ise çözülmesi okadar zordur.
en zor algoritmalardan birini yazalım şimdi
Algoritmamız okunan byte verilerinin 1 fazlasını alan bir kod olsun oldukça zor değilmi
Şimdi kodumuza geçelim yukarıda dosyamızın içeriğini byte olarak icerik_Byte() dizisine aktarmıştık şimid bu dizimizi kullanarak yeni bir dosya oluşturalım dosyamızın hali deneme.sks olsun . bu dosyamızıda c:\deneme.sks olarak kaydedeceğiz.
Dim icerik_yaz As FileStream = New FileStream("c:\deneme.sks", FileMode.Create) ' dosyamızı oluşturma kibinde açtık.
'şimdi icerik_Byte() dizimizin içeriğini okuyup tüm byteların 1 fazlasını alarak dosyamıza yazalım.
For i=0 To icerik_Byte.Length-1
icerik_yaz.WriteByte(Cbyte(CInt(icerik_Byte(i))+1))
Next
icerik_yaz.Close()
'Buraada dizi içeriğini 1 arttırdık ve deneme.sks dosyasına yazdık
Şimdi deneme.sks dosyanını not defteri ile açtığınızda aşağıdaki gibi bir metinle karşılaşırsınız.
lvmmboşdş!bej;lvmmboşdş2
qbspmb;2345
artık bu algoritmayı geliştirmak size kalmış aynı şekilde deneme.sks dosyasını byte byte okutacak ve geriye bir eksiği alınarak deneme.txt dosyasına yazarsanır ilk deneme.txt dosyasını elde edersiniz.
Bu makale sadece bir örnek geliştirmek size kalmış .
Umarım yardımcı olmuşumdur.
Teşekkürünüzü Esirgemeyiniz...
Dosya Şifreleme Mantığını (Alıntıdır)
Anlatacam Herşeyi Aşağıda Detaylı Bişekilde Anlattım
Şimdi bizim yapacağımız işlemlerde buna benzer olacak öncelikle not defterinde
kullanıcı adi:kullanıcı1
parola:1234
şeklinde bir dosya hazırlayıp bu dosyayı c sürücüsünün kök dizinine deneme.txt olarak kaydedelim.
şimdi bu dosyayı vb.net te hazırlayacağımız bir proje ile byte byte okuyalım.
bu işlemi yapan kod aşağıdadır.
Dim icerik As FileStream=New FileStream("c:\deneme.txt",FileMode.Open,FileAccess.Read)
'Bu kod deneme.txt dosyasını okuma modunda açıyor.
Dim icerik_uzunlugu As Long ' İçeriğin uzunluğunu tutan değişken
icerik_uzunlugu= icerik.Length 'içeriğin uzunluğu değişkene akatrılıyor.
Dim icerik_Byte(icerik_uzunlugu) As Byte ' bu dizi deneme.txt dosyasını byte byte tutacak dizidir.
icerik.Read(icerik_Byte,0,CInt(icerik_uzunlugu)) ' Burada dosya icerigi 0. byte'tan son byte kadar okunup icerik_Byte dizisine aktarılıyor.
icerik.Close() ' Açılan deneme.txt dosyası kapatılıyor.
Buraya kadar olan kısımda oluşturduğumuz deneme.txt dosyasını byte byte okuduk ve bu dosyanın içeriğini bir dizimize akdardık. şimdi işin en güzel kısmına geldik şimdi kendi oluşturduğumuz bir algoritma ile dosyamızı şifreleyerek sistemimize kaydedeceğiz.
Oluşturduğumuz algoritma ne kadar karmaşık ve zor ise çözülmesi okadar zordur.
en zor algoritmalardan birini yazalım şimdi
Algoritmamız okunan byte verilerinin 1 fazlasını alan bir kod olsun
oldukça zor değilmi Şimdi kodumuza geçelim yukarıda dosyamızın içeriğini byte olarak icerik_Byte() dizisine aktarmıştık şimid bu dizimizi kullanarak yeni bir dosya oluşturalım dosyamızın hali deneme.sks olsun . bu dosyamızıda c:\deneme.sks olarak kaydedeceğiz.
Dim icerik_yaz As FileStream = New FileStream("c:\deneme.sks", FileMode.Create) ' dosyamızı oluşturma kibinde açtık.
'şimdi icerik_Byte() dizimizin içeriğini okuyup tüm byteların 1 fazlasını alarak dosyamıza yazalım.
For i=0 To icerik_Byte.Length-1
icerik_yaz.WriteByte(Cbyte(CInt(icerik_Byte(i))+1))
Next
icerik_yaz.Close()
'Buraada dizi içeriğini 1 arttırdık ve deneme.sks dosyasına yazdık
Şimdi deneme.sks dosyanını not defteri ile açtığınızda aşağıdaki gibi bir metinle karşılaşırsınız.
lvmmboşdş!bej;lvmmboşdş2
qbspmb;2345
artık bu algoritmayı geliştirmak size kalmış aynı şekilde deneme.sks dosyasını byte byte okutacak ve geriye bir eksiği alınarak deneme.txt dosyasına yazarsanır ilk deneme.txt dosyasını elde edersiniz.
Bu makale sadece bir örnek geliştirmek size kalmış .
Umarım yardımcı olmuşumdur.
Teşekkürünüzü Esirgemeyiniz...
Son düzenleme:
