Merhaba Arkadaslar
Vb. De Bir PRg Yazmak istedim..
Bitti Sonunda Sizler Le de Paylaşayım Dedim..
işinize Yarar Sanırım.
Program icin
Not : Net Framework 3 Ve uzeri Olmasi Gerekmektedir.
Program şoyle Calışıyor
İlk Olarak Şifremizi oluşturuyoruz..
Daha Sonra giriş yapıyoruz
giriş yaptıkdan sonra
Klasor oluştur dediğimizde Prg yi nerede calıştırdıysak orada Dosya isminde bir Klasor oluşturuyor.
Bu Klasore istediğimiz dosyalari atabiliriz.
Daha Sonra Kilitle dediğimizde Dosyamizi kaybediyor.
Başka bir Kullanıcının Bu Dosyayı bulması % 0 gibi bişe diyebilirim
Ac dediğimizde Yeniden Acıyo icine ekleme yaparak geri kitliyoruz
Uygulamayı istek Uzerine biraz Değiştirdim..
Kullanım Dahada Rahatladı Sanırım..
Uygulamanın Resmi



Program Ektedir.
Bu Arada VirusTotal Analiz
https://www.virustotal.com/file/6f0f...is/1328188078
Download
PHP Code:
http://www.filejungle.com/f/hmKTjS/Klasor Gizleme.rar
Ekte De Bulunmaktadır.
Programın Code leri Buyrun..Vb. De Bir PRg Yazmak istedim..
Bitti Sonunda Sizler Le de Paylaşayım Dedim..
işinize Yarar Sanırım.
Program icin
Not : Net Framework 3 Ve uzeri Olmasi Gerekmektedir.
Program şoyle Calışıyor
İlk Olarak Şifremizi oluşturuyoruz..
Daha Sonra giriş yapıyoruz
giriş yaptıkdan sonra
Klasor oluştur dediğimizde Prg yi nerede calıştırdıysak orada Dosya isminde bir Klasor oluşturuyor.
Bu Klasore istediğimiz dosyalari atabiliriz.
Daha Sonra Kilitle dediğimizde Dosyamizi kaybediyor.
Başka bir Kullanıcının Bu Dosyayı bulması % 0 gibi bişe diyebilirim
Ac dediğimizde Yeniden Acıyo icine ekleme yaparak geri kitliyoruz
Uygulamayı istek Uzerine biraz Değiştirdim..
Kullanım Dahada Rahatladı Sanırım..
Uygulamanın Resmi



Program Ektedir.
Bu Arada VirusTotal Analiz
https://www.virustotal.com/file/6f0f...is/1328188078
Download
PHP Code:
http://www.filejungle.com/f/hmKTjS/Klasor Gizleme.rar
Ekte De Bulunmaktadır.
PHP Code:
Imports System.IO
Imports System.IO.FileInfo
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dosya As String = "Dosya"
If (System.IO.Directory.Exists(Application.StartupPat h + "Dosya")) = True Then
MsgBox("Klasor Kullanımda")
Button1.Enabled = False
Else
My.Computer.FileSystem.CreateDirectory("Dosya")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
My.Computer.FileSystem.RenameDirectory("Dosya", "Control Panel.")
Shell("cmd /c attrib +s +h +R " & """Control Panel.""")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
My.Computer.FileSystem.RenameDirectory(Application .StartupPath & "" & "Control Panel.", "Dosya")
Shell("attrib -s -h -R " & "Dosya")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
If System.IO.File.Exists("C:windowsire.txt") Then
MsgBox("Şifre Daha Once Oluşturulmuştur.. Lutfen Giriş Yapınız")
Button4.Enabled = False
Else
Dim fs As System.IO.FileStream = New System.IO.FileStream("C:windowsire.txt", IO.FileMode.Append, IO.FileAccess.Write)
Dim yazdirma As System.IO.StreamWriter = New System.IO.StreamWriter(fs)
Dim s As String = TextBox3.Text
yazdirma.Write(s)
yazdirma.Close()
fs.Close()
End If
Catch
End Try
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim oku As String = My.Computer.FileSystem.ReadAllText("C:windowsire.txt")
If oku = TextBox2.Text Then
Button3.Enabled = True
Button2.Enabled = True
Button5.Enabled = False
Button5.BackColor = Color.Red
Button5.ForeColor = Color.White
TextBox2.Text = ""
Else
MsgBox("Yanlış Şifre Girdiniz")
TextBox2.Text = ""
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button3.Enabled = False
Button2.Enabled = False
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim oku As String = My.Computer.FileSystem.ReadAllText("C:windowsire.txt")
If oku = TextBox4.Text Then
My.Computer.FileSystem.DeleteFile("C:Windowsire.txt")
Dim fs As System.IO.FileStream = New System.IO.FileStream("C:windowsire.txt", IO.FileMode.Append, IO.FileAccess.Write)
Dim yazdirma As System.IO.StreamWriter = New System.IO.StreamWriter(fs)
Dim s As String = TextBox5.Text
MsgBox("Şifre Değiştirme işlemi Tamamlanmıştır..", MsgBoxStyle.Information, "Şifre")
yazdirma.Write(s)
yazdirma.Close()
fs.Close()
Else
MsgBox("Eski Şifre uyuşmuyor. Litfen YEniden Deneyiniz..", MsgBoxStyle.Critical, "Hata")
End If
TextBox4.Text = ""
TextBox5.Text = ""
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.Close()
End Sub
End Class
Program Ektedir.
Bu Arada VirusTotal Analiz
https://www.virustotal.com/file/6f0f...is/1328188078
__________________