Как вызвать функцию в кнопке в 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:. Содержит не проверять ошибки и хранить ключ открытым способом не рекомендуется, но здесь должно быть достаточно, чтобы вы начали.