Question

我尝试使用以下代码将字符串分成2个字母的相同艺术，但它没用：

  Dim twoLetterWords = "The quick fox jumped over the lazy dog".
       Select(Function(c, i) New With {.Char = c, .Index = i}).
       GroupBy(Function(x) CInt(Math.Floor(x.Index / 2))).
       Select(Function(g) String.Join("", g.Select(Function(x) x.Char)))

我还尝试了以下内容：

       Dim n As Integer

    Dim sasa(69) As String

    For i As Integer = 0 To sasa.Length - 1
        sasa(i) = "das"

    Next

    For i As Integer = 0 To RichTextBox1.TextLength - 2 Step 2
        For x As Integer = 0 To sasa.Length - 1
            n = i + 2
            sasa(x) = RichTextBox1.Text.Substring(i, 2)


            For z As Integer = 1 To 3
                RichTextBox2.Text = RichTextBox2.Text
            Next z
       Next x
    Next i

但那也是徒劳的。那么，我错误的是什么呢？或者还有其他方法可以做我想做的事情吗？

Answer 1

在回答您关于为什么不应该开发自己的“加密”例程的评论时，简短的答案是这样的：

密码学很难并且是科学和艺术的平等部分。拥有专门从事密码学的计算机科学和数学学位的人已经产生了不好的解决方案，他们有理论背景可以更好地了解。这应该是谨慎和警告。

你甚至都没有;你是无能为力的，无论你最终发展到什么，都有可能是可怕的。那里已经有足够可怕的加密代码了。

很抱歉直言不讳，但那是现实。

更多信息，请查看http://www.schneier.com/blog/archives/2011/04/schneiers_law.html。

文本的加密和解密

1 个答案: