发现一个很牛B的外挂
偶然发现一个很"牛B"的外挂,VBNet写的反编译出来源码之后,大开眼界了
下面是登陆过程的代码Private Sub button5_Click(ByVal sender As Object, ByVal e As EventArgs)
If (Convert.ToInt32(Me.textBox3.Text.Length) < 8) Then
MessageBox.Show(ChrW(22806) & ChrW(25346) & ChrW(24080) & ChrW(21495) & ChrW(19981) & ChrW(24471) & ChrW(23569) & ChrW(19982) & "8" & ChrW(20301))
Else
Dim connectionString As String = "server=zwzf3333SQL.db.3549840.hostedresource.com;database=zwzf3333SQL;uid=zwzf3333SQL;pwd=********"
Dim cmdText As String = "select username from UserInfo where username=@username"
Dim connection As New SqlConnection(connectionString)
Dim command As New SqlCommand(cmdText, connection)
command.Parameters.Add("@username", SqlDbType.NVarChar)
connection.Open
command.Parameters.Item("@username").Value = Me.textBox3.Text.ToString
Dim table As New DataTable
table.Load(command.ExecuteReader)
connection.Close
Try
If (Not table.Rows.Item(0).Item(0).ToString Is Nothing) Then
MessageBox.Show(ChrW(35813) & ChrW(24080) & ChrW(21495) & ChrW(24050) & ChrW(23384) & ChrW(22312) & "," & ChrW(35831) & ChrW(26356) & ChrW(25442) & ChrW(24080) & ChrW(21495))
End If
Catch exception As Exception
MessageBox.Show(ChrW(35813) & ChrW(24080) & ChrW(21495) & ChrW(19981) & ChrW(23384) & ChrW(22312) & "," & ChrW(21487) & ChrW(20197) & ChrW(27880) & ChrW(20876))
End Try
End If
End Sub正所谓会看的看门道,不会看的看热闹
看到这部分估计这挂是假的
继续往下看,开始挂机的按钮事件
暴汗啊,空空如也,一行代码都没有
参考http://www.wgsj66.cn/Default.aspx 沙发~不懂VB~学习学习 那就是说 这是假挂? 那个网站上的所有的挂应该全部是假的 骗人的外挂 很正常
假挂多的是 MessageBox.Show(ChrW(35813) & ChrW(24080) & ChrW(21495) & ChrW(19981) & ChrW(23384) & ChrW(22312) & "," & ChrW(21487) & ChrW(20197) & ChrW(27880) & ChrW(20876))
这是输入个什么消息? 寒,原来假挂啊,晕了噢. 我上次破解的时候也碰到一个传奇的假挂,也是VB写的。破解了以后给人家使用 人家说挂没反应。
含··假挂真躲·· 其实这并不好笑,我见过更好笑的是有人把假挂做教程,还有人在后面疯狂的顶说这挂好用!
汗颜!