HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Merhaba arkadaşlar bu işe yeni başlayan kendini geliştiren veya herhangi başka bir programlama dilinde aklına takılan soruları olan kişiler bu konu altından yazarlarsa herkese yardımcı olabilirim..
İyi forumlar.
İyi forumlar.
Mysql Server Bağlantısı Kullanıyorum Uzak Sunucuda Yanı Bu Mysql Server Programa İp Şifre Kullanıcı Adı yazmak Gerekıyor Bu Bağlantıyı nasıl güvenlı hale getırebiliriz Programın Kaynak Kodları Okunuyor Oyuzden Bunu Nasıl Güvenlık Altına Alabılırız Web.Config Dosyasından Felan Yapabılrsınız Dıyorlar Yapamadım ben Yardımcı Olurmusunuz. Sql Serverde Integrated Seurity= True Kullanılıyor ama Mysqlde Olmuyor Galıba.
Konu Sahibi
Konu Sahibi
cevap biraz geç oldu foruma uzun zamandır girmiyordum. ama cözümü paylaşayım başka birinin işine yarar belki bu dediğiniz için 2 yönlü bir şifreleme algoritması kullanmak lazım. veritabanı bilglerni girerken. şifreli olarak yazarsınız. programın anlayablmesi içinde cözerken cözme fonksiyonu yazarsınız böylelikle gerçek şifreniz kaynak kodlarda gözükmez . sifrenizi cözmek içinde algoritmanızı cözmesi gerekir ki bunlada öyle kimse uğrasacagını sanmıyorum.
vb.net için diğer bilindik algoritmalar için ;
http://kodornekleri.org/vb-net-sifreleme-metodlari/
Kod:
PublicClassForm1
[COLOR=#333333][FONT=Consolas]Private Sub btnSifrele_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSifrele.Click[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]Dim metin As String = textBox1.Text[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]Dim anahtar As String = textBox3.Text [/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]Dim sifreli_metin As String = ""[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]Dim j As Byte = 0[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]For k = 0 To Strings.Len(metin) - 1 'Metni karakter karakter sonuna kadar tara.[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]sifreli_metin = sifreli_metin + Strings.Chr((Strings.Asc(metin(k)) + Strings.Asc(anahtar(j))) Mod 255)[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]'Şifreli metni, her bir karakterinin koduna anahtar kelimenin sıradaki karakterinin kodunu ekleyerek bul.[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]'Neden Mod 255? Çünkü toplam 255 değerini aşabilir.[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]j = j + 1 [/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]If j = Strings.Len(anahtar) Then j = 0 'Anahtar kelimenin indisi ayrı tutulmalı. Yoksa indisde değer aşımı olur.[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]Next[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]textBox2.Text = sifreli_metin[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]End Sub [/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]Private Sub btnSifreCoz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSifreCoz.Click[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]Dim sifreli_metin As String = textBox1.Text[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]Dim anahtar As String = textBox3.Text[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]Dim metin As String = ""[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]Dim kod As Integer [/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]Dim j As Byte = 0[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]For k = 0 To Strings.Len(sifreli_metin) - 1[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]kod = Strings.Asc(sifreli_metin(k)) - Strings.Asc(anahtar(j))[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]If kod <= 0 Then kod = kod + 255 Else kod = kod Mod 255[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]metin = metin + Strings.Chr(kod) [/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]j = j + 1[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]If j = Strings.Len(anahtar) Then j = 0[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]Next[/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]textBox2.Text = metin [/FONT][/COLOR]
[COLOR=#333333][FONT=Consolas]End Sub[/FONT][/COLOR]
EndClassvb.net için diğer bilindik algoritmalar için ;
http://kodornekleri.org/vb-net-sifreleme-metodlari/
