[水如烟]您的代码安全吗?
水如烟 2005-01-08 06:50:15 主题:代码的安全性
昨天看了一篇关于Private的贴子,现在试验一下弄了下面的代码。
不知各位有什么感受。该怎么解决这个问题呢?
我现在经验不多。有经验者不妨多说两句,然后我再归纳总结一下。
Public Class Form1
Inherits System.Windows.Forms.Form
Windows 窗体设计器生成的代码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mLogin As New LoginClass
mLogin.IsAuth("")
Dim myFieldInfo() As System.Reflection.FieldInfo
Dim Pass As String
Dim myType As Type = mLogin.GetType
myFieldInfo = myType.GetFields(System.Reflection.BindingFlags.NonPublic Or _
System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.Public)
Dim i As Integer
For i = 0 To myFieldInfo.Length - 1
If myFieldInfo(i).FieldType Is GetType(String) Then
Pass = myFieldInfo(i).GetValue(mLogin).ToString
mLogin.IsAuth(Pass)
End If
Next i
End Sub
End Class
Public Class LoginClass
Private mPass As String = "A#$%%#%#4545390Rkdflssjrl%#(933234"
Public Function IsAuth(ByVal Pass As String) As Boolean
Try
If Pass = mPass Then
Return True
Else
Return False
End If
Finally
MainLogin(IsAuth)
End Try
End Function
Private Sub MainLogin(ByVal IsAuth As Boolean)
Dim mMain As New MainClass
mMain.PleaseLogin(IsAuth)
End Sub
End Class
Public Class MainClass
Public Sub PleaseLogin(ByVal IsAuth As Boolean)
If IsAuth Then
MsgBox("欢迎欢迎,热烈欢迎")
Else
MsgBox("呵呵,请再来一次")
End If
End Sub
End Class