Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » Vb Encryption and Decryption
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Joker karakterler kullanarak string nasıl aranir?

Yazar: Webmaster

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 6778
Yayın Tar:07.04.2006
Yazar : entrika
Hit :1958

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Burdaki amaç vbde dosyaya kaydedeceğiniz her hangi bir değeri Encrypt Ederek bu dosyayı okumaya çalışan kişilerin o veriyi normal halde görmesini engellemek. Örnek olarak bir yönetici bölümü yaptınız ve şifreyi bir dosyaya kaydettiniz. Fakat dosya açıldığında şifre görünüyor bu kodlar sayesinde şifreniz enrcypt edilmiş hali görülecek. Sonra tekrar yönetici şifresi Doğrulaması istediğinizde decrypt edilecek. Şifremiz Ahmet Olsun decrypt hali 845,1352,1417,1313,1508, şeklinde olacak.

Private Sub Command1_Click()
?? Burda Text1 Veri Girilecek Olan Yer Textbox Olsun(Name Değiştirirseniz ??Kodlardan Değiştirmeyi Unutmayın)
?? Text2 nin visible özelliği False olsun text2.visible=False gibi
On Local Error GoTo hata ?? Bir Hata Oluşursa hataya git
Text2 = "" ?? Text2 yi boşalttık
Dim uztex, harf, hasc, hbas, sonuc ?? Değişkenleri Tanımladık
uztex = Len(Text1) ?? Encrypt Edilecek Metnin Uzunluğunu Değişkenimize Aldık
For hbas = 1 To uztex ?? Döngüyü Başlattık
harf = Mid(Text1, hbas, 1) ?? Sırayla Metin İçinden Harfleri Seçtik
hasc = Asc(harf) ?? Harfin Ascii Kodunu Değişkenimize Aldık
hasc = hasc * 13 ?? Ascii Kodu 13 le Çarptık.Siz istedğiniz sayıyla ÇarpaBilirsiniz
Text2.SelStart = Len(Text2)
Text2.SelLength = Len(hasc)
Text2.SelText = hasc & "," ?? Encrypt Edilmiş Metni Text2 Ye Yazdırdık
sonuc = Text2 ?? Text2 Yi Değişkenimize Aldık
Next
Open "CwMaDeRkAn.Dat" For Output As #1 ?? Verileri Kaydedecek Dosyayı Yarat
uztex = Asc(uztex) * 5 ?? Asciiyi 5 le Çarpıp Bunuda Direk değerin Görünmesini Engelliyoruz
Write #1, uztex, sonuc ?? Verilerimizi Dosyaya Yazdırdık
Close #1 ?? Dosyayı Kapadık
Text2 = "" ?? Text2 Yi Boşalttık
hata: ?? Eğer Bir Hata Algınlanırsa İşlemi Durdur
Exit Sub
End Sub



Private Sub Form_Load()
?? Burda Text1 ve Text2 Yi Name Özelliğinden İstediğiniz gibi Ayarlıyabilirsiniz.
?? Ama İkisininde visible özelliği False olsun tex1.visible=False text2.visible=False gibi

On Local Error GoTo hata ?? Bir Hata Oluşursa Hataya Git
Dim uztex, ayrac, say, sayac, bol, sonuc
If Dir("CwMaDeRkAn.Dat") <> "" Then ?? Dosya varsa
Open "CwMaDeRkAn.Dat" For Input As #1 ?? Dosyayı Aç
While Not EOF(1) ?? Sonuna Kayda Kadar Açmaya Devam Et
Input #1, uztex, sonuc ?? Kaydettiğimiz Verileri Değişkenlere Aldık
uztex = uztex / 5 ?? Burda Yukardaki 5?i Değiştirdiyseniz Burdakinide Değiştirin
uztex = Chr(uztex) ?? Uztex Tekrar Normal Hale Döndürdük
Text2 = sonuc ?? Text2 Ye Encrypt Ettiğimiz Veriyi Aldık
Wend ?? Döngüyü Bitir
Close #1 ?? Dosyayı Kapa
Else
Exit Sub ?? Eğer Dosya Yoksa İşlemi Durdur
End If
Do Until sayac = uztex ?? Dögüyü Başlattık
ayrac = InStr(Text2, ",")
Text2.SelStart = 0
Text2.SelLength = ayrac - 1
bol = Text2.SelText / 13 ?? Yukardaki 5?i Değiştirdiyseniz Burdakinide Değiştirin
say = Chr(bol) ?? Encrypt Edilmiş Harfleri Tek Tek Decrypt Ettik
Text1.SelStart = Len(Text1)
Text1.SelLength = 1
Text1.SelText = say ?? Decrypt Edilen Veriyi Text1 Koyduk harf harf
Text2.SelStart = ayrac
Text2.SelLength = Len(Text2) - ayrac
Text2 = Text2.SelText
sayac = sayac + 1
Loop ?? Döngüyü Bitir
hata: ?? Döngü Hata Veriyordu Hatayla Uğraşmak Yerine Bunu Yaptım sonuc = Text1 ?? Decrypt Edilen Metni sonuc Değişkenine Aldık
Text1 = ""
Text2 = "" ?? Textboxların İçini Boşalttık
Exit Sub ?? Hata Oluşursa İşlemi Durdur
End Sub


Örnek Olarak bir login yerinde

If passtextbox <> sonuc Then

MsgBox("Şifre Yanlış Tekrar Deneyiniz")

Exit Sub

End If

diyerek yanlış şifre girildiğinde girişi engellersiniz. Ve kaydettiğiniz dosyadaki şifreler encrypt halde olduğu içIn dosyayı açsalar bile bir şey elde edemezler.





Yorumlar, eklemeler ve düşünceler
        Zehir gibi olmuş

   balasagun, 03.06.2007 20:57
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin