PHP Code:
PublicClassForm1
Private Sub btnSifrele_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSifrele.Click

Dim metin As String = textBox1.Text

Dim anahtar As String = textBox3.Text

Dim sifreli_metin As String = ""

Dim j As Byte = 0

For k = 0 To Strings.Len(metin) - 1

sifreli_metin = sifreli_metin + Strings.Chr((Strings.Asc(metin(k)) + Strings.Asc(anahtar(j))) Mod 255)

'Şifreli metni, her bir karakterinin koduna anahtar kelimenin sıradaki karakterinin kodunu ekleyerek bul.

'Neden Mod 255? Cunku toplam 255 değerini aşabilir.

j = j + 1

If j = Strings.Len(anahtar) Then j = 0 'Anahtar kelimenin indisi ayrı tutulmalı. Yoksa indisde değer aşımı olur.

Next

textBox2.Text = sifreli_metin

End Sub

Private Sub btnSifreCoz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSifreCoz.Click

Dim sifreli_metin As String = textBox1.Text

Dim anahtar As String = textBox3.Text

Dim metin As String = ""

Dim kod As Integer

Dim j As Byte = 0

For k = 0 To Strings.Len(sifreli_metin) - 1

kod = Strings.Asc(sifreli_metin(k)) - Strings.Asc(anahtar(j))

If kod