Как вызвать функцию в кнопке в VB 10

Question

Я только новичок в VB 10, и я создаю программу шифрования Vigenere, но я не знаю, как вызвать функцию в кнопке. вот мой код:

Public Shared Function Encrypt(ByVal cipherTxt As String, ByVal key As String)
    Dim encryptedText As String = ""
    For i As Integer = 1 To cipherTxt.Length
        Dim temp As Integer = AscW(GetChar(cipherTxt, i)) + AscW(GetChar(key, i Mod key.Length + 1))
        encryptedText += ChrW(temp)
    Next
    Return encryptedText
End Function

Public Shared Function Decrypt(ByVal cipherTxt As String, ByVal key As String)
    Dim decryptedText As String = ""
    For i As Integer = 1 To cipherTxt.Length
        Dim temp As Integer = AscW(GetChar(cipherTxt, i)) - AscW(GetChar(key, i Mod key.Length + 1))
        decryptedText += ChrW(temp)
    Next
    Return decryptedText
End Function

Любая помощь? Спасибо.

Answer 1

Ну, вам нужно сделать что-то вроде этого

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Encrypt("This is the string to Encrypt", "This is the key")
End Sub

Вам нужно будет передать текст для шифрования, который может быть из текстового поля, и ключ вполне может быть частной переменной, чтобы перейти на следующий уровень. Предположим, что TextBox1 содержит некоторый текст, который вы хотите зашифровать (и вернуть этот зашифрованный текст в текстовое поле, из которого он получен;

Private _myKey As String ="This is the key to encrypt & Decrypt"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    TextBox1.Text = Encrypt(TextBox1.text, _myKey)
End Sub

Те же основные функции применимы к дешифрованию.

NB: Это не содержит проверки ошибок, и хранить ключ в открытом виде не рекомендуется, но здесь должно быть достаточно, чтобы вы начали