凯撒密码加密VB.net

我想在VB.net中做一个加密方法。
我打算使用数组，所以你输入的值，然后它比较两个数组改变值。凯撒密码加密VB.net

Console.WriteLine("Please input text") 
    Dim UserInput As String = Console.ReadLine 
    UserInput = UserInput.ToUpper() 
    Console.WriteLine("Original Input is " & UserInput) 

    Dim EncriptedText As String 
    Dim Numbers() As String = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "21", "22", "23", "24", "25", "26", "27"} 
    Dim Letters() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", " "} 


    For counter As Integer = 0 To UserInput.Length - 1 
     Dim pos As Integer = Array.IndexOf(Numbers, UserInput.Chars(counter)) 
     Dim CharValue As Char = Letters.ElementAt(pos) 
     UserInput = UserInput + CharValue 
     Console.WriteLine(UserInput) 
    Next 

    Console.Read() 
End Sub

当我尝试运行它时会引发错误。
有没有人有任何想法我可以修复它？

错误：上的暗淡的charValue实测为CHAR线

类型“System.ArgumentOutOfRangeException”的未处理的异常出现在mscorlib.dll 其他信息：索引超出范围。必须是非负数且小于集合的大小。

我想这可能是因为我试图将数字转换为字符，如果有的话，我可以使用其他方法？

来源

2016-12-02 Kieron Killey

你为什么要实现这样一个** **较弱的加密算法？ –

***不要推出自己的加密***至少对于任何敏感的事情，因为许多事情可能会出错... – Codexer

1）您正在使用错误的数组来获取字母的索引，因此错误的数组获取其加密值。

2）当你使用这样的Array.IndexOf时，你需要给它一个字符串来查找而不是char。在你的代码中，它返回-1，因为它没有在字符串数组中找到字符串（一旦使用了正确的数组）。

3）你正在修改循环中的输入字符串，我想你的意思是使用一个单独的变量。

Console.WriteLine("Please input text") 
Dim userInput As String = Console.ReadLine() 
userInput = userInput.ToUpper() 
Console.WriteLine("Original input is " & userInput) 

Dim numbers() As String = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "21", "22", "23", "24", "25", "26", "27"} 
Dim letters() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", " "} 

Dim encryptedText As String = "" 

For counter As Integer = 0 To userInput.Length - 1 
    Dim pos As Integer = Array.IndexOf(letters, (userInput.Chars(counter))) 
    Dim cipherValue As String = numbers.ElementAt(pos) 
    encryptedText = encryptedText & cipherValue 
    Console.WriteLine(encryptedText) 
Next 

Console.Read()

请注意，通常以小写字母开头的变量名称。现在

，你可以得到输出，你可以去寻找其他问题的代码:)

来源

2016-12-02 16:56:13

凯撒密码加密VB.net

回答

相关问题