主题：注册码计算问题

按帮助在命令窗口计算注册码 Output.Show(EncryptText("用户提供的机器码","abc","abc"))

与用按钮代码计算的注册码不一样,后者注册正常

Dim Val1 As String = e.Form.Controls("TextBox1").Value
If Val1>"" Then
    Dim Val2 As String = EncryptText(Val1,"aaa","aaa") '加密
    e.Form.Controls("TextBox2").Value = Val2
Else
    MessageBox.Show("请输入用户提供的机器码!", "提示")
End If

惭愧,马虎了