Print

vbde bir program lazım. program seçilen bir dosyayı şifreleyecek ve bu dosyayı başka hiçbir program açamayacak. mümkün müdür?yardım eden olursa çok sevinirim

evet mümkündür. pscode.com da binary edit diye arat gerekli kodları bulacaksın. o kodları kendine göre editleyerek istediğin gibi bişey yapabilirsin. smy-

bulamadım kardeş yardımcı olursan sevinirim

End Sub Private Sub cmdSifrele_Click Dim i, X As Integer If chk1. Value = 1 Then chk1. Value = 0 Do Y = 9 Rnd Y = Int Loop Until Y <> 0 For i = 1 To Len(txt1. Text ) X = Asc(Mid(txt1. Text, i, 1 ) ) If X < 199 Then X = X + Y Else X = X + 1 End If txt2. Text = txt2. Text & Chr Next i txt1. Text = "" txt1. Enabled = False txt2. Enabled = True cmdSifrele. Enabled = False cmdDesifrele. Enabled = True cmdKaydet. Enabled = True End Sub Private Sub Form_Load txt1. Text = "" txt2. Text = "" cmdSifrele. Caption = "Şifrele" cmdDesifrele. Caption = "Deşifrele" cmdKaydet. Caption = "Kaydet" cmdKaydet. Enabled = False cmdSifrele. Default = True chk1. Caption = "Dosyadan Deşifre Et!" End Sub alıntıdır... smy-

Konu : VB de Yazı şifreleme 'Programa 2 tane textbox koyun biri ustte diğeri altta. 'Textbox ların MultiLine özelliğini true yapın ve scrollbar özelliğinden Vertical olanı seçin. '2 text box arasına 3 tane yan yana olacak şekilde CommandButton koyun. 'Sırası ile CommandButtonların Name kısmını şöyle adlandırın. '1. CommandButton için cmdSifrele '2. CommandButton için cmdDesifrele '3. CommandButton için cmdKaydet 'Alttaki textbox ın altına bir tane CheckBox koyun. 'CheckBox ın Name kısmını chk1 olarak değştirin. 'Program kullanımı ise; 'Ustteki kısma bir metin yazın ve bunu şifreleye bastığınızda alt metin penceresine şifreli olarak geçtiğini göreceksiniz, 'sonra Deşifreleye basınca yine ust pencereye şifresi çözülmüş olrak geçecektir. 'Kaydet butonu ise bir metin yazıp onu şifreledikten sonra . doc yada . txt oarak bu şifreli yazıyı kaydetmenizi sağlayacaktır. 'Eğer bu program ile şifrelenmiş bir . txt yada . doc uzantılı bir metnin şifresini çözmek isterseniz; ' . doc veya . txt dosyasının içeriğini alttaki metin penceresine kopyalayın ve Dosyadan Deşifre Et! yazan checkBox a işaret koyun. Program metni düzeltcektir. 'Programa yazılan kodu incelerseniz her şifrele ye basınca belli bir sayıda farklı şifreleme yaptığını göreceksiniz.. 'dosyadan şifreleme yada deşifreleme yapmadığınız zaman alttaki metin penceresinin altındaki CheckBox a işaret koymayınız.. Kod: Dim Y As Byte Private Sub chk1_Click If chk1. Value = 1 Then cmdSifrele. Enabled = False Else cmdSifrele. Enabled = True End If End Sub Private Sub cmdDesifrele_Click Dim i, X As Integer If chk1. Value = 1 Then Y = Chr(Asc(txt2. Text ) ) i = 2 Else i = 1 End If For i = i To Len(txt2. Text ) X = Asc(Mid(txt2. Text, i, 1 ) ) If X < 199 Then X = X - Y Else X = X - 1 End If txt1. Text = txt1. Text & Chr Next i txt2. Text = "" txt2. Enabled = False txt1. Enabled = True cmdSifrele. Enabled = True cmdDesifrele. Enabled = False cmdKaydet. Enabled = False End Sub Private Sub cmdKaydet_Click CD1. CancelError = False CD1. DialogTitle = "Kaydet" CD1. Filter = "Metin Belgesi | . txt|WORD Belgesi | . doc" CD1. FilterIndex = 2 CD1. ShowSave Open CD1. FileName For Output As