Шифрование слов

[Blahbla]

Привет всем, пожалуйста помогите написать программу на VB

[was3110]

http://orenstudent.ru/CodCezara.htm

смотрите вторую часть, там на VB.

[gaw4]

Dim a$
Dim R_KEY%
Dim td$, tc$
Private Sub Form_Load()
a = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
R_KEY = 4
End Sub



Sub Txt_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32
KeyAscii = IIf(KeyAscii >= 65 And KeyAscii <= 90, KeyAscii, 0)
End Sub
Function Cript$(s$)
Dim p
p = InStr(1, a, s)
Cript$ = Mid(a, IIf(p < 26 - R_KEY + 1, p + R_KEY, p + R_KEY - 26), 1)
End Function
Function DeCript$(s$)
Dim p
p = InStr(1, a, s)
DeCript$ = Mid(a, IIf(p > R_KEY + 1, p - R_KEY, p - R_KEY + 26), 1)
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)
Call Txt_KeyPress(KeyAscii)
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
td = Text1.Text
tc = ""
For i = 1 To Len(td)
tc = tc & Cript(Mid(td, i, 1))
Next i
Text2 = tc
End Sub
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
tc = Text2.Text
td = ""
For i = 1 To Len(tc)
td = td & DeCript(Mid(tc, i, 1))
Next i
Text1 = td
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
Call Txt_KeyPress(KeyAscii)
End Sub