Vb Encryption and Decryption

Burdaki amaç vbde dosyaya kaydedeceginiz her hangi bir degeri Encrypt Ederek bu dosyayi okumaya çalisan kisilerin o veriyi normal halde görmesini engellemek. Örnek olarak bir yönetici bölümü yaptiniz ve sifreyi bir dosyaya kaydettiniz. Fakat dosya açildiginda sifre görünüyor bu kodlar sayesinde sifreniz enrcypt edilmis hali görülecek. Sonra tekrar yönetici sifresi dogrulamasi istediginizde decrypt edilecek. Sifremiz Ahmet Olsun decrypt hali 845,1352,1417,1313,1508, seklinde olacak.

Private Sub Command1_Click()
’’ Burda Text1 Veri Girilecek Olan Yer Textbox Olsun(Name Degistirirseniz ’’Kodlardan Degistirmeyi Unutmayin)
’’ Text2 nin visible özelligi false olsun text2.visible=false gibi
On Local Error GoTo hata                ’’ Bir Hata Olusursa hataya git
Text2 = ""                              ’’ Text2 yi bosalttik
Dim uztex, harf, hasc, hbas, sonuc      ’’ Degiskenleri Tanimladik
uztex = Len(Text1)            ’’ Encrypt Edilecek Metnin Uzunlugunu Degiskenimize Aldik
For hbas = 1 To uztex                   ’’ Döngüyü Baslattik
harf = Mid(Text1, hbas, 1)              ’’ Sirayla Metin Içinden Harfleri Seçtik
hasc = Asc(harf)                        ’’ Harfin Ascii Kodunu Degiskenimize Aldik
hasc = hasc * 13                        ’’ Ascii Kodu 13 le Çarptik.Siz istedginiz sayiyla ÇarpaBilirsiniz
Text2.SelStart = Len(Text2)
Text2.SelLength = Len(hasc)
Text2.SelText = hasc & ","              ’’ Encrypt Edilmis Metni Text2 Ye Yazdirdik
sonuc = Text2                           ’’ Text2 Yi Degiskenimize Aldik
Next
Open "CwMaDeRkAn.Dat" For Output As #1  ’’ Verileri Kaydedecek Dosyayi Yarat
uztex = Asc(uztex) * 5                  ’’ Asciiyi 5 le Çarpip Bunuda Direk degerin Görünmesini Engelliyoruz
Write #1, uztex, sonuc                  ’’ Verilerimizi Dosyaya Yazdirdik
Close #1                                ’’ Dosyayi Kapadik
Text2 = ""                              ’’ Text2 Yi Bosalttik
hata:                                   ’’ Eger Bir Hata Alginlanirsa Islemi Durdur
Exit Sub
End Sub

Private Sub Form_Load()
’’ Burda Text1 ve Text2 Yi Name Özelliginden Istediginiz gibi Ayarliyabilirsiniz.
’’ Ama Ikisininde visible özelligi False olsun tex1.visible=false text2.visible=false gibi

On Local Error GoTo hata                ’’ Bir Hata Olusursa Hataya Git
Dim uztex, ayrac, say, sayac, bol, sonuc
If Dir("CwMaDeRkAn.Dat") <> "" Then     ’’ Dosya varsa
Open "CwMaDeRkAn.Dat" For Input As #1   ’’ Dosyayi Aç
While Not EOF(1)                        ’’ Sonuna Kayda Kadar Açmaya Devam Et
Input #1, uztex, sonuc                  ’’ Kaydettigimiz Verileri Degiskenlere Aldik
uztex = uztex / 5                       ’’ Burda Yukardaki 5’i Degistirdiyseniz Burdakinide Degistirin
uztex = Chr(uztex)                      ’’ Uztex Tekrar Normal Hale Döndürdük
Text2 = sonuc                           ’’ Text2 Ye Encrypt Ettigimiz Veriyi Aldik
Wend                                    ’’ Döngüyü Bitir
Close #1                                ’’ Dosyayi Kapa
Else
Exit Sub                                ’’ Eger Dosya Yoksa Islemi Durdur
End If
Do Until sayac = uztex                  ’’ Dögüyü Baslattik
ayrac = InStr(Text2, ",")
Text2.SelStart = 0
Text2.SelLength = ayrac - 1
bol = Text2.SelText / 13            ’’ Yukardaki 5’i Degistirdiyseniz Burdakinide Degistirin
say = Chr(bol)                          ’’ Encrypt Edilmis 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 Ugrasmak Yerine Bunu Yaptim sonuc = Text1                           ’’ Decrypt Edilen Metni sonuc Degiskenine Aldik
Text1 = ""
Text2 = ""                              ’’ Textboxlarin Içini Bosalttik
Exit Sub                                ’’ Hata Olusursa Islemi Durdur
End Sub

Örnek Olarak bir login yerinde

if passtextbox <> sonuc Then

Msgbox("Sifre Yanlis Tekrar Deneyiniz")

Exit Sub

End if

diyerek yanlis sifre girildiginde girisi engellersiniz. Ve kaydettiginiz dosyadaki sifreler encrypt halde oldugu için dosyayi açsalar bile bir sey elde edemezler.

Bu Döküman Sadece Cyber-Warrior.Org için Yazilmistir. Bana fikir verdigi için Spy’a  tesekkür ederim.