溢出异常未处理

时间:2014-11-24 10:35:18

标签: vb.net web-services visual-studio

当我在Visual Basic .Net 2013中运行以下代码时,我遇到此错误“溢出异常未处理”。请帮助我?

Dim i As Short
Dim ch As Char  
Dim Number As integer
Dim Numbers() As String
Dim sb As New StringBuilder

txtCipherText.Text = txtCipherText.Text.Trim()
Numbers = txtCipherText.Text.Split(" ")

For i = 0 To Numbers.Length - 1
        Number = CInt(Numbers(i))
        Number = Number
        ch = Chr(Number  ^ 2011 Mod 3127) // THE ERROR IS HERE
        sb.Append(ch)
Next

1 个答案:

答案 0 :(得分:0)

整数(Int32)= 2,147,483,647最大值

长(Int64)= 9,223,372,036,854,775,808

Double = 1.7 * 10 ^ 308

你可能想尝试不使用2011的力量 使用那么高的数字并不比使用8的能力更有优势

但老实说,我认为你应该考虑一种完全不同的加密方式。

尝试将其作为下一次加密的基础

ByteData As Byte() = System.Text.Encoding.ASCII.GetBytes(Yourtext)
For Each part As Byte In ByteData
 'Encryption here
Next

每个字节可以用0-255之间的数字表示。尝试加密这些数字

这样您就可以加密文本,甚至整个文件。

使用

YourText = System.Text.Encoding.ASCII.GetString(ByteData)

将其反转回字符串

使用该方法,我设法创建了一个加密程序,可以将任何文件转换为位图图像,使其看起来像彩色电视静态,每像素4个字节。它实际上是一个不错的压缩工具和加密​​。