Anasayfa > Kodlar > Visual Basic 6 ile Textbox’daki verileri şifrelemek/çözmek

Visual Basic 6 ile Textbox’daki verileri şifrelemek/çözmek


Textbox a Girilen Değeri Şifreler / Şifresini Çözer
Decode - Encode Olayı :

'Öncelikle Form İçerisine Yerleştirmemiz Gereken Nesneleri
'Yazayım.

'txtNormal(Textbox)
'txtSifreli(Textbox)
'cmd_Sifrele(Command Button)
'cmd_Çöz(Command Button)

'Gelelim Kodlara...


Private Sub cmd_Çöz_Click()

Dim Enc, Dec, TEnc, Org As String

txtNormal = txtSifreli

txtSifreli = ""

Dim ttllen, dtime As Integer

txtSifreli.Text = ""

Org = txtNormal.Text

ttllen = Len(txtNormal.Text)

For i = 1 To ttllen

Dec = Mid(Org, i, 1)
Dec = Asc(Dec)
Dec = ((Dec - 10) + 5)
Dec = Chr(Dec)
Dec = Asc(Dec)
Dec = ((Dec - 10) + 2)
Dec = Chr(Dec)

TEnc = TEnc & Dec

Next i

txtSifreli.Text = TEnc

End Sub

Private Sub cmd_Sifrele_Click()

Dim Enc, Dec, TEnc, Org As String

Dim ttllen As Integer

ttllen = Len(txtNormal.Text)

txtSifreli.Text = ""

Org = txtNormal.Text
For i = 1 To ttllen
Enc = Mid(Org, i, 1)
Enc = Asc(Enc)
Enc = ((Enc + 10) - 5)
Enc = Chr(Enc)
Enc = Asc(Enc)
Enc = ((Enc + 10) - 2)
Enc = Chr(Enc)
TEnc = TEnc & Enc

Next i

txtSifreli.Text = TEnc

End Sub

Private Sub Command1_Click()

MsgBox "Güneş ÖZAYDIN : gunes@axdns.net", vbInformation, "Yazar Hakkında"

End Sub


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: